frmAppendixRee.prg                                                    5459object Appendix: TAppendix
  Left = 25
  Top = 25
  Width = 650
  Height = 404
  ActiveControl = bGrid1
  Anchors = []
  Caption = #1055#1088#1080#1083#1086#1078#1077#1085#1080#1103
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  WindowState = wsNormal
  OnInnerEvent = Form_InnerEvent
  DesignSize = (
    642
    377)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 8
    Top = 8
    Width = 626
    Height = 337
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    object TabSheet1: TTabSheet
      Caption = #1056#1077#1077#1089#1090#1088
      DesignSize = (
        624
        315)
      object bGrid1: xbGrid
        Left = 8
        Top = 35
        Width = 608
        Height = 273
        Anchors = [akLeft, akTop, akRight, akBottom]
        AutoFitColWidths = True
        DataSource = ADS
        Flat = True
        FooterColor = clWindow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -11
        FooterFont.Name = 'MS Sans Serif'
        FooterFont.Style = []
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        UseMultiTitle = True
        IdGrid = '{8669775F-D38A-4F27-A26F-AA6366B3D8C5}'
        Columns = <
          item
            EditButtons = <>
            FieldName = 'FIN_CTG_NAME'
            Footers = <>
            Title.Caption = #1050#1072#1090#1077#1075#1086#1088#1080#1103
            Width = 99
          end
          item
            EditButtons = <>
            FieldName = 'DIR_NAME'
            Footers = <>
            Title.Caption = #1053#1072#1087#1088#1072#1074#1083#1077#1085#1080#1077' '#1076#1074#1080#1078#1077#1085#1080#1103
            Width = 99
          end
          item
            EditButtons = <>
            FieldName = 'TEXT'
            Footers = <>
            Title.Caption = #1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
            Width = 393
          end>
      end
      object LblCbFinCtg: xbLabelCombo
        Left = 8
        Top = 8
        Width = 270
        Height = 21
        ParentBackGround = True
        Caption = #1050#1072#1090#1077#1075#1086#1088#1080#1103'          '
        TabOrder = 1
        LabelWidth = 60
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Sorted = False
        EditColor = clWindow
        DisabledColor = clBlack
        DisabledFontColor = clBlack
        BorderColor = clWindowText
        AutoComplete = False
        Style = csDropDownList
        CharCase = ecNormal
        DropDownCount = 0
        ItemHeight = 0
        MaxLength = 0
        ItemIndex = -1
        UseStandartHint = True
        OnSelect = LblCbFinCtg_Select
      end
      object LblCbDir: xbLabelCombo
        Left = 296
        Top = 8
        Width = 270
        Height = 21
        ParentBackGround = True
        Caption = #1053#1072#1087#1088#1072#1074#1083#1077#1085#1080#1077' '#1076#1074#1080#1078#1077#1085#1080#1103'          '
        TabOrder = 2
        LabelWidth = 130
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Sorted = False
        EditColor = clWindow
        DisabledColor = clBlack
        DisabledFontColor = clBlack
        BorderColor = clWindowText
        AutoComplete = False
        Style = csDropDownList
        CharCase = ecNormal
        DropDownCount = 0
        ItemHeight = 0
        MaxLength = 0
        ItemIndex = -1
        UseStandartHint = True
        OnSelect = LblCbDir_Select
      end
    end
  end
  object bPopupButton1: xbPopupButton
    Left = 558
    Top = 350
    Width = 75
    Height = 21
    Caption = #1054#1087#1077#1088#1072#1094#1080#1080
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = bPopupMenu1
    RoundedButton = True
    TabOrder = 1
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object ADS: xbADSDataSource
    DataSet = DS
    Left = 35
    Top = 109
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <>
    OEMTranslate = False
    AfterInsert = DS_AfterInsert
    OnUpdateRecord = DS_UpdateRecord
    Left = 78
    Top = 110
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_APPENDIX'
    Active = False
    Left = 119
    Top = 110
  end
  object bPopupMenu1: xbPopupMenu
    Left = 264
    Top = 239
    object N14: TMenuItem
      Caption = #1042#1074#1086#1076'/'#1041#1099#1089#1090#1088#1099#1081' '#1087#1086#1080#1089#1082
      ShortCut = 8310
    end
  end
end
frmComisRee.prg                                                       4322object Comis: TComis
  Left = 25
  Top = 25
  Width = 650
  Height = 404
  ActiveControl = bGrid1
  Anchors = []
  Caption = #1050#1086#1084#1080#1089#1089#1080#1080
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  WindowState = wsNormal
  OnInnerEvent = Form_InnerEvent
  DesignSize = (
    642
    377)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 8
    Top = 8
    Width = 626
    Height = 337
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    object TabSheet1: TTabSheet
      Caption = #1056#1077#1077#1089#1090#1088
      DesignSize = (
        624
        315)
      object bGrid1: xbGrid
        Left = 9
        Top = 35
        Width = 608
        Height = 273
        Anchors = [akLeft, akTop, akRight, akBottom]
        AutoFitColWidths = True
        DataSource = ADS
        Flat = True
        FooterColor = clWindow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -11
        FooterFont.Name = 'MS Sans Serif'
        FooterFont.Style = []
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        UseMultiTitle = True
        IdGrid = '{4EF9B346-BEE9-4D91-BE1A-753AF0509E94}'#39
        Columns = <
          item
            EditButtons = <>
            FieldName = 'DIR_NAME'
            Footers = <>
            Title.Caption = #1053#1072#1087#1088#1072#1074#1083#1077#1085#1080#1077' '#1076#1074#1080#1078#1077#1085#1080#1103
            Width = 119
          end
          item
            EditButtons = <>
            FieldName = 'TEXT'
            Footers = <>
            Title.Caption = #1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
            Width = 473
          end>
      end
      object LblCbDir: xbLabelCombo
        Left = 8
        Top = 8
        Width = 270
        Height = 21
        ParentBackGround = True
        Caption = #1053#1072#1087#1088#1072#1074#1083#1077#1085#1080#1077' '#1076#1074#1080#1078#1077#1085#1080#1103'          '
        TabOrder = 1
        LabelWidth = 130
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Sorted = False
        EditColor = clWindow
        DisabledColor = clBlack
        DisabledFontColor = clBlack
        BorderColor = clWindowText
        AutoComplete = False
        Style = csDropDownList
        CharCase = ecNormal
        DropDownCount = 0
        ItemHeight = 0
        MaxLength = 0
        ItemIndex = -1
        UseStandartHint = True
        OnSelect = LblCbDir_Select
      end
    end
  end
  object bPopupButton1: xbPopupButton
    Left = 558
    Top = 351
    Width = 75
    Height = 21
    Caption = #1054#1087#1077#1088#1072#1094#1080#1080
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = bPopupMenu1
    RoundedButton = True
    TabOrder = 1
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object ADS: xbADSDataSource
    DataSet = DS
    Left = 35
    Top = 109
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <>
    OEMTranslate = False
    AfterInsert = DS_AfterInsert
    OnUpdateRecord = DS_UpdateRecord
    Left = 78
    Top = 110
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_COMIS'
    Active = False
    Left = 119
    Top = 110
  end
  object bPopupMenu1: xbPopupMenu
    Left = 257
    Top = 167
    object N14: TMenuItem
      Caption = #1042#1074#1086#1076'/'#1041#1099#1089#1090#1088#1099#1081' '#1087#1086#1080#1089#1082
      ShortCut = 8310
    end
  end
end
frmFinObjRee.prg                                                      3089object FinObjRee: TFinObjRee
  Left = 25
  Top = 25
  Width = 650
  Height = 404
  ActiveControl = bGrid1
  Anchors = []
  Caption = #1044#1077#1085#1077#1078#1085#1099#1077' '#1089#1088#1077#1076#1089#1090#1074#1072
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  WindowState = wsNormal
  OnInnerEvent = Form_InnerEvent
  DesignSize = (
    642
    370)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 8
    Top = 8
    Width = 626
    Height = 361
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    object TabSheet1: TTabSheet
      Caption = #1056#1077#1077#1089#1090#1088
      DesignSize = (
        624
        339)
      object bGrid1: xbGrid
        Left = 8
        Top = 8
        Width = 608
        Height = 324
        Anchors = [akLeft, akTop, akRight, akBottom]
        AutoFitColWidths = True
        DataSource = ADS
        Flat = True
        FooterColor = clWindow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -11
        FooterFont.Name = 'MS Sans Serif'
        FooterFont.Style = []
        Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgConfirmDelete]
        OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghIncSearch]
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        UseMultiTitle = True
        OnKeyPress = bGrid1_KeyPress
        IdGrid = '{1E5DEE75-BCB1-468F-B0AB-685C2A6E8695}'#39
        Columns = <
          item
            EditButtons = <>
            FieldName = 'OBJ_CODE'
            Footers = <>
            Title.Caption = #1050#1086#1076
            Width = 100
          end
          item
            EditButtons = <>
            FieldName = 'OBJ_NAME'
            Footers = <>
            Title.Caption = #1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
            Width = 399
          end
          item
            EditButtons = <>
            FieldName = 'VAL'
            Footers = <>
            Title.Caption = #1042#1072#1083#1102#1090#1085#1099#1081' '#1091#1095#1077#1090
            Width = 92
          end>
      end
    end
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <>
    ReadOnly = True
    OEMTranslate = False
    Left = 45
    Top = 88
  end
  object ADS: xbADSDataSource
    DataSet = DS
    Left = 93
    Top = 90
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_FIN_OBJ'
    Active = False
    Left = 143
    Top = 91
  end
end
frmFinObj.prg                                                        29477object frmFinObj: TfrmFinObj
  Left = 25
  Top = 25
  Width = 640
  Height = 432
  ActiveControl = leObjCode
  Anchors = []
  Caption = #1041#1077#1079#1085#1072#1083#1080#1095#1085#1099#1077' '#1076#1077#1085#1077#1078#1085#1099#1077' '#1089#1088#1077#1076#1089#1090#1074#1072
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  WindowState = wsNormal
  OnCloseQuery = Form_CloseQuery
  OnCreate = Form_Create
  DesignSize = (
    632
    398)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 8
    Top = 8
    Width = 618
    Height = 359
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    object TabSheet1: TTabSheet
      Caption = #1054#1073#1097#1077#1077
      DesignSize = (
        616
        337)
      object lbPartName: xbLabel
        Left = 308
        Top = 102
        Width = 300
        Height = 17
        Anchors = [akLeft, akTop, akRight]
        Caption = 'lbPartName'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
        DataField = 'PART_SHORTNAME'
        DataSource = ADS
      end
      object lbAcntNum: xbLabel
        Left = 308
        Top = 52
        Width = 300
        Height = 17
        Anchors = [akLeft, akTop, akRight]
        Caption = 'lbAcntNum'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
        DataField = 'ACNT_NAME'
        DataSource = ADS
      end
      object lbPrtAcntNum: xbLabel
        Left = 308
        Top = 126
        Width = 300
        Height = 17
        Anchors = [akLeft, akTop, akRight]
        Caption = 'lbPrtAcntNum'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
        DataField = 'PRTACNT_BANK'
        DataSource = ADS
      end
      object lbPrtAcnt2Num: xbLabel
        Left = 308
        Top = 151
        Width = 300
        Height = 17
        Anchors = [akLeft, akTop, akRight]
        Caption = 'lbPrtAcnt2Num'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
        DataField = 'PRTACNT2_BANK'
        DataSource = ADS
      end
      object lbFIOK: xbLabel
        Left = 308
        Top = 236
        Width = 300
        Height = 17
        Anchors = [akLeft, akTop, akRight]
        Caption = 'lbFIOK'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
        DataField = 'FIOK'
        DataSource = ADS
      end
      object lbFIOB: xbLabel
        Left = 308
        Top = 270
        Width = 300
        Height = 17
        Anchors = [akLeft, akTop, akRight]
        Caption = 'lbFIOB'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
        DataField = 'FIOB'
        DataSource = ADS
      end
      object lbFO: xbLabel
        Left = 308
        Top = 176
        Width = 180
        Height = 17
        Anchors = [akLeft, akTop, akRight]
        Caption = 'lbFO'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
        DataField = 'FO_SHORTNAME'
        DataSource = ADS
      end
      object lbGlavName: xbLabel
        Left = 308
        Top = 200
        Width = 300
        Height = 17
        Anchors = [akLeft, akTop, akRight]
        Caption = 'lbGlavName'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
        DataField = 'RASP_ORGNAME'
        DataSource = ADS
      end
      object lerPartCode: xbLabelEditRefer
        Left = 8
        Top = 99
        Width = 290
        Height = 21
        BorderColor = clWindowText
        Caption = #1055#1088#1077#1076#1087#1088#1080#1103#1090#1080#1077
        CaptionAlignment = taLeftJustify
        DataField = 'PART_CODE'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 4
        LabelWidth = 150
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnChange = lerPartCode_Change
        OnEnter = lerPartCode_Enter
        OnExit = lerPartCode_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'CARD_ID'
        BeforeButtonClick = lerPartCode_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'CODE;-1;100;1;0;'#1050#1086#1076'|SORTNAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldName = 'CODE'
        FindFieldType = tfCharacterString
        OutFieldsArray = 'PART_ID'
        PutFieldsArray = 'CARD_ID'
        ReferCaption = #1057#1087#1080#1089#1086#1082
        ReferWidth = 450
        TypeFindFieldName = 'CODE'
        xReferId = 0
        IsHarbourRefer = True
        OnSelect = lerPartCode_Select
      end
      object cbVal: xbCheckBox
        Left = 6
        Top = 29
        Width = 164
        Height = 21
        Caption = #1042#1072#1083#1102#1090#1085#1099#1081' '#1091#1095#1077#1090' . . . . . . . . . .'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 2
        TabStop = True
        OnClick = cbVal_Click
        ValueChecked = '1'
        ValueUnchecked = '0'
        DataField = 'VAL'
        DataSource = ADS
      end
      object leObjCode: xbLabelEdit
        Left = 8
        Top = 8
        Width = 290
        Height = 21
        BorderColor = clWindowText
        Caption = #1054#1073#1098#1077#1082#1090' '#1091#1095#1077#1090#1072
        CaptionAlignment = taLeftJustify
        DataField = 'OBJ_CODE'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 0
        LabelWidth = 150
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnChange = leObjCode_Change
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leObjName: xbLabelEdit
        Left = 308
        Top = 8
        Width = 300
        Height = 21
        Anchors = [akLeft, akTop, akRight]
        BorderColor = clWindowText
        CaptionAlignment = taLeftJustify
        DataField = 'OBJ_NAME'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 1
        LabelWidth = 0
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object lerAcntNum: xbLabelEditRefer
        Left = 9
        Top = 49
        Width = 290
        Height = 21
        BorderColor = clWindowText
        Caption = #1041#1091#1093#1075#1072#1083#1090#1077#1088#1089#1082#1080#1081' '#1089#1095#1077#1090' '#1091#1095#1077#1090#1072
        CaptionAlignment = taLeftJustify
        DataField = 'ACNT_NUM'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 3
        LabelWidth = 150
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'ACNT_NUM'
        BeforeButtonClick = lerAcntNum_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'SCHET;-1;50;1;-1;'#1050#1086#1076'|NAME_SCH;-1;200;1;-1;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldName = 'SCHET'
        FindFieldType = tfCharacterString
        OutFieldsArray = 'SCHET'
        PutFieldsArray = 'ACNT_NUM'
        ReferCaption = #1041#1091#1093#1075#1072#1083#1090#1077#1088#1089#1082#1080#1081' '#1089#1095#1077#1090' '#1091#1095#1077#1090#1072
        TypeFindFieldName = 'SCHET'
        xReferId = 0
        IsHarbourRefer = False
      end
      object lerAcnt: xbLabelEditRefer
        Left = 8
        Top = 124
        Width = 290
        Height = 21
        BorderColor = clWindowText
        Caption = #1057#1095#1077#1090' '#1074' '#1073#1072#1085#1082#1077
        CaptionAlignment = taLeftJustify
        DataField = 'PRTACNT_NUM'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 5
        LabelWidth = 150
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnEnter = lerAcnt_Enter
        OnExit = lerAcnt_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'ACNT_ID'
        BeforeButtonClick = lerAcnt_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'Accnt;-1;50;1;-1;'#1057#1095#1077#1090'|GetBankName;-1;150;1;-1;'#1041#1072#1085#1082
        FindFieldName = 'ACCNT'
        FindFieldType = tfCharacterString
        ListDataSet = DSPrtAcnt
        OutFieldsArray = 'REC_ID'
        PutFieldsArray = 'ACNT_ID'
        ReferCaption = #1057#1095#1077#1090' '#1074' '#1073#1072#1085#1082#1077
        TypeFindFieldName = 'ACCNT'
        xReferId = 0
        IsHarbourRefer = True
      end
      object lerAcnt2: xbLabelEditRefer
        Left = 8
        Top = 149
        Width = 290
        Height = 21
        BorderColor = clWindowText
        Caption = #1056#1072#1089#1095#1077#1090#1085#1099#1081' '#1089#1095#1077#1090' '#1054#1060#1050
        CaptionAlignment = taLeftJustify
        DataField = 'PRTACNT2_NUM'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 6
        LabelWidth = 150
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnChange = lerAcnt2_Change
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'ACNT2_ID'
        BeforeButtonClick = lerAcnt2_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'Accnt;-1;50;1;-1;'#1057#1095#1077#1090'|GetBankName;-1;150;1;-1;'#1041#1072#1085#1082
        FindFieldName = 'ACCNT'
        FindFieldType = tfCharacterString
        ListDataSet = DSPrtAcnt2
        OutFieldsArray = 'REC_ID'
        PutFieldsArray = 'ACNT2_ID'
        ReferCaption = #1057#1095#1077#1090' '#1074' '#1073#1072#1085#1082#1077
        TypeFindFieldName = 'ACCNT'
        xReferId = 0
        IsHarbourRefer = True
      end
      object cbKB: xbCheckBox
        Left = 6
        Top = 218
        Width = 164
        Height = 21
        Caption = #1057#1074#1103#1079#1100' '#1089' '#1050#1083#1080#1077#1085#1090'-'#1073#1072#1085#1082#1086#1084' . . . . . . . . . .'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 10
        TabStop = True
        ValueChecked = '1'
        ValueUnchecked = '0'
        DataField = 'KB'
        DataSource = ADS
      end
      object lebInDir: xbLabelEditButton
        Left = 8
        Top = 286
        Width = 600
        Height = 21
        Anchors = [akLeft, akTop, akRight]
        BorderColor = clWindowText
        Caption = #1044#1080#1088#1077#1082#1090#1086#1088#1080#1103' '#1076#1083#1103' '#1080#1084#1087#1086#1088#1090#1072
        CaptionAlignment = taLeftJustify
        DataField = 'IN_DIR'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 11
        LabelWidth = 150
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2;Alt+Down'
        ClearFields = 'IN_DIR'
        BeforeButtonClick = lebInDir_BeforeButtonClick
        VisibleButton = True
      end
      object lebOutDir: xbLabelEditButton
        Left = 8
        Top = 310
        Width = 600
        Height = 21
        Anchors = [akLeft, akTop, akRight]
        BorderColor = clWindowText
        Caption = #1044#1080#1088#1077#1082#1090#1086#1088#1080#1103' '#1076#1083#1103' '#1101#1082#1089#1087#1086#1088#1090#1072
        CaptionAlignment = taLeftJustify
        DataField = 'OUT_DIR'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 12
        LabelWidth = 150
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2;Alt+Down'
        ClearFields = 'OUT_DIR'
        BeforeButtonClick = lebOutDir_BeforeButtonClick
        VisibleButton = True
      end
      object lerTabNK: xbLabelEditRefer
        Left = 256
        Top = 179
        Width = 290
        Height = 21
        BorderColor = clWindowText
        Caption = #1058#1072#1073#1077#1083#1100#1085#1099#1081' '#8470' '#1082#1072#1089#1089#1080#1088#1072
        CaptionAlignment = taLeftJustify
        DataField = 'TABNK'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 13
        LabelWidth = 150
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'TABNK'
        BeforeButtonClick = lerTabNK_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 
          'CODE;-1;50;1;-1;'#1058#1072#1073'.'#8470'|SHORTNAME;-1;120;1;-1;'#1060#1072#1084#1080#1083#1080#1103'|name1;-1;100' +
          ';1;-1;'#1048#1084#1103'|Name2;-1;150;1;-1;'#1054#1090#1095#1077#1089#1090#1074#1086
        FindFieldName = 'CODE'
        FindFieldType = tfCharacterString
        ListDataSet = dsTabNK
        OutFieldsArray = 'CODE'
        PutFieldsArray = 'TABNK'
        ReferCaption = #1057#1087#1088#1072#1074#1086#1095#1085#1080#1082' '#1089#1086#1090#1088#1091#1076#1085#1080#1082#1086#1074
        TypeFindFieldName = 'CODE'
        xReferId = 0
        IsHarbourRefer = True
      end
      object lerTabNB: xbLabelEditRefer
        Left = 256
        Top = 211
        Width = 290
        Height = 21
        BorderColor = clWindowText
        Caption = #1058#1072#1073#1077#1083#1100#1085#1099#1081' '#8470' '#1073#1091#1093#1075#1072#1083#1090#1077#1088#1072
        CaptionAlignment = taLeftJustify
        DataField = 'TABNB'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 14
        LabelWidth = 150
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'TABNB'
        BeforeButtonClick = lerTabNK_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 
          'CODE;-1;50;1;-1;'#1058#1072#1073'.'#8470'|SHORTNAME;-1;120;1;-1;'#1060#1072#1084#1080#1083#1080#1103'|name1;-1;100' +
          ';1;-1;'#1048#1084#1103'|Name2;-1;150;1;-1;'#1054#1090#1095#1077#1089#1090#1074#1086
        FindFieldName = 'CODE'
        FindFieldType = tfCharacterString
        ListDataSet = dsTabNB
        OutFieldsArray = 'CODE'
        PutFieldsArray = 'TABNB'
        ReferCaption = #1057#1087#1088#1072#1074#1086#1095#1085#1080#1082' '#1089#1086#1090#1088#1091#1076#1085#1080#1082#1086#1074
        TypeFindFieldName = 'CODE'
        xReferId = 0
        IsHarbourRefer = True
      end
      object leInCode: xbLabelCombo
        Left = 8
        Top = 238
        Width = 290
        Height = 21
        ParentBackGround = True
        Caption = #1050#1086#1076' '#1089#1090#1072#1085#1076#1072#1088#1090#1072' '#1076#1083#1103' '#1080#1084#1087#1086#1088#1090#1072
        TabOrder = 15
        LabelWidth = 150
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Sorted = False
        EditColor = clWindow
        DisabledColor = clBlack
        DisabledFontColor = clBlack
        BorderColor = clBlack
        AutoComplete = False
        Style = csDropDown
        CharCase = ecNormal
        DropDownCount = 0
        ItemHeight = 0
        MaxLength = 0
        ItemIndex = -1
        UseStandartHint = True
      end
      object leOutCode: xbLabelCombo
        Left = 8
        Top = 262
        Width = 290
        Height = 21
        ParentBackGround = True
        Caption = #1050#1086#1076' '#1089#1090#1072#1085#1076#1072#1088#1090#1072' '#1076#1083#1103' '#1101#1082#1089#1087#1086#1088#1090#1072
        TabOrder = 16
        LabelWidth = 150
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Sorted = False
        EditColor = clWindow
        DisabledColor = clBlack
        DisabledFontColor = clBlack
        BorderColor = clBlack
        AutoComplete = False
        Style = csDropDown
        CharCase = ecNormal
        DropDownCount = 0
        ItemHeight = 0
        MaxLength = 0
        ItemIndex = -1
        UseStandartHint = True
      end
      object lerFO: xbLabelEditRefer
        Left = 8
        Top = 173
        Width = 290
        Height = 21
        BorderColor = clWindowText
        Caption = #1060#1080#1085'. '#1086#1088#1075#1072#1085
        CaptionAlignment = taLeftJustify
        DataField = 'FO_COD_BUD_P'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 7
        LabelWidth = 150
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'FO_ID'
        BeforeButtonClick = lerFO_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'CODE;-1;100;1;0;'#1050#1086#1076'|SORTNAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldName = 'COD_BUD_P'
        FindFieldType = tfCharacterString
        OutFieldsArray = 'PART_ID'
        PutFieldsArray = 'FO_ID'
        ReferCaption = #1057#1087#1080#1089#1086#1082
        ReferWidth = 450
        TypeFindFieldName = 'COD_BUD_P'
        xReferId = 0
        IsHarbourRefer = True
      end
      object lerBudLev: xbLabelEditRefer
        Left = 498
        Top = 173
        Width = 110
        Height = 21
        BorderColor = clWindowText
        Caption = #1041#1102#1076#1078#1077#1090
        CaptionAlignment = taLeftJustify
        DataField = 'BUD_LEV'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 8
        LabelWidth = 50
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'BUD_LEV'
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'CODE;-1;100;1;0;'#1050#1086#1076'|NAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldName = 'BUD_LEV'
        FindFieldType = tfCharacterString
        ListDataSet = DSBudLev
        OutFieldsArray = 'CODE'
        PutFieldsArray = 'BUD_LEV'
        ReferCaption = #1057#1087#1080#1089#1086#1082
        ReferWidth = 450
        TypeFindFieldName = 'BUD_LEV'
        xReferId = 0
        IsHarbourRefer = True
      end
      object lerGlavCode: xbLabelEditRefer
        Left = 8
        Top = 197
        Width = 290
        Height = 21
        BorderColor = clWindowText
        Caption = #1043#1083#1072#1074#1085#1099#1081' '#1088#1072#1089#1087#1086#1088#1103#1076#1080#1090#1077#1083#1100
        CaptionAlignment = taLeftJustify
        DataField = 'RASP_COD_BUD_P'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 9
        LabelWidth = 150
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'R_ID'
        BeforeButtonClick = lerGlavCode_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'CODE;-1;100;1;0;'#1050#1086#1076'|SORTNAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldName = 'COD_BUD_P'
        FindFieldType = tfCharacterString
        OutFieldsArray = 'PART_ID'
        PutFieldsArray = 'R_ID'
        ReferCaption = #1057#1087#1080#1089#1086#1082
        ReferWidth = 450
        TypeFindFieldName = 'COD_BUD_P'
        xReferId = 0
        IsHarbourRefer = True
      end
    end
  end
  object btAnalRas: xbButton
    Left = 340
    Top = 376
    Width = 120
    Height = 21
    Caption = #1040#1085#1072#1083#1080#1090#1080#1082#1072' '#1088#1072#1089#1093#1086#1076#1086#1074
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 2
    OnClick = btAnalRas_Click
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btnOK: xbButton
    Left = 468
    Top = 376
    Width = 75
    Height = 21
    Hint = #1057#1086#1093#1088#1072#1085#1077#1085#1080#1077' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (F10)'
    Caption = #1054#1050
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 3
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btnCANCEL: xbButton
    Left = 551
    Top = 376
    Width = 75
    Height = 21
    Hint = #1042#1099#1093#1086#1076' '#1080#1079' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (Esc)'
    Caption = #1054#1090#1084#1077#1085#1072
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 4
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btAnalDoh: xbButton
    Left = 212
    Top = 376
    Width = 120
    Height = 21
    Caption = #1040#1085#1072#1083#1080#1090#1080#1082#1072' '#1076#1086#1093#1086#1076#1086#1074
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 1
    OnClick = btAnalDoh_Click
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btAnalIst: xbButton
    Left = 84
    Top = 376
    Width = 120
    Height = 21
    Caption = #1040#1085#1072#1083#1080#1090#1080#1082#1072' '#1080#1089#1090#1086#1095#1085#1080#1082#1086#1074
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 5
    OnClick = btAnalIst_Click
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <>
    OEMTranslate = False
    AfterRefresh = DS_AfterRefresh
    Left = 109
    Top = 3
  end
  object ADS: xbADSDataSource
    DataSet = DS
    Left = 145
    Top = 3
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_FIN_OBJ'
    Active = False
    Left = 72
    Top = 3
  end
  object OpenDialog1: xbOpenDialog
    Left = 481
    Top = 7
  end
  object DSPrtAcnt: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOPrtAcnt
    FieldDefs = <>
    OEMTranslate = False
    AfterRefresh = DS_AfterRefresh
    Left = 401
    Top = 75
  end
  object BOPrtAcnt: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPartnerAccnt'
    Active = False
    Left = 343
    Top = 75
  end
  object BOPrtAcnt2: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPartnerAccnt'
    Active = False
    Left = 346
    Top = 130
  end
  object DSPrtAcnt2: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOPrtAcnt
    FieldDefs = <>
    OEMTranslate = False
    AfterRefresh = DS_AfterRefresh
    Left = 406
    Top = 130
  end
  object BOTabNK: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPeople'
    Active = False
    Left = 197
    Top = 269
  end
  object dsTabNK: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOTabNK
    FieldDefs = <>
    OEMTranslate = False
    Left = 257
    Top = 269
  end
  object BOTabNB: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPeople'
    Active = False
    Left = 315
    Top = 269
  end
  object dsTabNB: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOTabNB
    FieldDefs = <>
    OEMTranslate = False
    Left = 373
    Top = 269
  end
  object BOBudLev: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_BUD_LEV'
    Active = False
    Left = 470
    Top = 76
  end
  object DSBudLev: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOBudLev
    FieldDefs = <>
    OEMTranslate = False
    Left = 523
    Top = 76
  end
end
frmDimTune.prg                                                        3371object frmDimTune: TfrmDimTune
  Left = 25
  Top = 25
  Width = 618
  Height = 334
  ActiveControl = GridDimTune
  Anchors = []
  Caption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  WindowState = wsNormal
  DesignSize = (
    610
    300)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 8
    Top = 8
    Width = 594
    Height = 286
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    object TabSheet1: TTabSheet
      Caption = #1056#1077#1077#1089#1090#1088
      DesignSize = (
        592
        264)
      object GridDimTune: xbGrid
        Left = 6
        Top = 6
        Width = 580
        Height = 252
        Anchors = [akLeft, akTop, akRight, akBottom]
        AutoFitColWidths = True
        DataSource = adsReestr
        Flat = True
        FooterColor = clWindow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -11
        FooterFont.Name = 'MS Sans Serif'
        FooterFont.Style = []
        Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgConfirmDelete]
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        UseMultiTitle = True
        OnDblClick = GridDimTune_DblClick
        OnKeyPress = GridDimTune_KeyPress
        IdGrid = '{F7750EE4-4F0F-4342-ACFC-EFDD2D60FD07}'#39
        Columns = <
          item
            EditButtons = <>
            FieldName = 'DIM_NAME'
            Footers = <>
            Title.Caption = #1048#1079#1084#1077#1088#1077#1085#1080#1077
            Width = 342
          end
          item
            Alignment = taRightJustify
            EditButtons = <>
            FieldName = 'ORDER'
            Footers = <>
            Title.Caption = #1053#1086#1084#1077#1088' '#1089#1077#1075#1084#1077#1085#1090#1072
            Width = 62
          end
          item
            Alignment = taCenter
            EditButtons = <>
            FieldName = 'SYMBOL'
            Footers = <>
            Title.Caption = #1056#1072#1079#1076#1077#1083#1080#1090#1077#1083#1100
            Width = 75
          end
          item
            EditButtons = <>
            FieldName = 'ISINPUT'
            Footers = <>
            Title.Caption = #1054#1073#1103#1079#1072#1090#1077#1083#1100#1085#1099#1081' '#1074#1074#1086#1076
            Width = 83
          end>
      end
    end
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_DIM_TUNE'
    Active = False
    Left = 169
    Top = 127
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <>
    ReadOnly = True
    OEMTranslate = False
    Left = 221
    Top = 127
  end
  object adsReestr: xbADSDataSource
    DataSet = DS
    Left = 277
    Top = 127
  end
end
frmDimTuneK.prg                                                       6907object frmDimTuneK: TfrmDimTuneK
  Left = 25
  Top = 25
  Width = 477
  Height = 196
  ActiveControl = lerDimAnl
  Anchors = []
  Caption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  WindowState = wsNormal
  OnActivate = Form_Activate
  OnClose = Form_Close
  OnCloseQuery = Form_CloseQuery
  OnCreate = Form_Create
  DesignSize = (
    469
    162)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 8
    Top = 8
    Width = 453
    Height = 118
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    object TabSheet1: TTabSheet
      Caption = #1054#1073#1097#1077#1077
      DesignSize = (
        451
        96)
      object bLabel1: xbLabel
        Left = 246
        Top = 8
        Width = 196
        Height = 21
        Anchors = [akLeft, akTop, akRight]
        Caption = 'bLabel1'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
        DataField = 'DIM_NAME'
        DataSource = ADS
      end
      object lerDimAnl: xbLabelEditRefer
        Left = 6
        Top = 8
        Width = 230
        Height = 21
        BorderColor = clWindowText
        Caption = #1048#1079#1084#1077#1088#1077#1085#1080#1077
        CaptionAlignment = taLeftJustify
        DataField = 'DIM_CODE'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 0
        LabelWidth = 120
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'DIM_ID'
        BeforeButtonClick = lerDimAnl_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'CODE;-1;100;1;0;'#1050#1086#1076'|NAME;-1;350;1;0;'#1053#1072#1079#1074#1072#1085#1080#1077
        FindFieldName = 'CODE'
        FindFieldType = tfCharacterString
        ListDataSet = DSDIM
        OutFieldsArray = 'DIM_ID'
        PutFieldsArray = 'DIM_ID'
        ReferCaption = #1057#1087#1080#1089#1086#1082
        ReferHeight = 300
        TypeFindFieldName = 'CODE'
        xReferId = 0
        IsHarbourRefer = True
        OnSelect = lerDimAnl_Select
      end
      object lecNumSeg: xbLabelEditCalc
        Left = 6
        Top = 32
        Width = 230
        Height = 21
        BorderColor = clWindowText
        Caption = #1055#1086#1088#1103#1076#1082#1086#1074#1099#1081' '#1085#1086#1084#1077#1088
        CaptionAlignment = taLeftJustify
        DataField = 'ORDER'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 1
        LabelWidth = 120
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        ReadOnly = True
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        EnabledButton = False
        VisibleButton = False
      end
      object cbIsInput: xbCheckBox
        Left = 5
        Top = 54
        Width = 136
        Height = 17
        Caption = #1054#1073#1103#1079#1072#1090#1077#1083#1100#1085#1099#1081' '#1074#1074#1086#1076' . . . . . . . . . . . . . . . . . . . .'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Layout = checkboxRight
        ParentFont = False
        TabOrder = 2
        TabStop = True
        ValueChecked = 'True'
        ValueUnchecked = 'False'
        DataField = 'ISINPUT'
        DataSource = ADS
      end
      object cbIsDet: xbCheckBox
        Left = 6
        Top = 74
        Width = 136
        Height = 17
        Caption = #1044#1077#1090#1072#1083#1080#1079#1080#1088#1091#1077#1090#1089#1103' . . . . . . . . . . . . . . . . . . . .'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Layout = checkboxRight
        ParentFont = False
        TabOrder = 3
        TabStop = True
        OnClick = cbIsDet_Click
        ValueChecked = 'True'
        ValueUnchecked = 'False'
        DataField = 'IS_DET'
        DataSource = ADS
      end
    end
  end
  object btnOK: xbButton
    Left = 302
    Top = 134
    Width = 75
    Height = 21
    Hint = #1057#1086#1093#1088#1072#1085#1077#1085#1080#1077' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (F10)'
    Caption = #1054#1050
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 1
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btnCANCEL: xbButton
    Left = 389
    Top = 134
    Width = 75
    Height = 21
    Hint = #1042#1099#1093#1086#1076' '#1080#1079' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (Esc)'
    Caption = #1054#1090#1084#1077#1085#1072
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 2
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_DIM_TUNE'
    Active = False
    Left = 326
    Top = 53
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <>
    OEMTranslate = False
    AfterEdit = DS_AfterEdit
    Left = 403
    Top = 51
  end
  object ADS: xbADSDataSource
    DataSet = DS
    Left = 366
    Top = 52
  end
  object DSDIM: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'dim_anl'
    OEMTranslate = False
    IndexName = 'CODE_GROUP'
    Left = 286
    Top = 55
  end
end
frmMoveTpRee.prg                                                      6004object MoveTp: TMoveTp
  Left = 25
  Top = 25
  Width = 650
  Height = 404
  ActiveControl = bGrid1
  Anchors = []
  Caption = #1042#1080#1076#1099' '#1076#1074#1080#1078#1077#1085#1080#1103' '#1076#1077#1085#1077#1078#1085#1099#1093' '#1089#1088#1077#1076#1089#1090#1074
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  WindowState = wsNormal
  OnCreate = Form_Create
  OnInnerEvent = Form_InnerEvent
  DesignSize = (
    642
    370)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 8
    Top = 8
    Width = 626
    Height = 361
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    object TabSheet1: TTabSheet
      Caption = #1056#1077#1077#1089#1090#1088
      DesignSize = (
        624
        339)
      object bGrid1: xbGrid
        Left = 9
        Top = 35
        Width = 608
        Height = 297
        Anchors = [akLeft, akTop, akRight, akBottom]
        AutoFitColWidths = True
        DataSource = ADS
        Flat = True
        FooterColor = clWindow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -11
        FooterFont.Name = 'MS Sans Serif'
        FooterFont.Style = []
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        UseMultiTitle = True
        OnDblClick = bGrid1_DblClick
        OnKeyPress = bGrid1_KeyPress
        OnTitleClick = bGrid1_TitleClick
        IdGrid = '{A4032136-26E8-4351-AFB4-52CA24E3212C}'#39
        Columns = <
          item
            EditButtons = <>
            FieldName = 'MV_CODE'
            Footers = <>
            Title.Caption = #1050#1086#1076
            Width = 30
          end
          item
            EditButtons = <>
            FieldName = 'MV_NAME'
            Footers = <>
            Title.Caption = #1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
            Width = 195
          end
          item
            EditButtons = <>
            FieldName = 'FIN_CTG_NAME'
            Footers = <>
            Title.Caption = #1050#1072#1090#1077#1075#1086#1088#1080#1103
            Width = 70
          end
          item
            EditButtons = <>
            FieldName = 'DIR_NAME'
            Footers = <>
            Title.Caption = #1053#1072#1087#1088#1072#1074#1083#1077#1085#1080#1077' '#1076#1074#1080#1078#1077#1085#1080#1103
            Width = 75
          end
          item
            EditButtons = <>
            FieldName = 'PRT_TP_NAME'
            Footers = <>
            Title.Caption = #1058#1080#1087' '#1082#1086#1085#1090#1088#1072#1075#1077#1085#1090#1072
            Width = 70
          end
          item
            EditButtons = <>
            FieldName = 'IS_RET'
            Footers = <>
            Title.Caption = #1054#1087#1077#1088#1072#1094#1080#1103'|'#1074#1086#1079#1074#1088#1072#1090#1072
            Width = 55
          end
          item
            Checkboxes = False
            EditButtons = <>
            FieldName = 'ISBUD_NAME'
            Footers = <>
            Title.Caption = #1054#1087#1077#1088#1072#1094#1080#1103'|'#1073#1102#1076#1078#1077#1090
            Width = 92
          end>
      end
      object LblCbFinCtg: xbLabelCombo
        Left = 8
        Top = 8
        Width = 270
        Height = 21
        ParentBackGround = True
        Caption = #1050#1072#1090#1077#1075#1086#1088#1080#1103'          '
        TabOrder = 1
        LabelWidth = 60
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Sorted = False
        EditColor = clWindow
        DisabledColor = clBlack
        DisabledFontColor = clBlack
        BorderColor = clWindowText
        AutoComplete = False
        Style = csDropDownList
        CharCase = ecNormal
        DropDownCount = 0
        ItemHeight = 0
        MaxLength = 0
        ItemIndex = -1
        UseStandartHint = True
        OnSelect = LblCbFinCtg_Select
      end
      object LblCbDir: xbLabelCombo
        Left = 296
        Top = 8
        Width = 270
        Height = 21
        ParentBackGround = True
        Caption = #1053#1072#1087#1088#1072#1074#1083#1077#1085#1080#1077' '#1076#1074#1080#1078#1077#1085#1080#1103'          '
        TabOrder = 2
        LabelWidth = 130
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Sorted = False
        EditColor = clWindow
        DisabledColor = clBlack
        DisabledFontColor = clBlack
        BorderColor = clWindowText
        AutoComplete = False
        Style = csDropDownList
        CharCase = ecNormal
        DropDownCount = 0
        ItemHeight = 0
        MaxLength = 0
        ItemIndex = -1
        UseStandartHint = True
        OnSelect = LblCbDir_Select
      end
    end
  end
  object ADS: xbADSDataSource
    DataSet = DS
    Left = 35
    Top = 109
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <>
    OEMTranslate = False
    AfterInsert = DS_AfterInsert
    OnUpdateRecord = DS_UpdateRecord
    Left = 78
    Top = 110
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_MOVE_TP'
    Active = False
    Left = 119
    Top = 110
  end
end
frmReasonsRee.prg                                                     4812object Reasons: TReasons
  Left = 25
  Top = 25
  Width = 650
  Height = 404
  ActiveControl = bGrid1
  Anchors = []
  Caption = #1054#1089#1085#1086#1074#1072#1085#1080#1103' '#1087#1083#1072#1090#1077#1078#1072
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  WindowState = wsNormal
  OnInnerEvent = Form_InnerEvent
  DesignSize = (
    642
    370)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 8
    Top = 8
    Width = 626
    Height = 361
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    object TabSheet1: TTabSheet
      Caption = #1056#1077#1077#1089#1090#1088
      DesignSize = (
        624
        339)
      object bGrid1: xbGrid
        Left = 8
        Top = 35
        Width = 608
        Height = 297
        Anchors = [akLeft, akTop, akRight, akBottom]
        AutoFitColWidths = True
        DataSource = ADS
        Flat = True
        FooterColor = clWindow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -11
        FooterFont.Name = 'MS Sans Serif'
        FooterFont.Style = []
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        UseMultiTitle = True
        IdGrid = '{DBBBA7C7-B2F6-4164-B563-614831090B9B}'#39
        Columns = <
          item
            EditButtons = <>
            FieldName = 'FIN_CTG_NAME'
            Footers = <>
            Title.Caption = #1050#1072#1090#1077#1075#1086#1088#1080#1103
            Width = 99
          end
          item
            EditButtons = <>
            FieldName = 'DIR_NAME'
            Footers = <>
            Title.Caption = #1053#1072#1087#1088#1072#1074#1083#1077#1085#1080#1077' '#1076#1074#1080#1078#1077#1085#1080#1103
            Width = 99
          end
          item
            EditButtons = <>
            FieldName = 'TEXT'
            Footers = <>
            Title.Caption = #1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
            Width = 393
          end>
      end
      object LblCbFinCtg: xbLabelCombo
        Left = 8
        Top = 8
        Width = 270
        Height = 21
        ParentBackGround = True
        Caption = #1050#1072#1090#1077#1075#1086#1088#1080#1103'          '
        TabOrder = 1
        LabelWidth = 60
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Sorted = False
        EditColor = clWindow
        DisabledColor = clBlack
        DisabledFontColor = clBlack
        BorderColor = clWindowText
        AutoComplete = False
        Style = csDropDownList
        CharCase = ecNormal
        DropDownCount = 0
        ItemHeight = 0
        MaxLength = 0
        ItemIndex = -1
        UseStandartHint = True
        OnSelect = LblCbFinCtg_Select
      end
      object LblCbDir: xbLabelCombo
        Left = 296
        Top = 8
        Width = 270
        Height = 21
        ParentBackGround = True
        Caption = #1053#1072#1087#1088#1072#1074#1083#1077#1085#1080#1077' '#1076#1074#1080#1078#1077#1085#1080#1103'          '
        TabOrder = 2
        LabelWidth = 130
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Sorted = False
        EditColor = clWindow
        DisabledColor = clBlack
        DisabledFontColor = clBlack
        BorderColor = clWindowText
        AutoComplete = False
        Style = csDropDownList
        CharCase = ecNormal
        DropDownCount = 0
        ItemHeight = 0
        MaxLength = 0
        ItemIndex = -1
        UseStandartHint = True
        OnSelect = LblCbDir_Select
      end
    end
  end
  object ADS: xbADSDataSource
    DataSet = DS
    Left = 35
    Top = 109
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <>
    OEMTranslate = False
    AfterInsert = DS_AfterInsert
    OnUpdateRecord = DS_UpdateRecord
    Left = 78
    Top = 110
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_REASONS'
    Active = False
    Left = 119
    Top = 110
  end
end
frmMoveTp.prg                                                        16409object frmMoveTp: TfrmMoveTp
  Left = 25
  Top = 25
  Width = 540
  Height = 401
  ActiveControl = leObjCode
  Anchors = []
  Caption = #1042#1080#1076#1099' '#1076#1074#1080#1078#1077#1085#1080#1103' '#1076#1077#1085#1077#1078#1085#1099#1093' '#1089#1088#1077#1076#1089#1090#1074
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  WindowState = wsNormal
  OnCloseQuery = Form_CloseQuery
  OnCreate = Form_Create
  DesignSize = (
    532
    367)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 8
    Top = 8
    Width = 518
    Height = 328
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    object TabSheet1: TTabSheet
      Caption = #1054#1073#1097#1077#1077
      OnStartDrag = TabSheet1_StartDrag
      DesignSize = (
        516
        306)
      object lbPrtAcnt2Num: xbLabel
        Left = 288
        Top = 195
        Width = 220
        Height = 17
        Anchors = [akLeft, akTop, akRight]
        Caption = 'lbRefName'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
        OnClick = lbPrtAcnt2Num_Click
        DataField = 'MOVE_TP_REF_NAME'
        DataSource = ADS
      end
      object cbSys: xbCheckBox
        Left = 398
        Top = 83
        Width = 110
        Height = 21
        Caption = #1057#1080#1089#1090#1077#1084#1085#1099#1081' . . . . . . . . . .'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 5
        TabStop = True
        Anchors = [akTop, akRight]
        ValueChecked = '1'
        ValueUnchecked = '0'
        DataField = 'IS_SYS'
        DataSource = ADS
      end
      object leObjCode: xbLabelEdit
        Left = 8
        Top = 58
        Width = 270
        Height = 21
        BorderColor = clWindowText
        Caption = #1042#1080#1076' '#1076#1074#1080#1078#1077#1085#1080#1103
        CaptionAlignment = taLeftJustify
        DataField = 'MV_CODE'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 0
        LabelWidth = 170
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnChange = leObjCode_Change
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leObjName: xbLabelEdit
        Left = 288
        Top = 58
        Width = 220
        Height = 21
        Anchors = [akLeft, akTop, akRight]
        BorderColor = clWindowText
        CaptionAlignment = taLeftJustify
        DataField = 'MV_NAME'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 1
        LabelWidth = 0
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnChange = leObjName_Change
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object lerRefCode: xbLabelEditRefer
        Left = 8
        Top = 192
        Width = 270
        Height = 21
        BorderColor = clWindowText
        Caption = #1054#1087#1077#1088#1072#1094#1080#1103' '#1080#1089#1090#1086#1095#1085#1080#1082
        CaptionAlignment = taLeftJustify
        DataField = 'REF_CODE'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 8
        LabelWidth = 170
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'REF_CODE'
        BeforeButtonClick = lerRefCode_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'MV_CODE;-1;50;1;-1;'#1050#1086#1076'|MV_NAME;-1;150;1;-1;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldName = 'MV_CODE'
        FindFieldType = tfCharacterString
        ListDataSet = DSRef
        OutFieldsArray = 'MV_CODE'
        PutFieldsArray = 'REF_CODE'
        ReferCaption = #1057#1095#1077#1090' '#1074' '#1073#1072#1085#1082#1077
        TypeFindFieldName = 'MV_CODE'
        xReferId = 0
        IsHarbourRefer = True
      end
      object cbTrans: xbCheckBox
        Left = 8
        Top = 170
        Width = 272
        Height = 21
        Caption = 
          #1058#1088#1072#1085#1089#1092#1077#1088#1085#1072#1103' '#1086#1087#1077#1088#1072#1094#1080#1103' . . . . . . . . . . . . . . . . . . . . . .' +
          ' . . . .'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 7
        TabStop = True
        ValueChecked = '1'
        ValueUnchecked = '0'
        DataField = 'IS_TRANS'
        DataSource = ADS
      end
      object lcbPrtTp: xbLabelCombo
        Left = 8
        Top = 83
        Width = 270
        Height = 21
        ParentBackGround = True
        Caption = #1058#1080#1087' '#1082#1086#1085#1090#1088#1072#1075#1077#1085#1090#1072
        TabOrder = 2
        LabelWidth = 170
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Sorted = False
        EditColor = clWindow
        DisabledColor = clInactiveBorder
        DisabledFontColor = clBlack
        BorderColor = clWindowText
        AutoComplete = False
        Style = csDropDownList
        CharCase = ecNormal
        DropDownCount = 0
        ItemHeight = 0
        MaxLength = 0
        Items.Strings = (
          #1087#1072#1088#1090#1085#1077#1088
          #1089#1086#1090#1088#1091#1076#1085#1080#1082
          #1073#1072#1085#1082
          #1082#1072#1089#1089#1072)
        ItemIndex = -1
        UseStandartHint = True
        OnClick = lcbPrtTp_Click
      end
      object cbRet: xbCheckBox
        Left = 8
        Top = 130
        Width = 272
        Height = 21
        Caption = #1054#1087#1077#1088#1072#1094#1080#1103' '#1074#1086#1079#1074#1088#1072#1090#1072' . . . . . . . . . . . . . . . . . . . . . . .'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 4
        TabStop = True
        ValueChecked = '1'
        ValueUnchecked = '0'
        DataField = 'IS_RET'
        DataSource = ADS
      end
      object lcbAcntTp: xbLabelCombo
        Left = 8
        Top = 108
        Width = 270
        Height = 21
        ParentBackGround = True
        Caption = #1058#1080#1087' '#1086#1073#1098#1077#1082#1090#1072' '#1088#1072#1089#1095#1077#1090#1086#1074
        TabOrder = 3
        LabelWidth = 170
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Sorted = False
        EditColor = clWindow
        DisabledColor = clInactiveBorder
        DisabledFontColor = clBlack
        BorderColor = clWindowText
        AutoComplete = False
        Style = csDropDownList
        CharCase = ecNormal
        DropDownCount = 0
        ItemHeight = 0
        MaxLength = 0
        Items.Strings = (
          #1087#1086#1076#1086#1090#1095#1077#1090
          #1076#1077#1087#1086#1085#1077#1085#1090
          #1087#1088#1086#1095#1080#1077)
        ItemIndex = -1
        UseStandartHint = True
        OnClick = lcbAcntTp_Click
      end
      object cbUse: xbCheckBox
        Left = 398
        Top = 106
        Width = 110
        Height = 21
        Caption = #1048#1089#1087#1086#1083#1100#1079#1091#1077#1090#1089#1103' . . . . . . . . . .'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 6
        TabStop = True
        Anchors = [akTop, akRight]
        ValueChecked = '1'
        ValueUnchecked = '0'
        DataField = 'IS_USE'
        DataSource = ADS
      end
      object cbSPC: xbCheckBox
        Left = 8
        Top = 237
        Width = 272
        Height = 21
        Caption = #1057#1087#1077#1094'. '#1086#1087#1077#1088#1072#1094#1080#1103' '#1089' '#1074#1072#1083#1102#1090#1086#1081' '#1085#1072' '#1088#1091#1073#1083#1077#1074#1086#1084' '#1089#1095#1077#1090#1077' . . .'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 9
        TabStop = True
        ValueChecked = '1'
        ValueUnchecked = '0'
        DataField = 'SPC'
        DataSource = ADS
      end
      object cbSPC_VAL: xbCheckBox
        Left = 8
        Top = 257
        Width = 272
        Height = 21
        Caption = #1057#1087#1077#1094'. '#1086#1087#1077#1088#1072#1094#1080#1103' '#1089' '#1074#1072#1083#1102#1090#1086#1081' '#1085#1072' '#1074#1072#1083#1102#1090#1085#1086#1084' '#1089#1095#1077#1090#1077'. . .'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 10
        TabStop = True
        ValueChecked = '1'
        ValueUnchecked = '0'
        DataField = 'SPC_VAL'
        DataSource = ADS
      end
      object lcbFinCtg: xbLabelCombo
        Left = 8
        Top = 8
        Width = 270
        Height = 21
        ParentBackGround = True
        Caption = #1050#1072#1090#1077#1075#1086#1088#1080#1103' '#1076#1077#1085#1077#1078#1085#1099#1093' '#1089#1088#1077#1076#1089#1090#1074
        TabOrder = 12
        LabelWidth = 170
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Sorted = False
        EditColor = clWindow
        DisabledColor = clInactiveBorder
        DisabledFontColor = clBlack
        BorderColor = clWindowText
        AutoComplete = False
        Style = csDropDownList
        CharCase = ecNormal
        DropDownCount = 0
        ItemHeight = 0
        MaxLength = 0
        Items.Strings = (
          #1073#1077#1079#1085#1072#1083#1080#1095#1085#1099#1077
          #1085#1072#1083#1080#1095#1085#1099#1077)
        ItemIndex = -1
        UseStandartHint = True
        OnClick = lcbFinCtg_Click
      end
      object lcbDir: xbLabelCombo
        Left = 288
        Top = 8
        Width = 220
        Height = 21
        ParentBackGround = True
        Caption = #1053#1072#1087#1088#1072#1074#1083#1077#1085#1080#1077' '#1076#1074#1080#1078#1077#1085#1080#1103
        TabOrder = 13
        LabelWidth = 135
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Sorted = False
        EditColor = clWindow
        DisabledColor = clInactiveBorder
        DisabledFontColor = clBlack
        BorderColor = clWindowText
        AutoComplete = False
        Style = csDropDownList
        CharCase = ecNormal
        DropDownCount = 0
        ItemHeight = 0
        MaxLength = 0
        Items.Strings = (
          #1087#1088#1080#1093#1086#1076
          #1088#1072#1089#1093#1086#1076)
        ItemIndex = -1
        UseStandartHint = True
        OnChange = lcbDir_Change
        OnClick = lcbDir_Click
      end
      object lerBud: xbLabelEditRefer
        Left = 8
        Top = 277
        Width = 270
        Height = 21
        BorderColor = clWindowText
        Caption = #1041#1102#1076#1078#1077#1090
        CaptionAlignment = taLeftJustify
        DataField = 'ISBUD_NAME'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 11
        LabelWidth = 170
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'IS_BUD'
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'ISBUDCODE;-1;50;1;-1;'#1050#1086#1076'|ISBUDNAME;-1;150;1;-1;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldName = 'IS_BUD'
        FindFieldType = tfCharacterString
        ListDataSet = DSRef
        OutFieldsArray = 'ISBUDCODE'
        PutFieldsArray = 'IS_BUD'
        ReferCaption = #1057#1095#1077#1090' '#1074' '#1073#1072#1085#1082#1077
        TypeFindFieldName = 'IS_BUD'
        xReferId = 0
        IsHarbourRefer = True
      end
    end
  end
  object btnOK: xbButton
    Left = 368
    Top = 345
    Width = 75
    Height = 21
    Hint = #1057#1086#1093#1088#1072#1085#1077#1085#1080#1077' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (F10)'
    Caption = #1054#1050
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 1
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btnCANCEL: xbButton
    Left = 451
    Top = 345
    Width = 75
    Height = 21
    Hint = #1042#1099#1093#1086#1076' '#1080#1079' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (Esc)'
    Caption = #1054#1090#1084#1077#1085#1072
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 2
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <>
    OEMTranslate = False
    Left = 109
    Top = 3
  end
  object ADS: xbADSDataSource
    DataSet = DS
    Left = 145
    Top = 3
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_MOVE_TP'
    Active = False
    Left = 72
    Top = 3
  end
  object BORef: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_MOVE_TP'
    Active = False
    Left = 418
    Top = 214
  end
  object DSRef: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BORef
    FieldDefs = <>
    OEMTranslate = False
    AfterRefresh = DS_AfterRefresh
    Left = 469
    Top = 214
  end
  object BOIsBud: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_IS_BUD'
    Active = False
    Left = 420
    Top = 266
  end
  object DSIsBud: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOIsBud
    FieldDefs = <>
    OEMTranslate = False
    AfterRefresh = DS_AfterRefresh
    Left = 471
    Top = 266
  end
end
frmPayDocTypeRee.prg                                                 11008object PayDocType: TPayDocType
  Left = 25
  Top = 25
  Width = 650
  Height = 404
  ActiveControl = bGrid1
  Anchors = []
  Caption = #1042#1080#1076#1099' '#1076#1086#1082#1091#1084#1077#1085#1090#1086#1074
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  WindowState = wsNormal
  OnInnerEvent = Form_InnerEvent
  DesignSize = (
    642
    370)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 8
    Top = 8
    Width = 626
    Height = 361
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    object TabSheet1: TTabSheet
      Caption = #1056#1077#1077#1089#1090#1088
      DesignSize = (
        624
        339)
      object LblCbFinCtg: xbLabelCombo
        Left = 8
        Top = 8
        Width = 270
        Height = 21
        ParentBackGround = True
        Caption = #1050#1072#1090#1077#1075#1086#1088#1080#1103'          '
        TabOrder = 0
        LabelWidth = 60
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Sorted = False
        EditColor = clWindow
        DisabledColor = clBlack
        DisabledFontColor = clBlack
        BorderColor = clWindowText
        AutoComplete = False
        Style = csDropDownList
        CharCase = ecNormal
        DropDownCount = 0
        ItemHeight = 0
        MaxLength = 0
        ItemIndex = -1
        UseStandartHint = True
        OnSelect = LblCbFinCtg_Select
      end
      object LblCbDir: xbLabelCombo
        Left = 296
        Top = 8
        Width = 270
        Height = 21
        ParentBackGround = True
        Caption = #1053#1072#1087#1088#1072#1074#1083#1077#1085#1080#1077' '#1076#1074#1080#1078#1077#1085#1080#1103'          '
        TabOrder = 1
        LabelWidth = 130
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Sorted = False
        EditColor = clWindow
        DisabledColor = clBlack
        DisabledFontColor = clBlack
        BorderColor = clWindowText
        AutoComplete = False
        Style = csDropDownList
        CharCase = ecNormal
        DropDownCount = 0
        ItemHeight = 0
        MaxLength = 0
        ItemIndex = -1
        UseStandartHint = True
        OnSelect = LblCbDir_Select
      end
      object bPanel1: xbPanel
        Left = 8
        Top = 35
        Width = 608
        Height = 297
        Anchors = [akLeft, akTop, akRight, akBottom]
        BevelOuter = bvNone
        Caption = 'bPanel1'
        TabOrder = 2
        object bSpliter1: xbSpliter
          Left = 0
          Top = 162
          Width = 608
          Height = 5
          Cursor = crVSplit
          Align = alTop
        end
        object bPanel3: xbPanel
          Left = 0
          Top = 167
          Width = 608
          Height = 130
          Align = alClient
          BevelOuter = bvNone
          Caption = 'bPanel3'
          TabOrder = 1
          object bGrid2: xbGrid
            Left = 0
            Top = 0
            Width = 608
            Height = 130
            Align = alClient
            AutoFitColWidths = True
            DataSource = adsSTR
            Flat = True
            FooterColor = clWindow
            FooterFont.Charset = DEFAULT_CHARSET
            FooterFont.Color = clWindowText
            FooterFont.Height = -11
            FooterFont.Name = 'MS Sans Serif'
            FooterFont.Style = []
            Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgAlwaysShowSelection, dgConfirmDelete]
            OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghIncSearch]
            ReadOnly = True
            TabOrder = 0
            TitleFont.Charset = DEFAULT_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -11
            TitleFont.Name = 'MS Sans Serif'
            TitleFont.Style = []
            UseMultiTitle = True
            OnDblClick = bGrid2_DblClick
            OnKeyPress = bGrid2_KeyPress
            IdGrid = '{DE2BC80E-3E53-4EC9-BE23-6CFDCF59A961}'
            Columns = <
              item
                EditButtons = <>
                FieldName = 'CODE'
                Footers = <>
                Title.Caption = #1044#1086#1087#1086#1083#1085#1080#1090#1077#1083#1100#1085#1099#1077' '#1088#1077#1082#1074#1080#1079#1080#1090#1099'|'#1082#1086#1076
                Width = 70
              end
              item
                EditButtons = <>
                FieldName = 'NAME'
                Footers = <>
                Title.Caption = #1044#1086#1087#1086#1083#1085#1080#1090#1077#1083#1100#1085#1099#1077' '#1088#1077#1082#1074#1080#1079#1080#1090#1099'|'#1085#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
                Width = 225
              end
              item
                EditButtons = <>
                FieldName = 'TYPE_NAME'
                Footers = <>
                Title.Caption = #1044#1086#1087#1086#1083#1085#1080#1090#1077#1083#1100#1085#1099#1077' '#1088#1077#1082#1074#1080#1079#1080#1090#1099'|'#1090#1080#1087
                Width = 40
              end
              item
                EditButtons = <>
                FieldName = 'LEN'
                Footers = <>
                Title.Caption = #1044#1086#1087#1086#1083#1085#1080#1090#1077#1083#1100#1085#1099#1077' '#1088#1077#1082#1074#1080#1079#1080#1090#1099'|'#1076#1083#1080#1085#1072
                Width = 35
              end
              item
                EditButtons = <>
                FieldName = 'DEC'
                Footers = <>
                Title.Caption = #1044#1086#1087#1086#1083#1085#1080#1090#1077#1083#1100#1085#1099#1077' '#1088#1077#1082#1074#1080#1079#1080#1090#1099'|'#1090#1086#1095'- '#1085#1086#1089#1090#1100
                Width = 35
              end
              item
                EditButtons = <>
                FieldName = 'ISINPUT'
                Footers = <>
                Title.Caption = #1044#1086#1087#1086#1083#1085#1080#1090#1077#1083#1100#1085#1099#1077' '#1088#1077#1082#1074#1080#1079#1080#1090#1099'|'#1086#1073#1103#1079#1072'- '#1090#1077#1083#1100#1085#1086#1089#1090#1100
                Width = 60
              end
              item
                EditButtons = <>
                FieldName = 'ISSYSTEM'
                Footers = <>
                Title.Caption = #1044#1086#1087#1086#1083#1085#1080#1090#1077#1083#1100#1085#1099#1077' '#1088#1077#1082#1074#1080#1079#1080#1090#1099'|'#1089#1080#1089#1090#1077#1084'- '#1085#1099#1081
                Width = 50
              end
              item
                EditButtons = <>
                FieldName = 'HEAD_TP_NAME'
                Footers = <>
                Title.Caption = #1044#1086#1087#1086#1083#1085#1080#1090#1077#1083#1100#1085#1099#1077' '#1088#1077#1082#1074#1080#1079#1080#1090#1099'|'#1074#1074#1086#1076
                Width = 71
              end>
          end
        end
        object bGrid1: xbGrid
          Left = 0
          Top = 0
          Width = 608
          Height = 162
          Align = alTop
          AutoFitColWidths = True
          DataSource = ADS
          Flat = True
          FooterColor = clWindow
          FooterFont.Charset = DEFAULT_CHARSET
          FooterFont.Color = clWindowText
          FooterFont.Height = -11
          FooterFont.Name = 'MS Sans Serif'
          FooterFont.Style = []
          ReadOnly = True
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          UseMultiTitle = True
          IdGrid = '{39D76CD8-9836-4349-8851-3AA074AB6A7B}'
          Columns = <
            item
              EditButtons = <>
              FieldName = 'TP_CODE'
              Footers = <>
              Title.Caption = #1050#1086#1076
              Width = 30
            end
            item
              EditButtons = <>
              FieldName = 'TP_NAME'
              Footers = <>
              Title.Caption = #1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
              Width = 198
            end
            item
              EditButtons = <>
              FieldName = 'FIN_CTG_NAME'
              Footers = <>
              Title.Caption = #1050#1072#1090#1077#1075#1086#1088#1080#1103
              Width = 74
            end
            item
              EditButtons = <>
              FieldName = 'DIR_NAME'
              Footers = <>
              Title.Caption = #1053#1072#1087#1088#1072#1074#1083#1077#1085#1080#1077' '#1076#1074#1080#1078#1077#1085#1080#1103
              Width = 89
            end
            item
              EditButtons = <>
              FieldName = 'IS_VAL'
              Footers = <>
              Title.Caption = #1042#1072#1083#1102#1090#1085#1099#1081' '#1076#1086#1082#1091#1084#1077#1085#1090
              Width = 59
            end
            item
              EditButtons = <>
              FieldName = 'IS_WR'
              Footers = <>
              Title.Caption = #1055#1088#1080#1089#1091#1090#1089#1090#1074#1091#1077#1090' '#1074' '#1088#1077#1078#1080#1084#1077' "'#1055#1083#1072#1090#1077#1078#1085#1099#1077' '#1076#1086#1082#1091#1084#1077#1085#1090#1099'"'
              Width = 138
            end>
        end
      end
    end
  end
  object ADS: xbADSDataSource
    DataSet = DS
    OnDataChange = ADS_DataChange
    Left = 35
    Top = 109
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <>
    OEMTranslate = False
    AfterInsert = DS_AfterInsert
    OnUpdateRecord = DS_UpdateRecord
    Left = 78
    Top = 110
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_DOC_TYPE'
    Active = False
    Left = 119
    Top = 110
  end
  object BOSTR: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_DOC_TUNE'
    Active = False
    Left = 345
    Top = 111
  end
  object dsSTR: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOSTR
    FieldDefs = <>
    OEMTranslate = False
    Left = 395
    Top = 111
  end
  object adsSTR: xbADSDataSource
    DataSet = dsSTR
    Left = 436
    Top = 111
  end
end
frmPayRsTpRee.prg                                                     9748object RsTpRee: TRsTpRee
  Left = 25
  Top = 25
  Width = 634
  Height = 393
  ActiveControl = bGrid1
  Anchors = []
  Caption = #1048#1076#1077#1085#1090#1080#1092#1080#1082#1072#1090#1086#1088#1099' '#1085#1072#1083#1086#1075#1086#1074#1099#1093' '#1087#1083#1072#1090#1077#1078#1077#1081
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = True
  Visible = True
  WindowState = wsNormal
  OnClose = Form_Close
  OnCreate = Form_Create
  DesignSize = (
    626
    359)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 8
    Top = 8
    Width = 610
    Height = 350
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    object TabSheet1: TTabSheet
      Caption = #1056#1077#1077#1089#1090#1088
      DesignSize = (
        608
        328)
      object bPanel1: xbPanel
        Left = 6
        Top = 6
        Width = 596
        Height = 315
        Anchors = [akLeft, akTop, akRight, akBottom]
        BevelOuter = bvNone
        Caption = 'bPanel1'
        TabOrder = 0
        object bSpliter1: xbSpliter
          Left = 0
          Top = 160
          Width = 596
          Height = 5
          Cursor = crVSplit
          Align = alTop
        end
        object bGrid1: xbGrid
          Left = 0
          Top = 0
          Width = 596
          Height = 160
          Align = alTop
          Anchors = [akLeft, akTop, akRight, akBottom]
          AutoFitColWidths = True
          DataSource = adsReestr
          Flat = True
          FooterColor = clWindow
          FooterFont.Charset = DEFAULT_CHARSET
          FooterFont.Color = clWindowText
          FooterFont.Height = -11
          FooterFont.Name = 'MS Sans Serif'
          FooterFont.Style = []
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgAlwaysShowSelection, dgConfirmDelete]
          OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghIncSearch]
          ReadOnly = True
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          UseMultiTitle = True
          OnDblClick = bGrid1_DblClick
          OnKeyDown = bGrid1_KeyDown
          OnKeyPress = bGrid1_KeyPress
          OnKeyUp = bGrid1_KeyUp
          OnMouseDown = bGrid1_MouseDown
          OnMouseUp = bGrid1_MouseUp
          IdGrid = '{0591A196-4E46-411A-BAFC-F36AA9D380CD}'
          Columns = <
            item
              EditButtons = <>
              FieldName = 'RS_CODE'
              Footers = <>
              Title.Caption = #1050#1086#1076
              Width = 100
            end
            item
              EditButtons = <>
              FieldName = 'RS_NAME'
              Footers = <>
              Title.Caption = #1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
              Width = 480
            end>
        end
        object bPanel3: xbPanel
          Left = 0
          Top = 165
          Width = 596
          Height = 150
          Align = alClient
          BevelOuter = bvNone
          Caption = 'bPanel3'
          TabOrder = 1
          DesignSize = (
            596
            150)
          object bFrame1: xbFrame
            Left = 0
            Top = 102
            Width = 596
            Height = 47
            Caption = #1048#1079#1084#1077#1088#1077#1085#1080#1103
            TabOrder = 1
            Anchors = [akLeft, akRight, akBottom]
            DesignSize = (
              596
              47)
            object MemDocDim: xbMemo
              Left = 6
              Top = 12
              Width = 584
              Height = 29
              ColorFlat = clBtnFace
              ParentColor = True
              Enabled = False
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
              TabOrder = 0
              Lines.Strings = (
                'MemDocDim')
              Anchors = [akLeft, akTop, akRight, akBottom]
              BorderStyle = bsNone
              Color = clWhite
              DisabledColor = clInactiveBorder
              DisabledFontColor = 7368816
            end
          end
          object bGrid2: xbGrid
            Left = 0
            Top = 0
            Width = 596
            Height = 150
            Anchors = [akLeft, akTop, akRight, akBottom]
            AutoFitColWidths = True
            DataSource = adsSTR
            Flat = True
            FooterColor = clWindow
            FooterFont.Charset = DEFAULT_CHARSET
            FooterFont.Color = clWindowText
            FooterFont.Height = -11
            FooterFont.Name = 'MS Sans Serif'
            FooterFont.Style = []
            Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgAlwaysShowSelection, dgConfirmDelete]
            OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghIncSearch]
            ReadOnly = True
            TabOrder = 0
            TitleFont.Charset = DEFAULT_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -11
            TitleFont.Name = 'MS Sans Serif'
            TitleFont.Style = []
            UseMultiTitle = True
            OnDblClick = bGrid2_DblClick
            OnKeyPress = bGrid2_KeyPress
            IdGrid = '{C8CD5889-4DF7-4EA1-A250-6DCA55EA51E7}'
            Columns = <
              item
                EditButtons = <>
                FieldName = 'FLD_CODE'
                Footers = <>
                Title.Caption = #1050#1086#1076' '#1075#1088#1091#1087#1087#1099
                Width = 50
              end
              item
                EditButtons = <>
                FieldName = 'VAL_CODE'
                Footers = <>
                Title.Caption = #1050#1086#1076' '#1079#1085#1072#1095#1077#1085#1080#1103
                Width = 65
              end
              item
                EditButtons = <>
                FieldName = 'VAL_NAME'
                Footers = <>
                Title.Caption = #1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077' '#1079#1085#1072#1095#1077#1085#1080#1103
                Width = 170
              end
              item
                EditButtons = <>
                FieldName = 'FLD_TP'
                Footers = <>
                Title.Caption = #1058#1080#1087
                Width = 30
              end
              item
                EditButtons = <>
                FieldName = 'FLD_LEN'
                Footers = <>
                Title.Caption = #1044#1083#1080#1085#1072
                Width = 40
              end
              item
                EditButtons = <>
                FieldName = 'FRM'
                Footers = <>
                Title.Caption = #1060#1086#1088#1084#1072#1090
                Width = 130
              end
              item
                EditButtons = <>
                FieldName = 'DEM'
                Footers = <>
                Title.Caption = #1054#1073#1103#1079#1072#1090#1077#1083#1100#1085#1086#1089#1090#1100' '#1079#1072#1087#1086#1083#1085#1077#1085#1080#1103
                Width = 90
              end>
          end
        end
      end
    end
  end
  object adsReestr: xbADSDataSource
    DataSet = dsReestr
    OnDataChange = adsReestr_DataChange
    Left = 139
    Top = 91
  end
  object dsReestr: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <
      item
        Name = 'ID_ORDER'
        DataType = ftFloat
      end
      item
        Name = 'DATEORDER'
        DataType = ftDate
      end
      item
        Name = 'NOM'
        DataType = ftString
        Size = 10
      end
      item
        Name = 'TYPESTR'
        DataType = ftFloat
      end
      item
        Name = 'OPER'
        DataType = ftFloat
      end
      item
        Name = 'DOC'
        DataType = ftFloat
      end
      item
        Name = 'STATUSORD'
        DataType = ftFloat
      end
      item
        Name = 'STATUSORDSHORT'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'TYPESTRSHORT'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'OPERNAME'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'DOCNAME'
        DataType = ftString
        Size = 30
      end
      item
        Name = 'X_ISMARK_'
        DataType = ftBoolean
      end>
    ReadOnly = True
    OEMTranslate = False
    Left = 85
    Top = 91
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPay_RS_TP'
    Active = False
    Left = 40
    Top = 92
  end
  object adsSTR: xbADSDataSource
    DataSet = dsSTR
    Left = 452
    Top = 97
  end
  object dsSTR: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOSTR
    FieldDefs = <>
    OEMTranslate = False
    Left = 411
    Top = 97
  end
  object BOSTR: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPay_VAL_TP'
    Active = False
    Left = 361
    Top = 95
  end
end
frmPayRsTp.prg                                                        4106object frmPayRsTp: TfrmPayRsTp
  Left = 25
  Top = 25
  Width = 490
  Height = 157
  ActiveControl = leRSCode
  Anchors = []
  Caption = #1054#1089#1085#1086#1074#1072#1085#1080#1077' '#1085#1072#1083#1086#1075#1086#1074#1086#1075#1086' '#1087#1083#1072#1090#1077#1078#1072
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  WindowState = wsNormal
  OnCloseQuery = Form_CloseQuery
  OnCreate = Form_Create
  DesignSize = (
    482
    123)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 8
    Top = 8
    Width = 468
    Height = 84
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    object TabSheet1: TTabSheet
      Caption = #1054#1073#1097#1077#1077
      OnStartDrag = TabSheet1_StartDrag
      DesignSize = (
        466
        62)
      object leRSCode: xbLabelEdit
        Left = 8
        Top = 8
        Width = 270
        Height = 21
        BorderColor = clWindowText
        Caption = #1050#1086#1076' '#1086#1089#1085#1086#1074#1072#1085#1080#1103
        CaptionAlignment = taLeftJustify
        DataField = 'RS_CODE'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 0
        LabelWidth = 170
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnChange = leRSCode_Change
        PopupListClickKey = 0
      end
      object leObjName: xbLabelEdit
        Left = 8
        Top = 33
        Width = 450
        Height = 21
        Anchors = [akLeft, akTop, akRight]
        BorderColor = clWindowText
        Caption = #1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077' '#1086#1089#1085#1086#1074#1072#1085#1080#1103
        CaptionAlignment = taLeftJustify
        DataField = 'RS_NAME'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 1
        LabelWidth = 170
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnChange = leObjName_Change
        PopupListClickKey = 0
      end
    end
  end
  object btnOK: xbButton
    Left = 318
    Top = 101
    Width = 75
    Height = 21
    Hint = #1057#1086#1093#1088#1072#1085#1077#1085#1080#1077' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (F10)'
    Caption = #1054#1050
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 1
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btnCANCEL: xbButton
    Left = 401
    Top = 101
    Width = 75
    Height = 21
    Hint = #1042#1099#1093#1086#1076' '#1080#1079' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (Esc)'
    Caption = #1054#1090#1084#1077#1085#1072
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 2
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <>
    OEMTranslate = False
    Left = 109
    Top = 3
  end
  object ADS: xbADSDataSource
    DataSet = DS
    Left = 145
    Top = 3
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_RS_TP'
    Active = False
    Left = 72
    Top = 3
  end
end
frmPayValTp.prg                                                      10283object frmPayValTp: TfrmPayValTp
  Left = 25
  Top = 25
  Width = 490
  Height = 455
  ActiveControl = lcbFldCode
  Anchors = []
  Caption = #1055#1086#1083#1077' '#1085#1072#1083#1086#1075#1086#1074#1086#1075#1086' '#1087#1083#1072#1090#1077#1078#1072
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  WindowState = wsNormal
  OnCloseQuery = Form_CloseQuery
  OnCreate = Form_Create
  DesignSize = (
    482
    421)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 8
    Top = 8
    Width = 468
    Height = 382
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    object TabSheet1: TTabSheet
      Caption = #1054#1073#1097#1077#1077
      OnStartDrag = TabSheet1_StartDrag
      DesignSize = (
        466
        360)
      object leValCode: xbLabelEdit
        Left = 8
        Top = 33
        Width = 300
        Height = 21
        Anchors = [akLeft, akTop, akRight]
        BorderColor = clWindowText
        Caption = #1050#1086#1076' '#1079#1085#1072#1095#1077#1085#1080#1103
        CaptionAlignment = taLeftJustify
        DataField = 'VAL_CODE'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 1
        LabelWidth = 170
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnChange = leValCode_Change
        PopupListClickKey = 0
      end
      object leValName: xbLabelEdit
        Left = 8
        Top = 58
        Width = 450
        Height = 21
        Anchors = [akLeft, akTop, akRight]
        BorderColor = clWindowText
        Caption = #1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077' '#1079#1085#1072#1095#1077#1085#1080#1103
        CaptionAlignment = taLeftJustify
        DataField = 'VAL_NAME'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 2
        LabelWidth = 170
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnChange = leValName_Change
        PopupListClickKey = 0
      end
      object cbDem: xbCheckBox
        Left = 7
        Top = 181
        Width = 187
        Height = 21
        Caption = 
          #1054#1073#1103#1079#1072#1090#1077#1083#1100#1085#1086#1089#1090#1100' '#1079#1072#1087#1086#1083#1085#1077#1085#1080#1103' . . . . . . . . . . . . . . . . . . . ' +
          '. . . . . . .'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 7
        TabStop = True
        ValueChecked = '1'
        ValueUnchecked = '0'
        DataField = 'DEM'
        DataSource = ADS
      end
      object lcbFldCode: xbLabelCombo
        Left = 8
        Top = 8
        Width = 300
        Height = 21
        Anchors = [akLeft, akTop, akRight]
        ParentBackGround = True
        Caption = #1050#1086#1076' '#1075#1088#1091#1087#1087#1099
        TabOrder = 0
        LabelWidth = 170
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Sorted = False
        EditColor = clWindow
        DisabledColor = clInactiveBorder
        DisabledFontColor = clBlack
        BorderColor = clWindowText
        AutoComplete = False
        Style = csDropDownList
        CharCase = ecNormal
        DropDownCount = 0
        ItemHeight = 0
        MaxLength = 0
        ItemIndex = -1
        UseStandartHint = True
        OnClick = lcbFldCode_Click
      end
      object leFldTp: xbLabelEdit
        Left = 8
        Top = 83
        Width = 250
        Height = 21
        Anchors = [akLeft, akTop, akRight]
        BorderColor = clWindowText
        Caption = #1058#1080#1087
        CaptionAlignment = taLeftJustify
        DataField = 'FLD_TP_NAME'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 3
        TabStop = False
        LabelWidth = 170
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        ReadOnly = True
        OnChange = leValName_Change
        PopupListClickKey = 0
      end
      object leFldLen: xbLabelEdit
        Left = 8
        Top = 108
        Width = 250
        Height = 21
        Anchors = [akLeft, akTop, akRight]
        BorderColor = clWindowText
        Caption = #1044#1083#1080#1085#1072
        CaptionAlignment = taLeftJustify
        DataField = 'FLD_LEN'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 4
        TabStop = False
        LabelWidth = 170
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        ReadOnly = True
        OnChange = leValName_Change
        PopupListClickKey = 0
      end
      object leFldDec: xbLabelEdit
        Left = 8
        Top = 133
        Width = 250
        Height = 21
        Anchors = [akLeft, akTop, akRight]
        BorderColor = clWindowText
        Caption = #1050#1086#1083#1080#1095#1077#1089#1090#1074#1086' '#1076#1077#1089#1103#1090#1080#1095#1085#1099#1093' '#1079#1085#1072#1082#1086#1074
        CaptionAlignment = taLeftJustify
        DataField = 'FLD_DEC'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 5
        TabStop = False
        LabelWidth = 170
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        ReadOnly = True
        OnChange = leValName_Change
        PopupListClickKey = 0
      end
      object leFrm: xbLabelEdit
        Left = 8
        Top = 158
        Width = 450
        Height = 21
        Anchors = [akLeft, akTop, akRight]
        BorderColor = clWindowText
        Caption = #1060#1086#1088#1084#1072#1090
        CaptionAlignment = taLeftJustify
        DataField = 'FRM'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 6
        LabelWidth = 170
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnChange = leValName_Change
        PopupListClickKey = 0
      end
      object bFrame1: xbFrame
        Left = 8
        Top = 212
        Width = 450
        Height = 140
        Caption = #1054#1073#1086#1079#1085#1072#1095#1077#1085#1080#1103' '#1089#1080#1084#1074#1086#1083#1086#1074' '#1092#1086#1088#1084#1072#1090#1072
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 8
        Anchors = [akLeft, akTop, akRight]
        DesignSize = (
          450
          140)
        object lbText: xbLabel
          Left = 8
          Top = 20
          Width = 434
          Height = 114
          Anchors = [akLeft, akTop, akRight]
          Caption = 
            'P - '#1087#1088#1077#1092#1080#1082#1089', '#1089#1092#1086#1088#1084#1080#1088'. '#1080#1079' '#1082#1086#1076#1072' '#1087#1086#1082#1072#1079#1072#1090#1077#1083#1103'   01,..,12 - '#1085#1086#1084#1077#1088' '#1084#1077#1089#1103 +
            #1094#1072
          Font.Charset = RUSSIAN_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          WordWrap = True
        end
      end
    end
  end
  object btnOK: xbButton
    Left = 318
    Top = 399
    Width = 75
    Height = 21
    Hint = #1057#1086#1093#1088#1072#1085#1077#1085#1080#1077' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (F10)'
    Caption = #1054#1050
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 1
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btnCANCEL: xbButton
    Left = 401
    Top = 399
    Width = 75
    Height = 21
    Hint = #1042#1099#1093#1086#1076' '#1080#1079' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (Esc)'
    Caption = #1054#1090#1084#1077#1085#1072
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 2
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <>
    OEMTranslate = False
    Left = 109
    Top = 3
  end
  object ADS: xbADSDataSource
    DataSet = DS
    Left = 145
    Top = 3
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_VAL_TP'
    Active = False
    Left = 72
    Top = 3
  end
end
frmPayFinDocRee.prg                                                  18739object frmPayFinDocRee: TfrmPayFinDocRee
  Left = 25
  Top = 25
  Width = 650
  Height = 435
  ActiveControl = bGrid1
  Anchors = []
  BiDiMode = bdRightToLeft
  Caption = #1055#1083#1072#1090#1077#1078#1085#1099#1077' '#1076#1086#1082#1091#1084#1077#1085#1090#1099
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  ParentBiDiMode = False
  Visible = True
  WindowState = wsNormal
  OnClose = Form_Close
  OnCreate = Form_Create
  DesignSize = (
    642
    401)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 8
    Top = 8
    Width = 626
    Height = 338
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    object TabSheet1: TTabSheet
      Caption = #1056#1077#1077#1089#1090#1088
      DesignSize = (
        624
        316)
      object lbObjName: xbLabel
        Left = 144
        Top = 12
        Width = 170
        Height = 17
        Anchors = [akLeft, akTop, akRight]
        Caption = 'lbObjName'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
      end
      object lbTpName: xbLabel
        Left = 454
        Top = 12
        Width = 170
        Height = 17
        Anchors = [akLeft, akTop, akRight]
        Caption = 'lbTpName'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
      end
      object refFinObj: xbLabelEditRefer
        Left = 8
        Top = 8
        Width = 130
        Height = 20
        BorderColor = clWindowText
        Caption = #1054#1073#1098#1077#1082#1090' '#1091#1095#1077#1090#1072
        CaptionExtender = ceNone
        CaptionAlignment = taLeftJustify
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 0
        LabelWidth = 80
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnEnter = refFinObj_Enter
        OnExit = refFinObj_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2;Alt+Down'
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'OBJ_CODE;-1;100;1;0;'#1050#1086#1076'|OBJ_NAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldType = tfCharacterString
        ListDataSet = dsFinObj
        ReferCaption = #1057#1087#1088#1072#1074#1086#1095#1085#1080#1082' '#1086#1073#1098#1077#1082#1090#1086#1074' '#1091#1095#1077#1090#1072
        ReferHeight = 300
        ReferWidth = 300
        xReferId = 0
        IsHarbourRefer = True
        OnSelect = refFinObj_Select
        OnCancel = refFinObj_Cancel
      end
      object refDocType: xbLabelEditRefer
        Left = 320
        Top = 8
        Width = 130
        Height = 20
        BorderColor = clWindowText
        Caption = #1042#1080#1076' '#1076#1086#1082#1091#1084#1077#1085#1090#1072
        CaptionExtender = ceNone
        CaptionAlignment = taLeftJustify
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 1
        LabelWidth = 80
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnEnter = refDocType_Enter
        OnExit = refDocType_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2;Alt+Down'
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'TP_CODE;-1;100;1;0;'#1050#1086#1076'|TP_NAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldType = tfCharacterString
        ListDataSet = dsDocType
        ReferCaption = #1057#1087#1088#1072#1074#1086#1095#1085#1080#1082' '#1074#1080#1076#1086#1074' '#1076#1086#1082#1091#1084#1077#1085#1090#1086#1074
        ReferHeight = 300
        ReferWidth = 300
        xReferId = 0
        IsHarbourRefer = True
        OnSelect = refDocType_Select
        OnCancel = refDocType_Cancel
      end
      object bPanel1: xbPanel
        Left = 5
        Top = 34
        Width = 614
        Height = 280
        Anchors = [akLeft, akTop, akRight, akBottom]
        TabOrder = 2
        object bFrame: xbFrame
          Left = 1
          Top = 217
          Width = 612
          Height = 62
          Align = alBottom
          Caption = #1048#1079#1084#1077#1088#1077#1085#1080#1103
          Visible = False
          TabOrder = 0
          DesignSize = (
            612
            62)
          object lblDocDim: xbMemo
            Left = 3
            Top = 13
            Width = 607
            Height = 46
            ColorFlat = clBtnFace
            ParentColor = True
            Enabled = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            ReadOnly = True
            TabOrder = 0
            Lines.Strings = (
              'bMemDim')
            Anchors = [akLeft, akTop, akRight, akBottom]
            BorderStyle = bsNone
            Color = clWhite
            DisabledColor = clInactiveBorder
            DisabledFontColor = 7368816
          end
        end
        object bGrid1: xbGrid
          Left = 1
          Top = 1
          Width = 612
          Height = 216
          Align = alClient
          AutoFitColWidths = True
          DataSource = ADS
          Flat = True
          FooterColor = clWindow
          FooterFont.Charset = DEFAULT_CHARSET
          FooterFont.Color = clWindowText
          FooterFont.Height = -11
          FooterFont.Name = 'MS Sans Serif'
          FooterFont.Style = []
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgAlwaysShowSelection, dgConfirmDelete]
          OptionsEh = [dghFixed3D, dghClearSelection]
          ReadOnly = True
          TabOrder = 1
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          UseMultiTitle = True
          OnCellClick = bGrid1_CellClick
          OnDblClick = bGrid1_DblClick
          OnKeyDown = bGrid1_KeyDown
          OnKeyPress = bGrid1_KeyPress
          IdGrid = '{10C41C77-0EC5-4837-AE3A-6C07C83EBFF8}'
          Styles.Style1.FieldName = 'GRID_STYLE1'
          Styles.Style1.Value = '1'
          Styles.Style1.TextColor = clGreen
          Styles.Style2.FieldName = 'GRID_STYLE2'
          Styles.Style2.Value = '1'
          Styles.Style2.TextColor = clBlue
          Columns = <
            item
              EditButtons = <>
              FieldName = 'X_ISMARK_'
              Footers = <>
              Title.Caption = '   '
              Width = 17
            end
            item
              EditButtons = <>
              FieldName = 'DOC_CODE'
              Footers = <>
              Title.Caption = #1042#1080#1076
              Width = 25
            end
            item
              EditButtons = <>
              FieldName = 'DOP_NUM'
              Footers = <>
              Title.Caption = #1044#1086#1082#1091#1084#1077#1085#1090'|'#1053#1086#1084#1077#1088
              Width = 90
            end
            item
              EditButtons = <>
              FieldName = 'DOC_DATE'
              Footers = <>
              Title.Caption = #1044#1086#1082#1091#1084#1077#1085#1090'|'#1044#1072#1090#1072
              Width = 60
            end
            item
              EditButtons = <>
              FieldName = 'OPER_DATE'
              Footers = <>
              Title.Caption = #1044#1072#1090#1072' '#1086#1087#1077#1088#1072#1094#1080#1080
              Width = 60
            end
            item
              EditButtons = <>
              FieldName = 'VAR_FIELD1'
              Footers = <>
              Title.Caption = #1055#1072#1088#1090#1085#1077#1088
              Width = 178
            end
            item
              EditButtons = <>
              FieldName = 'CURR'
              Footers = <>
              Title.Caption = #1042#1072#1083'.'
              Width = 25
            end
            item
              EditButtons = <>
              FieldName = 'SUM_C'
              Footers = <>
              Title.Caption = #1057#1091#1084#1084#1072
              Width = 85
            end
            item
              EditButtons = <>
              FieldName = 'STATUS_NAME'
              Footers = <>
              Title.Caption = #1057#1090#1072#1090#1091#1089
              Width = 49
            end
            item
              EditButtons = <>
              FieldName = 'GRID_STYLE1'
              Footers = <>
              Visible = False
              Width = 10
            end
            item
              EditButtons = <>
              FieldName = 'GRID_STYLE2'
              Footers = <>
              Visible = False
              Width = 10
            end>
        end
      end
    end
  end
  object btnEXPORT: xbButton
    Left = 470
    Top = 375
    Width = 75
    Height = 21
    Hint = #1069#1082#1089#1087#1086#1088#1090' '#1086#1090#1084#1077#1095#1077#1085#1085#1099#1093' '#1076#1086#1082#1091#1084#1077#1085#1090#1086#1074' '#1074' '#1050#1083#1080#1077#1085#1090'-'#1041#1072#1085#1082' (Alt-F5)'
    Caption = #1069#1082#1089#1087#1086#1088#1090
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 5
    OnClick = btnEXPORT_Click
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object bPDOCDIM: xbPopupButton
    Left = 383
    Top = 375
    Width = 75
    Height = 21
    Caption = #1048#1079#1084#1077#1088#1077#1085#1080#1103
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = bPopupMenu3
    RoundedButton = True
    TabOrder = 6
    OnClick = bPDOCDIM_Click
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object pMenuOperation: xbPopupButton
    Left = 557
    Top = 375
    Width = 75
    Height = 21
    Caption = #1054#1087#1077#1088#1072#1094#1080#1080
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = MenuOperation
    RoundedButton = True
    TabOrder = 7
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object leAvDocNum: xbLabelEdit
    Left = 357
    Top = 349
    Width = 50
    Height = 21
    Anchors = [akLeft, akBottom]
    BorderColor = clWindowText
    Caption = #1085#1086#1084#1077#1088'    '
    CaptionAlignment = taLeftJustify
    DataField = 'AN_DOC_NUM'
    DataSource = ADSDocCmp
    ButtonsColor = clBlack
    EnabledColor = clWhite
    Enabled = False
    TabOrder = 3
    LabelWidth = 0
    LabelFont.Charset = DEFAULT_CHARSET
    LabelFont.Color = clWindowText
    LabelFont.Height = -11
    LabelFont.Name = 'MS Sans Serif'
    LabelFont.Style = []
    PopupListClickKey = 0
    AddPrefixOnFilial = False
  end
  object leAvDocDate: xbLabelEdit
    Left = 418
    Top = 349
    Width = 90
    Height = 21
    Anchors = [akLeft, akBottom]
    BorderColor = clWindowText
    Caption = #1076#1072#1090#1072'    '
    CaptionAlignment = taLeftJustify
    DataField = 'AN_DOC_DATE'
    DataSource = ADSDocCmp
    ButtonsColor = clBlack
    EnabledColor = clWhite
    Enabled = False
    TabOrder = 4
    LabelWidth = 26
    LabelFont.Charset = DEFAULT_CHARSET
    LabelFont.Color = clWindowText
    LabelFont.Height = -11
    LabelFont.Name = 'MS Sans Serif'
    LabelFont.Style = []
    PopupListClickKey = 0
    AddPrefixOnFilial = False
  end
  object leAnTp: xbLabelEdit
    Left = 8
    Top = 349
    Width = 196
    Height = 21
    Anchors = [akLeft, akBottom]
    BorderColor = clWindowText
    Caption = #1040#1085#1085#1091#1083#1080#1088#1091#1077#1084#1099#1081' '#1076#1086#1082#1091#1084#1077#1085#1090':  '#1074#1080#1076
    CaptionExtender = ceNone
    CaptionAlignment = taLeftJustify
    DataField = 'AN_TP'
    DataSource = ADSDocCmp
    ButtonsColor = clBlack
    EnabledColor = clWhite
    Enabled = False
    TabOrder = 1
    LabelWidth = 156
    LabelFont.Charset = DEFAULT_CHARSET
    LabelFont.Color = clWindowText
    LabelFont.Height = -11
    LabelFont.Name = 'MS Sans Serif'
    LabelFont.Style = []
    PopupListClickKey = 0
    AddPrefixOnFilial = False
  end
  object leAvDopNum: xbLabelEdit
    Left = 214
    Top = 349
    Width = 135
    Height = 21
    Anchors = [akLeft, akBottom]
    BorderColor = clWindowText
    Caption = #1085#1086#1084#1077#1088
    CaptionExtender = ceNone
    CaptionAlignment = taLeftJustify
    DataField = 'AN_DOP_NUM'
    DataSource = ADSDocCmp
    ButtonsColor = clBlack
    EnabledColor = clWhite
    Enabled = False
    TabOrder = 2
    LabelWidth = 35
    LabelFont.Charset = DEFAULT_CHARSET
    LabelFont.Color = clWindowText
    LabelFont.Height = -11
    LabelFont.Name = 'MS Sans Serif'
    LabelFont.Style = []
    PopupListClickKey = 0
    AddPrefixOnFilial = False
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_fin_doc'
    Active = False
    Left = 38
    Top = 107
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <
      item
        Name = 'LIST_ID'
        DataType = ftString
        Size = 22
      end
      item
        Name = 'BOOK_CODE'
        DataType = ftString
        Size = 2
      end
      item
        Name = 'CTG'
        DataType = ftFloat
      end
      item
        Name = 'BOOK_PER'
        DataType = ftDate
      end
      item
        Name = 'LIST_DATE'
        DataType = ftDate
      end
      item
        Name = 'LIST_NUM'
        DataType = ftString
        Size = 6
      end
      item
        Name = 'OP_CODE'
        DataType = ftString
        Size = 22
      end
      item
        Name = 'OPNAME'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'STATUS'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'RECALC'
        DataType = ftBoolean
      end
      item
        Name = 'LST_ACT'
        DataType = ftString
        Size = 17
      end
      item
        Name = 'USER_CODE'
        DataType = ftString
        Size = 6
      end
      item
        Name = 'STATUSNAME'
        DataType = ftString
        Size = 10
      end
      item
        Name = 'CTGNAME'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'TYPE_PER'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'Typepername'
        DataType = ftString
        Size = 25
      end>
    ReadOnly = True
    OEMTranslate = False
    Left = 81
    Top = 108
  end
  object ADS: xbADSDataSource
    DataSet = DS
    Left = 122
    Top = 109
  end
  object adsFinObj: xbADSDataSource
    DataSet = dsFinObj
    Left = 112
    Top = 177
  end
  object dsFinObj: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'PAY\FIN_OBJ.DBF'
    OEMTranslate = False
    Left = 41
    Top = 177
  end
  object adsDocType: xbADSDataSource
    DataSet = dsDocType
    Left = 111
    Top = 241
  end
  object dsDocType: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'PAY\DOC_TYPE.DBF'
    OEMTranslate = False
    Left = 39
    Top = 241
  end
  object BODocCmp: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_DOC_CMP'
    Active = False
    Left = 165
    Top = 114
  end
  object DSDocCmp: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BODocCmp
    FieldDefs = <>
    OEMTranslate = False
    Left = 279
    Top = 128
  end
  object ADSDocCmp: xbADSDataSource
    DataSet = DSDocCmp
    Left = 345
    Top = 115
  end
  object RFDocType: xbReferCaller
    ColumnsTune = 'TP_NAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
    ListDataSet = DSDocTypeRef
    ReferCaption = #1042#1080#1076#1099' '#1076#1086#1082#1091#1084#1077#1085#1090#1086#1074
    ReferHeight = 380
    ReferWidth = 450
    OnSelect = RFDocType_Select
    Left = 202
    Top = 181
  end
  object DSDocTypeRef: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'PAY\DOC_TYPE.DBF'
    OEMTranslate = False
    Left = 280
    Top = 181
  end
  object DSKB: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'PAY\KB.DBF'
    OEMTranslate = False
    Left = 242
    Top = 249
  end
  object ADSKB: xbADSDataSource
    DataSet = DSKB
    Left = 284
    Top = 252
  end
  object bPopupMenu3: xbPopupMenu
    Left = 348
    Top = 254
    object pEdit: TMenuItem
      Caption = #1042#1074#1086#1076' Ctrl-D'
    end
    object pShow: TMenuItem
      Caption = #1055#1088#1086#1089#1084#1086#1090#1088' '#1074#1082#1083'/'#1074#1099#1082#1083' Ctrl-F'
    end
  end
  object MenuOperation: xbPopupMenu
    Left = 436
    Top = 253
    object miCopy: TMenuItem
      Caption = #1050#1086#1087#1080#1088#1086#1074#1072#1090#1100
      ShortCut = 116
      OnClick = miCopy_Click
    end
  end
end
frmPayPlatPoruch.prg                                                 37451object frmPayPlatPoruch: TfrmPayPlatPoruch
  Left = 25
  Top = 25
  Width = 680
  Height = 454
  ActiveControl = leDopNum
  Anchors = []
  Caption = #1055#1083#1072#1090#1077#1078#1085#1086#1077' '#1087#1086#1088#1091#1095#1077#1085#1080#1077
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  WindowState = wsNormal
  OnCloseQuery = Form_CloseQuery
  OnCreate = Form_Create
  DesignSize = (
    672
    420)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 8
    Top = 8
    Width = 658
    Height = 381
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    object TabSheet1: TTabSheet
      Caption = #1054#1073#1097#1077#1077
      DesignSize = (
        656
        359)
      object lbNaznPlat: xbLabel
        Left = 8
        Top = 285
        Width = 135
        Height = 17
        Caption = #1053#1072#1079#1085#1072#1095#1077#1085#1080#1077' . . . . . . . . . . . . . . . . . . . .'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
      end
      object lerMvTpCode: xbLabelEditRefer
        Left = 8
        Top = 56
        Width = 380
        Height = 21
        BorderColor = clWindowText
        Caption = #1042#1080#1076' '#1076#1074#1080#1078#1077#1085#1080#1103
        CaptionAlignment = taLeftJustify
        DataField = 'MV_NAME'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 6
        LabelWidth = 120
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnChange = lerMvTpCode_Change
        OnExit = lerMvTpCode_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'MV_CODE'
        BeforeButtonClick = lerMvTpCode_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'MV_CODE;-1;50;1;-1;'#1050#1086#1076'|MV_NAME;-1;200;1;-1;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldName = 'MV_NAME'
        FindFieldType = tfCharacterString
        ListDataSet = DSMvTp
        OutFieldsArray = 'MV_CODE;PRT_TP'
        PutFieldsArray = 'MV_CODE;PRT_TP'
        ReferCaption = #1042#1080#1076#1099' '#1076#1074#1080#1078#1077#1085#1080#1103' '#1076#1077#1085#1077#1078#1085#1099#1093' '#1089#1088#1077#1076#1089#1090#1074
        TypeFindFieldName = 'MV_NAME'
        xReferId = 0
        IsHarbourRefer = True
        OnSelect = lerMvTpCode_Select
      end
      object bFrame1: xbFrame
        Left = 8
        Top = 85
        Width = 640
        Height = 90
        Caption = #1055#1083#1072#1090#1077#1083#1100#1097#1080#1082
        TabOrder = 9
        Anchors = [akLeft, akTop, akRight]
        DesignSize = (
          640
          90)
        object lbPartName: xbLabel
          Left = 281
          Top = 19
          Width = 350
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPlatName'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'FINOBJ_PART_SHORTNAME'
          DataSource = ADS
        end
        object lbBankName1: xbLabel
          Left = 411
          Top = 43
          Width = 220
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPlatBankName1'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'OWNACNT_BANK_NAME'
          DataSource = ADSDocCmp
        end
        object lbBankName2: xbLabel
          Left = 411
          Top = 67
          Width = 220
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPlatBankName2'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          OnClick = lbBankName2_Click
          DataField = 'OWNACNTCMPBNK_NAME'
          DataSource = ADSDocCmp
        end
        object lerPlatBankCode2: xbLabelEditRefer
          Left = 281
          Top = 64
          Width = 120
          Height = 21
          BorderColor = clWindowText
          Caption = #1074' '#1073#1072#1085#1082#1077
          CaptionAlignment = taLeftJustify
          DataField = 'OWNACNTCMPBNK_CODE'
          DataSource = ADSDocCmp
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 4
          LabelWidth = 42
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'M_ACNT_BNK'
          EnabledEdit = False
          BeforeButtonClick = lerPlatBankCode2_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 'Bnk_Code;-1;50;1;-1;'#1050#1086#1076'|Bnk_Name;-1;150;1;-1;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
          FindFieldName = 'BNK_CODE'
          FindFieldType = tfCharacterString
          ListDataSet = DSPlatBank2
          OutFieldsArray = 'BNK_ID'
          PutFieldsArray = 'M_ACNT_BNK'
          ReferCaption = #1057#1095#1077#1090' '#1074' '#1073#1072#1085#1082#1077
          TypeFindFieldName = 'BNK_CODE'
          xReferId = 0
          IsHarbourRefer = True
        end
        object lePlatCode: xbLabelEdit
          Left = 6
          Top = 16
          Width = 265
          Height = 21
          BorderColor = clWindowText
          Caption = #1055#1088#1077#1076#1087#1088#1080#1103#1090#1080#1077
          CaptionAlignment = taLeftJustify
          DataField = 'FINOBJ_PART_CODE'
          DataSource = ADS
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 0
          LabelWidth = 114
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object lePlatAcnt1: xbLabelEdit
          Left = 6
          Top = 40
          Width = 265
          Height = 21
          BorderColor = clWindowText
          Caption = #1056#1072#1089#1095#1077#1090#1085#1099#1081' '#1089#1095#1077#1090
          CaptionAlignment = taLeftJustify
          DataField = 'OWNACNT_NUM'
          DataSource = ADSDocCmp
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 1
          LabelWidth = 114
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object lePlatBankCode1: xbLabelEdit
          Left = 281
          Top = 40
          Width = 120
          Height = 21
          BorderColor = clWindowText
          Caption = #1074' '#1073#1072#1085#1082#1077
          CaptionAlignment = taLeftJustify
          DataField = 'OWNACNT_BANK_CODE'
          DataSource = ADSDocCmp
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 2
          LabelWidth = 42
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object lePlatAcnt2: xbLabelEdit
          Left = 120
          Top = 64
          Width = 151
          Height = 21
          BorderColor = clWindowText
          Caption = #1056#1072#1089#1095#1077#1090#1085#1099#1081' '#1089#1095#1077#1090
          CaptionAlignment = taLeftJustify
          DataField = 'OWNACNTCMP_NUM'
          DataSource = ADSDocCmp
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 3
          LabelWidth = 0
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
      end
      object lcbStatus: xbLabelCombo
        Left = 238
        Top = 32
        Width = 150
        Height = 21
        ParentBackGround = True
        Caption = #1057#1090#1072#1090#1091#1089
        Enabled = False
        TabOrder = 5
        LabelWidth = 40
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Sorted = False
        EditColor = clWindow
        DisabledColor = clInactiveBorder
        DisabledFontColor = clBlack
        BorderColor = clWindowText
        AutoComplete = False
        Style = csDropDownList
        CharCase = ecNormal
        DropDownCount = 0
        ItemHeight = 0
        MaxLength = 0
        Items.Strings = (
          #1095#1077#1088#1085#1086#1074#1080#1082
          #1086#1087#1083#1072#1095#1077#1085
          #1087#1077#1088#1077#1076#1072#1085)
        ItemIndex = -1
        UseStandartHint = True
      end
      object leDocVid: xbLabelEdit
        Left = 8
        Top = 8
        Width = 220
        Height = 21
        BorderColor = clWindowText
        Caption = #1044#1086#1082#1091#1084#1077#1085#1090':             '#1074#1080#1076'    '
        CaptionAlignment = taLeftJustify
        DataField = 'DOC_CODE'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 0
        LabelWidth = 120
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leDocNum: xbLabelEdit
        Left = 397
        Top = 8
        Width = 70
        Height = 21
        BorderColor = clWindowText
        Caption = #1085#1086#1084#1077#1088'    '
        CaptionAlignment = taLeftJustify
        DataField = 'DOC_NUM'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 2
        LabelWidth = 0
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leDocDate: xbLabelEdit
        Left = 476
        Top = 8
        Width = 150
        Height = 21
        BorderColor = clWindowText
        Caption = '    '#1076#1072#1090#1072'    '
        CaptionExtender = ceNone
        CaptionAlignment = taLeftJustify
        DataField = 'DOC_DATE'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 3
        LabelWidth = 50
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object bFrame2: xbFrame
        Left = 8
        Top = 183
        Width = 640
        Height = 90
        Caption = #1055#1086#1083#1091#1095#1072#1090#1077#1083#1100
        TabOrder = 10
        Anchors = [akLeft, akTop, akRight]
        DesignSize = (
          640
          90)
        object lbPolName: xbLabel
          Left = 281
          Top = 19
          Width = 350
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPolName'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'PART_SHORTNAME'
          DataSource = ADS
        end
        object bLabel2: xbLabel
          Left = 411
          Top = 43
          Width = 220
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPolBankName1'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'PRTACNT_BANK_NAME'
          DataSource = ADSDocCmp
        end
        object bLabel3: xbLabel
          Left = 411
          Top = 67
          Width = 220
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPolBankName2'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          OnClick = lbBankName2_Click
          DataField = 'PRTACNTCMPBNK_NAME'
          DataSource = ADSDocCmp
        end
        object lbNalModelName: xbLabel
          Left = 266
          Top = 118
          Width = 300
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbNalModelName'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataSource = ADS
        end
        object lerPolCode: xbLabelEditRefer
          Left = 6
          Top = 16
          Width = 265
          Height = 21
          BorderColor = clWindowText
          Caption = #1055#1088#1077#1076#1087#1088#1080#1103#1090#1080#1077
          CaptionAlignment = taLeftJustify
          DataField = 'PART_CODE'
          DataSource = ADS
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 0
          LabelWidth = 114
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          OnEnter = lerPolCode_Enter
          OnExit = lerPolCode_Exit
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'PRT_ID'
          BeforeButtonClick = lerPolCode_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 'CODE;-1;100;1;0;'#1050#1086#1076'|SORTNAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
          FindFieldName = 'CODE'
          FindFieldType = tfCharacterString
          OutFieldsArray = 'PART_ID'
          PutFieldsArray = 'PRT_ID'
          ReferCaption = #1057#1087#1080#1089#1086#1082
          ReferWidth = 450
          TypeFindFieldName = 'CODE'
          xReferId = 0
          IsHarbourRefer = True
          OnSelect = lerPolCode_Select
        end
        object lerPolAcnt1: xbLabelEditRefer
          Left = 6
          Top = 40
          Width = 265
          Height = 21
          BorderColor = clWindowText
          Caption = #1056#1072#1089#1095#1077#1090#1085#1099#1081' '#1089#1095#1077#1090
          CaptionAlignment = taLeftJustify
          DataField = 'PRTACNT_NUM'
          DataSource = ADSDocCmp
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 1
          LabelWidth = 114
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'P_ACNT_ID'
          BeforeButtonClick = lerPolAcnt1_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 
            'Accnt;-1;130;1;-1;'#1057#1095#1077#1090'|GetBankName;-1;200;1;-1;'#1041#1072#1085#1082'|Comment;-1;1' +
            '70;1;-1;'#1050#1086#1084#1084#1077#1085#1090#1072#1088#1080#1081
          FindFieldName = 'ACCNT'
          FindFieldType = tfCharacterString
          ListDataSet = DSPolAcnt1
          OutFieldsArray = 'REC_ID'
          PutFieldsArray = 'P_ACNT_ID'
          ReferCaption = #1057#1095#1077#1090' '#1074' '#1073#1072#1085#1082#1077
          TypeFindFieldName = 'ACCNT'
          xReferId = 0
          IsHarbourRefer = True
          OnSelect = lerPolAcnt1_Select
        end
        object lerPolBankCode2: xbLabelEditRefer
          Left = 281
          Top = 64
          Width = 120
          Height = 21
          BorderColor = clWindowText
          Caption = #1074' '#1073#1072#1085#1082#1077
          CaptionAlignment = taLeftJustify
          DataField = 'PRTACNTCMPBNK_CODE'
          DataSource = ADSDocCmp
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 4
          LabelWidth = 42
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'P_ACNT_BNK'
          BeforeButtonClick = lerPolBankCode2_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 'Bnk_Code;-1;50;1;-1;'#1050#1086#1076'|Bnk_Name;-1;150;1;-1;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
          FindFieldName = 'BNK_CODE'
          FindFieldType = tfCharacterString
          ListDataSet = DSPolBank2
          OutFieldsArray = 'BNK_ID'
          PutFieldsArray = 'P_ACNT_BNK'
          ReferCaption = #1057#1095#1077#1090' '#1074' '#1073#1072#1085#1082#1077
          TypeFindFieldName = 'BNK_CODE'
          xReferId = 0
          IsHarbourRefer = True
        end
        object lePolBankCode1: xbLabelEdit
          Left = 281
          Top = 40
          Width = 120
          Height = 21
          BorderColor = clWindowText
          Caption = #1074' '#1073#1072#1085#1082#1077
          CaptionAlignment = taLeftJustify
          DataField = 'PRTACNT_BANK_CODE'
          DataSource = ADSDocCmp
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 2
          LabelWidth = 42
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object lerPolAcnt2: xbLabelEditRefer
          Left = 120
          Top = 64
          Width = 151
          Height = 21
          BorderColor = clWindowText
          Caption = #1056#1072#1089#1095#1077#1090#1085#1099#1081' '#1089#1095#1077#1090
          CaptionAlignment = taLeftJustify
          DataField = 'PRTACNTCMP_NUM'
          DataSource = ADSDocCmp
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 3
          LabelWidth = 0
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'P_ACNT_CMP'
          BeforeButtonClick = lerPolAcnt2_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 
            'Accnt;-1;130;1;-1;'#1057#1095#1077#1090'|GetBankName;-1;200;1;-1;'#1041#1072#1085#1082'|Comment;-1;1' +
            '70;1;-1;'#1050#1086#1084#1084#1077#1085#1090#1072#1088#1080#1081
          FindFieldName = 'ACCNT'
          FindFieldType = tfCharacterString
          ListDataSet = DSPolAcnt2
          OutFieldsArray = 'REC_ID'
          PutFieldsArray = 'P_ACNT_CMP'
          ReferCaption = #1057#1095#1077#1090' '#1074' '#1073#1072#1085#1082#1077
          TypeFindFieldName = 'ACCNT'
          xReferId = 0
          IsHarbourRefer = True
        end
      end
      object lerVal: xbLabelEditRefer
        Left = 476
        Top = 32
        Width = 150
        Height = 21
        BorderColor = clWindowText
        Caption = #1042#1072#1083#1102#1090#1072
        CaptionAlignment = taLeftJustify
        DataField = 'CURR'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 7
        LabelWidth = 50
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'CURR'
        EnabledEdit = False
        EnabledButton = False
        BeforeButtonClick = lerVal_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'CODE;-1;50;1;-1;'#1050#1086#1076'|NAME;-1;200;1;-1;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldName = 'CODE'
        FindFieldType = tfCharacterString
        ListDataSet = DSVal
        OutFieldsArray = 'CODE'
        PutFieldsArray = 'CURR'
        ReferCaption = #1057#1087#1088#1072#1074#1086#1095#1085#1080#1082' '#1074#1072#1083#1102#1090
        TypeFindFieldName = 'CODE'
        xReferId = 0
        IsHarbourRefer = True
      end
      object lecSumma: xbLabelEditCalc
        Left = 476
        Top = 56
        Width = 150
        Height = 21
        BorderColor = clWindowText
        Caption = #1057#1091#1084#1084#1072
        CaptionAlignment = taLeftJustify
        DataField = 'SUM'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        TabOrder = 8
        LabelWidth = 50
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        OnEnter = lecSumma_Enter
        OnExit = lecSumma_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        VisibleButton = False
        OnSelect = lecSumma_Select
      end
      object lcbPTp: xbLabelCombo
        Left = 8
        Top = 32
        Width = 220
        Height = 21
        ParentBackGround = True
        Caption = #1042#1080#1076' '#1087#1083#1072#1090#1077#1078#1072
        TabOrder = 4
        LabelWidth = 120
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Sorted = False
        EditColor = clWindow
        DisabledColor = clInactiveBorder
        DisabledFontColor = clBlack
        BorderColor = clWindowText
        AutoComplete = False
        Style = csDropDownList
        CharCase = ecNormal
        DropDownCount = 0
        ItemHeight = 0
        MaxLength = 0
        Items.Strings = (
          ''
          #1087#1086#1095#1090#1086#1081
          #1090#1077#1083#1077#1075#1088#1072#1092#1086#1084
          #1101#1083#1077#1082#1090#1088#1086#1085#1085#1086
          #1089#1088#1086#1095#1085#1086)
        ItemIndex = -1
        UseStandartHint = True
        OnSelect = lcbPTp_Select
      end
      object lerNalModelCode: xbLabelEditRefer
        Left = 8
        Top = 331
        Width = 609
        Height = 21
        BorderColor = clWindowText
        Caption = #1053#1072#1083#1086#1075#1086#1074#1072#1103' '#1084#1086#1076#1077#1083#1100
        CaptionAlignment = taLeftJustify
        DataField = 'TAXMOD_NAME'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 13
        LabelWidth = 120
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnEnter = lerNalModelCode_Enter
        OnExit = lerNalModelCode_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'TAX_MOD_ID'
        BeforeButtonClick = lerNalModelCode_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'MD_CODE;-1;50;1;-1;'#1050#1086#1076'|MD_NAME;-1;200;1;-1;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldName = 'MD_NAME'
        FindFieldType = tfCharacterString
        ListDataSet = DSTaxMod
        OutFieldsArray = 'MOD_ID'
        PutFieldsArray = 'TAX_MOD_ID'
        ReferCaption = #1053#1072#1083#1086#1075#1086#1074#1099#1077' '#1084#1086#1076#1077#1083#1080
        TypeFindFieldName = 'MD_NAME'
        xReferId = 0
        IsHarbourRefer = True
        OnSelect = lerNalModelCode_Select
      end
      object leDopNum: xbLabelEdit
        Left = 238
        Top = 8
        Width = 150
        Height = 21
        BorderColor = clWindowText
        Caption = #1085#1086#1084#1077#1088'    '
        CaptionAlignment = taLeftJustify
        DataField = 'DOP_NUM'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 1
        LabelWidth = 40
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object memNaznPlat: xbMemo
        Left = 128
        Top = 282
        Width = 470
        Height = 46
        ColorFlat = clBtnFace
        ParentColor = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        MaxLength = 200
        ParentFont = False
        TabOrder = 11
        OnKeyDown = memNaznPlat_KeyDown
        AutoDisplay = False
        BorderStyle = bsNone
        Color = clWhite
        DisabledColor = clInactiveBorder
        DisabledFontColor = 7368816
        DataField = 'COMMENT'
        DataSource = ADS
      end
      object btNaznPlat: xbButton
        Left = 600
        Top = 282
        Width = 21
        Height = 21
        Caption = '...'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        RoundedButton = True
        TabOrder = 12
        ButtonColor = clBlack
      end
    end
  end
  object btnOK: xbButton
    Left = 508
    Top = 398
    Width = 75
    Height = 21
    Hint = #1057#1086#1093#1088#1072#1085#1077#1085#1080#1077' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (F10)'
    Caption = #1054#1050
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 5
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btnCANCEL: xbButton
    Left = 591
    Top = 398
    Width = 75
    Height = 21
    Hint = #1042#1099#1093#1086#1076' '#1080#1079' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (Esc)'
    Caption = #1054#1090#1084#1077#1085#1072
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 6
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btNalogi: xbButton
    Left = 209
    Top = 398
    Width = 100
    Height = 21
    Hint = ' '#1053#1072#1076#1073#1072#1074#1082#1080' (Ctrl+N)'
    Caption = #1053#1072#1083#1086#1075#1080
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 2
    OnClick = btNalogi_Click
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object pbDopData: xbPopupButton
    Left = 317
    Top = 398
    Width = 100
    Height = 21
    Caption = #1044#1086#1087'. '#1076#1072#1085#1085#1099#1077
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = MenuDopData
    RoundedButton = True
    TabOrder = 3
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object bDocDim: xbButton
    Left = 122
    Top = 398
    Width = 75
    Height = 21
    Hint = #1042#1074#1086#1076' Ctrl-D'
    Caption = #1048#1079#1084#1077#1088#1077#1085#1080#1103
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 1
    OnClick = bPlDoc_Click
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object pOperation: xbPopupButton
    Left = 425
    Top = 398
    Width = 75
    Height = 21
    Caption = #1054#1087#1077#1088#1072#1094#1080#1080
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = MenuOperation
    RoundedButton = True
    TabOrder = 4
    OnClick = pOperation_Click
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <>
    OEMTranslate = False
    Left = 109
    Top = 3
  end
  object ADS: xbADSDataSource
    DataSet = DS
    Left = 145
    Top = 3
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_FIN_DOC'
    Active = False
    Left = 72
    Top = 3
  end
  object DSPlatBank2: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOPlatBank2
    FieldDefs = <>
    OEMTranslate = False
    Left = 508
    Top = 169
  end
  object BOPlatBank2: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPartnerBank'
    Active = False
    Left = 509
    Top = 118
  end
  object BOPolAcnt1: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPartnerAccnt'
    Active = False
    Left = 606
    Top = 253
  end
  object DSPolAcnt1: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOPolAcnt1
    FieldDefs = <>
    OEMTranslate = False
    IndexName = 'TAG_RSCH'
    Left = 606
    Top = 339
  end
  object MenuDopData: xbPopupMenu
    Left = 521
    Top = 333
    object MenuStatus1: TMenuItem
      Caption = #1053#1072#1083#1086#1075#1086#1074#1099#1077' '#1082#1086#1076#1099'    Ctrl+B'
      OnClick = MenuStatus1_Click
    end
    object MenuStatus2: TMenuItem
      Caption = #1056#1072#1089#1096#1080#1092#1088#1086#1074#1082#1072'         Ctrl+R'
      OnClick = MenuStatus2_Click
    end
    object miDopRecv: TMenuItem
      Caption = #1044#1086#1087' '#1088#1077#1082#1074#1080#1079#1080#1090#1099'      Alt+F5'
      OnClick = miDopRecv_Click
    end
  end
  object BODocCmp: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_DOC_CMP'
    Active = False
    Left = 602
    Top = 88
  end
  object DSDocCmp: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BODocCmp
    FieldDefs = <>
    OEMTranslate = False
    Left = 604
    Top = 138
  end
  object ADSDocCmp: xbADSDataSource
    DataSet = DSDocCmp
    Left = 607
    Top = 194
  end
  object BOMvTp: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_MOVE_TP'
    Active = False
    Left = 329
    Top = 88
  end
  object DSMvTp: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOMvTp
    FieldDefs = <>
    OEMTranslate = False
    Left = 415
    Top = 89
  end
  object BOVal: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsValuta'
    Active = False
    Left = 278
    Top = 1
  end
  object DSVal: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOVal
    FieldDefs = <>
    OEMTranslate = False
    Left = 331
    Top = 2
  end
  object BOPolBank2: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPartnerBank'
    Active = False
    Left = 511
    Top = 234
  end
  object DSPolBank2: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOPolBank2
    FieldDefs = <>
    OEMTranslate = False
    Left = 512
    Top = 285
  end
  object BOReasons: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_REASONS'
    Active = False
    Left = 40
    Top = 273
  end
  object DSReasons: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOReasons
    FieldDefs = <>
    OEMTranslate = False
    Left = 41
    Top = 315
  end
  object BOPolAcnt2: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPartnerAccnt'
    Active = False
    Left = 378
    Top = 308
  end
  object DSPolAcnt2: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOPolAcnt2
    FieldDefs = <>
    OEMTranslate = False
    IndexName = 'TAG_RSCH'
    AfterRefresh = DS_AfterRefresh
    Left = 442
    Top = 308
  end
  object BOTaxMod: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsTAX_MOD'
    Active = False
    Left = 93
    Top = 274
  end
  object DSTaxMod: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOTaxMod
    FieldDefs = <>
    OEMTranslate = False
    OnUpdateRecord = DSTaxMod_UpdateRecord
    Left = 93
    Top = 318
  end
  object RFNaznPlat: xbReferCaller
    ColumnsTune = 'TEXT;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
    ListDataSet = DSReasons
    ReferCaption = #1054#1089#1085#1086#1074#1072#1085#1080#1103' '#1087#1083#1072#1090#1077#1078#1072
    ReferWidth = 450
    OnSelect = RFNaznPlat_Select
    Left = 304
    Top = 306
  end
  object MenuOperation: xbPopupMenu
    Left = 212
    Top = 306
    object miNaznPlat: TMenuItem
      Caption = #1055#1077#1088#1077#1092#1086#1088#1084#1080#1088#1086#1074#1072#1090#1100' '#1085#1072#1079#1085#1072#1095#1077#1085#1080#1077'  Ctrl+P'
      OnClick = miNaznPlat_Click
    end
    object miNDSOpCode: TMenuItem
      Caption = #1053#1044#1057' - '#1082#1086#1076#1099' '#1086#1087#1077#1088#1072#1094#1080#1081'                  Alt+C'
      OnClick = miNDSOpCode_Click
    end
  end
end
frmPayNalogiRee.prg                                                   3676object frmPayNalogiRee: TfrmPayNalogiRee
  Left = 25
  Top = 25
  Width = 618
  Height = 334
  ActiveControl = GridNalogi
  Anchors = []
  Caption = #1053#1072#1083#1086#1075#1080' '#1087#1086' '#1076#1086#1082#1091#1084#1077#1085#1090#1091
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  WindowState = wsNormal
  OnCloseQuery = Form_CloseQuery
  DesignSize = (
    610
    300)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 8
    Top = 8
    Width = 594
    Height = 286
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    object TabSheet1: TTabSheet
      Caption = #1056#1077#1077#1089#1090#1088
      DesignSize = (
        592
        264)
      object GridNalogi: xbGrid
        Left = 6
        Top = 6
        Width = 580
        Height = 252
        Anchors = [akLeft, akTop, akRight, akBottom]
        AutoFitColWidths = True
        DataSource = adsReestr
        Flat = True
        FooterColor = clWindow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -11
        FooterFont.Name = 'MS Sans Serif'
        FooterFont.Style = []
        Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgConfirmDelete]
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        UseMultiTitle = True
        OnDblClick = GridNalogi_DblClick
        OnKeyPress = GridNalogi_KeyPress
        IdGrid = '{316A2683-D169-4C8D-8D62-33AB1057B6CA}'
        Columns = <
          item
            EditButtons = <>
            FieldName = 'TAXTP_NAME'
            Footers = <>
            Title.Caption = #1053#1072#1083#1086#1075
            Width = 233
          end
          item
            Alignment = taRightJustify
            EditButtons = <>
            FieldName = 'TAX_RATE'
            Footers = <>
            Title.Caption = #1057#1090#1072#1074#1082#1072
            Width = 90
          end
          item
            Alignment = taRightJustify
            EditButtons = <>
            FieldName = 'TAX_BASE'
            Footers = <>
            Title.Caption = #1054#1073#1083#1072#1075#1072#1077#1084#1072#1103' '#1089#1091#1084#1084#1072
            Width = 120
          end
          item
            Alignment = taRightJustify
            EditButtons = <>
            FieldName = 'TAX_SUM'
            Footers = <>
            Title.Caption = #1057#1091#1084#1084#1072' '#1085#1072#1083#1086#1075#1072
            Width = 119
          end>
      end
    end
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_FIN_TAX'
    Active = False
    Left = 169
    Top = 127
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <>
    ReadOnly = True
    OEMTranslate = False
    Left = 221
    Top = 127
  end
  object adsReestr: xbADSDataSource
    DataSet = DS
    Left = 277
    Top = 127
  end
  object DSTaxTp: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'TAX\TAX_TP'
    OEMTranslate = False
    IndexName = 'TAG_NAME'
    Left = 223
    Top = 187
  end
end
frmPayNalogi.prg                                                      9235object frmPayNalogi: TfrmPayNalogi
  Left = 25
  Top = 25
  Width = 580
  Height = 224
  ActiveControl = lerNDS
  Anchors = []
  Caption = #1053#1072#1083#1086#1075' '#1087#1086' '#1076#1086#1082#1091#1084#1077#1085#1090#1091
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  WindowState = wsNormal
  OnActivate = Form_Activate
  OnClose = Form_Close
  OnCloseQuery = Form_CloseQuery
  OnCreate = Form_Create
  DesignSize = (
    572
    190)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 8
    Top = 8
    Width = 556
    Height = 146
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    object TabSheet1: TTabSheet
      Caption = #1054#1073#1097#1077#1077
      DesignSize = (
        554
        124)
      object lbNDSName: xbLabel
        Left = 236
        Top = 35
        Width = 310
        Height = 21
        Anchors = [akLeft, akTop, akRight]
        Caption = 'lbNDSName'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
        DataField = 'SPRNDS_NAME'
        DataSource = ADS
      end
      object lbTaxName: xbLabel
        Left = 236
        Top = 11
        Width = 310
        Height = 21
        Anchors = [akLeft, akTop, akRight]
        Caption = 'lbTaxName'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
        DataField = 'TAXTP_NAME'
        DataSource = ADS
      end
      object lerNDS: xbLabelEditRefer
        Left = 6
        Top = 32
        Width = 220
        Height = 21
        BorderColor = clWindowText
        Caption = #1057#1090#1072#1074#1082#1072
        CaptionAlignment = taLeftJustify
        DataField = 'TAX_RATE'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 1
        LabelWidth = 130
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        ReadOnly = True
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'TAX_IDRT;TAX_RATE'
        BeforeButtonClick = lerNDS_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'NAME;-1;350;1;0;'#1053#1072#1079#1074#1072#1085#1080#1077'|NDS;-1;100;1;0;'#1057#1090#1072#1074#1082#1072
        FindFieldType = tfCharacterString
        ListDataSet = DSNDS
        OutFieldsArray = 'NNOPER;NDS'
        PutFieldsArray = 'TAX_IDRT;TAX_RATE'
        ReferCaption = #1057#1090#1072#1074#1082#1080' '#1085#1072#1083#1086#1075#1086#1074
        ReferHeight = 300
        xReferId = 0
        IsHarbourRefer = True
        OnSelect = lerNDS_Select
      end
      object lecTaxBase: xbLabelEditCalc
        Left = 6
        Top = 56
        Width = 220
        Height = 21
        BorderColor = clWindowText
        Caption = #1054#1073#1083#1072#1075#1072#1077#1084#1072#1103' '#1089#1091#1084#1084#1072
        CaptionAlignment = taLeftJustify
        DataField = 'TAX_BASE'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 2
        LabelWidth = 130
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        OnEnter = lecTaxBase_Enter
        OnExit = lecTaxBase_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        VisibleButton = False
      end
      object cbIsHand: xbCheckBox
        Left = 5
        Top = 102
        Width = 146
        Height = 17
        Caption = #1056#1091#1095#1085#1072#1103' '#1082#1086#1088#1088#1077#1082#1090#1080#1088#1086#1074#1082#1072' . . . . . . . . . . . . . . . . . . . .'
        Enabled = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Layout = checkboxRight
        ParentFont = False
        TabOrder = 4
        TabStop = True
        ValueChecked = 'True'
        ValueUnchecked = 'False'
        DataField = 'IS_HAND'
        DataSource = ADS
      end
      object lecTaxSum: xbLabelEditCalc
        Left = 6
        Top = 80
        Width = 220
        Height = 21
        BorderColor = clWindowText
        Caption = #1057#1091#1084#1084#1072' '#1085#1072#1083#1086#1075#1072
        CaptionAlignment = taLeftJustify
        DataField = 'TAX_SUM'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 3
        LabelWidth = 130
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        OnExit = lecTaxSum_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        VisibleButton = False
      end
      object lerTaxCode: xbLabelEditRefer
        Left = 6
        Top = 8
        Width = 220
        Height = 21
        BorderColor = clWindowText
        Caption = #1053#1072#1083#1086#1075
        CaptionAlignment = taLeftJustify
        DataField = 'TAXTP_CODE'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 0
        LabelWidth = 130
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        ReadOnly = True
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'TAX_ID'
        BeforeButtonClick = lerTaxCode_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'TAX_CODE;-1;100;1;0;'#1050#1086#1076'|TAX_NAME;-1;350;1;0;'#1053#1072#1079#1074#1072#1085#1080#1077
        FindFieldType = tfCharacterString
        ListDataSet = DSTaxTp
        OutFieldsArray = 'TAX_ID'
        PutFieldsArray = 'TAX_ID'
        ReferCaption = #1042#1080#1076#1099' '#1085#1072#1083#1086#1075#1086#1074
        ReferHeight = 300
        TypeFindFieldName = 'TAX_CODE'
        xReferId = 0
        IsHarbourRefer = True
        OnSelect = lerTaxCode_Select
      end
    end
  end
  object btnOK: xbButton
    Left = 405
    Top = 162
    Width = 75
    Height = 21
    Hint = #1057#1086#1093#1088#1072#1085#1077#1085#1080#1077' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (F10)'
    Caption = #1054#1050
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 1
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btnCANCEL: xbButton
    Left = 492
    Top = 162
    Width = 75
    Height = 21
    Hint = #1042#1099#1093#1086#1076' '#1080#1079' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (Esc)'
    Caption = #1054#1090#1084#1077#1085#1072
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 2
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_FIN_TAX'
    Active = False
    Left = 326
    Top = 53
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <>
    OEMTranslate = False
    AfterEdit = DS_AfterEdit
    Left = 403
    Top = 51
  end
  object ADS: xbADSDataSource
    DataSet = DS
    Left = 366
    Top = 52
  end
  object DSNDS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'spr_nds'
    OEMTranslate = False
    IndexName = 'TAG_NAME'
    Left = 286
    Top = 55
  end
  object DSTaxTp: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'TAX\TAX_TP'
    OEMTranslate = False
    IndexName = 'TAG_NAME'
    Left = 287
    Top = 103
  end
end
frmPayBudExpRee.prg                                                   5841object frmPayBudExpRee: TfrmPayBudExpRee
  Left = 25
  Top = 25
  Width = 621
  Height = 404
  ActiveControl = GridBudExp
  Anchors = []
  Caption = #1056#1072#1089#1093#1086#1076#1099' '#1073#1102#1076#1078#1077#1090#1072
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  WindowState = wsNormal
  OnCloseQuery = Form_CloseQuery
  OnResize = Form_Resize
  OnShow = Form_Show
  DesignSize = (
    613
    370)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 8
    Top = 8
    Width = 597
    Height = 336
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    object TabSheet1: TTabSheet
      Caption = #1056#1077#1077#1089#1090#1088
      DesignSize = (
        595
        314)
      object GridBudExp: xbGrid
        Left = 6
        Top = 6
        Width = 583
        Height = 252
        Anchors = [akLeft, akTop, akRight, akBottom]
        AutoFitColWidths = True
        DataSource = adsReestr
        Flat = True
        FooterColor = clWindow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -11
        FooterFont.Name = 'MS Sans Serif'
        FooterFont.Style = []
        Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgConfirmDelete]
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        UseMultiTitle = True
        OnDblClick = GridBudExp_DblClick
        OnKeyPress = GridBudExp_KeyPress
        IdGrid = '{52346F28-7243-4B45-B134-B398B89E04D0}'
        Columns = <
          item
            EditButtons = <>
            FieldName = 'EXP_DIM'
            Footers = <>
            Title.Caption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
            Width = 220
          end
          item
            Alignment = taRightJustify
            EditButtons = <>
            FieldName = 'SUM_KR'
            Footers = <>
            Title.Caption = #1057#1091#1084#1084#1072
            Width = 110
          end
          item
            EditButtons = <>
            FieldName = 'PRIM'
            Footers = <>
            Title.Caption = #1055#1088#1080#1084#1077#1095#1072#1085#1080#1077
            Width = 220
          end
          item
            Alignment = taCenter
            EditButtons = <>
            FieldName = 'VIS_STRTP'
            Footers = <>
            Title.Caption = ' '
            Width = 15
          end>
      end
      object lecItogo: xbLabelEditCalc
        Left = 8
        Top = 264
        Width = 210
        Height = 21
        Anchors = [akLeft, akBottom]
        BorderColor = clWindowText
        Caption = #1048#1090#1086#1075#1086
        CaptionAlignment = taLeftJustify
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 1
        LabelWidth = 120
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        VisibleButton = False
      end
      object lecSumDoc: xbLabelEditCalc
        Left = 8
        Top = 288
        Width = 210
        Height = 21
        Anchors = [akLeft, akBottom]
        BorderColor = clWindowText
        Caption = #1057#1091#1084#1084#1072' '#1087#1086' '#1076#1086#1082#1091#1084#1077#1085#1090#1091
        CaptionAlignment = taLeftJustify
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 2
        LabelWidth = 120
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        VisibleButton = False
      end
    end
  end
  object pOperation: xbPopupButton
    Left = 532
    Top = 348
    Width = 75
    Height = 21
    Caption = #1054#1087#1077#1088#1072#1094#1080#1080
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = MenuOperation
    RoundedButton = True
    TabOrder = 1
    OnClick = pOperation_Click
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_BUD_EXP'
    Active = False
    Left = 169
    Top = 127
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <>
    ReadOnly = True
    OEMTranslate = False
    Left = 221
    Top = 127
  end
  object adsReestr: xbADSDataSource
    DataSet = DS
    Left = 277
    Top = 127
  end
  object MenuOperation: xbPopupMenu
    Left = 403
    Top = 226
    object miCopyBudExp: TMenuItem
      Caption = #1050#1086#1087#1080#1088#1086#1074#1072#1090#1100' '#1089#1090#1088#1086#1082#1091' '#1088#1072#1089#1096#1080#1092#1088#1086#1074#1082#1080'   F5'
      OnClick = miCopyBudExp_Click
    end
  end
end
frmPayDohBud.prg                                                     16973object frmPayDohBud: TfrmPayDohBud
  Left = 25
  Top = 25
  Width = 600
  Height = 303
  ActiveControl = larKBK
  Anchors = []
  Caption = #1044#1086#1093#1086#1076#1099' '#1073#1102#1076#1078#1077#1090#1072
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  WindowState = wsNormal
  OnActivate = Form_Activate
  OnClose = Form_Close
  OnCloseQuery = Form_CloseQuery
  OnCreate = Form_Create
  DesignSize = (
    592
    269)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 8
    Top = 8
    Width = 576
    Height = 225
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    object TabSheet1: TTabSheet
      Caption = #1054#1073#1097#1077#1077
      DesignSize = (
        574
        203)
      object lbOsnName: xbLabel
        Left = 236
        Top = 59
        Width = 330
        Height = 21
        Anchors = [akLeft, akTop, akRight]
        Caption = 'lbOsnName'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
      end
      object lbTaxPer: xbLabel
        Left = 236
        Top = 83
        Width = 330
        Height = 21
        Anchors = [akLeft, akTop, akRight]
        Caption = 'lbTaxPer'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
      end
      object lbNumDoc: xbLabel
        Left = 236
        Top = 107
        Width = 330
        Height = 21
        Anchors = [akLeft, akTop, akRight]
        Caption = 'lbNumDoc'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
      end
      object lbDtDoc: xbLabel
        Left = 236
        Top = 131
        Width = 330
        Height = 21
        Anchors = [akLeft, akTop, akRight]
        Caption = 'lbDtDoc'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
      end
      object lbTpPay: xbLabel
        Left = 236
        Top = 155
        Width = 330
        Height = 21
        Anchors = [akLeft, akTop, akRight]
        Caption = 'lbTpPay'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
      end
      object lbTpStat: xbLabel
        Left = 236
        Top = 179
        Width = 330
        Height = 21
        Anchors = [akLeft, akTop, akRight]
        Caption = 'lbTpStat'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
      end
      object lerOsnCode: xbLabelEditRefer
        Left = 8
        Top = 56
        Width = 220
        Height = 21
        BorderColor = clWindowText
        Caption = #1054#1089#1085#1086#1074#1072#1085#1080#1077' '#1087#1083#1072#1090#1077#1078#1072
        CaptionAlignment = taLeftJustify
        DataField = 'RS_CODE'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 2
        LabelWidth = 130
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Required = True
        OnEnter = lerOsnCode_Enter
        OnExit = lerOsnCode_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'RS_CODE'
        BeforeButtonClick = lerOsnCode_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'RS_CODE;-1;40;1;0;'#1050#1086#1076'|RS_NAME;-1;450;1;0;'#1053#1072#1079#1074#1072#1085#1080#1077
        FindFieldName = 'RS_CODE'
        FindFieldType = tfCharacterString
        ListDataSet = DSRSTP
        OutFieldsArray = 'RS_CODE'
        PutFieldsArray = 'RS_CODE'
        ReferCaption = #1054#1089#1085#1086#1074#1072#1085#1080#1103' '#1087#1083#1072#1090#1077#1078#1072
        ReferHeight = 300
        TypeFindFieldName = 'RS_CODE'
        xReferId = 0
        IsHarbourRefer = True
        IsMustEnter = True
        OnSelect = lerOsnCode_Select
      end
      object leOKATO: xbLabelEdit
        Left = 8
        Top = 32
        Width = 220
        Height = 21
        BorderColor = clWindowText
        Caption = #1054#1050#1040#1058#1054
        CaptionAlignment = taLeftJustify
        DataField = 'OKATO'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 1
        LabelWidth = 130
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object larKBK: xbLabelEditAnalitRefer
        Left = 8
        Top = 8
        Width = 350
        Height = 21
        BorderColor = clWindowText
        Caption = #1050#1041#1050
        CaptionAlignment = taLeftJustify
        DataField = 'PRF_DIM'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 0
        LabelWidth = 130
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'PRF_DIM'
        EnabledEdit = False
        VisibleButton = True
        UseStandartHint = True
        FindFieldType = tfCharacterString
        ReferCaption = #1057#1087#1080#1089#1086#1082
        xReferId = 0
        IsHarbourRefer = True
        MakeChecking = True
      end
      object lerTaxPer: xbLabelEditRefer
        Left = 8
        Top = 80
        Width = 220
        Height = 21
        BorderColor = clWindowText
        Caption = #1053#1072#1083#1086#1075#1086#1074#1099#1081' '#1087#1077#1088#1080#1086#1076
        CaptionAlignment = taLeftJustify
        DataField = 'TAX_PER'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 3
        LabelWidth = 130
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnExit = lerTaxPer_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'TAX_PER'
        BeforeButtonClick = lerTaxPer_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'VAL_CODE;-1;100;1;0;'#1050#1086#1076'|VAL_NAME;-1;350;1;0;'#1053#1072#1079#1074#1072#1085#1080#1077
        FindFieldType = tfCharacterString
        ListDataSet = DSVALTP
        OutFieldsArray = 'VAL_CODE'
        PutFieldsArray = 'TAX_PER'
        ReferCaption = #1053#1072#1083#1086#1075#1086#1074#1099#1081' '#1087#1077#1088#1080#1086#1076
        ReferHeight = 300
        xReferId = 0
        IsHarbourRefer = True
        OnSelect = lerTaxPer_Select
      end
      object lerNumDoc: xbLabelEditRefer
        Left = 8
        Top = 104
        Width = 220
        Height = 21
        BorderColor = clWindowText
        Caption = #1053#1086#1084#1077#1088' '#1076#1086#1082#1091#1084#1077#1085#1090#1072
        CaptionAlignment = taLeftJustify
        DataField = 'NUM_DOC'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 4
        LabelWidth = 130
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnExit = lerNumDoc_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'NUM_DOC'
        BeforeButtonClick = lerNumDoc_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'VAL_CODE;-1;100;1;0;'#1050#1086#1076'|VAL_NAME;-1;350;1;0;'#1053#1072#1079#1074#1072#1085#1080#1077
        FindFieldType = tfCharacterString
        ListDataSet = DSVALTP
        OutFieldsArray = 'VAL_CODE'
        PutFieldsArray = 'NUM_DOC'
        ReferCaption = #1053#1086#1084#1077#1088' '#1076#1086#1082#1091#1084#1077#1085#1090#1072
        ReferHeight = 300
        xReferId = 0
        IsHarbourRefer = True
        OnSelect = lerNumDoc_Select
      end
      object lerDtDoc: xbLabelEditRefer
        Left = 8
        Top = 128
        Width = 220
        Height = 21
        BorderColor = clWindowText
        Caption = #1044#1072#1090#1072' '#1076#1086#1082#1091#1084#1077#1085#1090#1072
        CaptionAlignment = taLeftJustify
        DataField = 'DT_DOC'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 5
        LabelWidth = 130
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnExit = lerDtDoc_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'DT_DOC'
        BeforeButtonClick = lerDtDoc_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'VAL_CODE;-1;100;1;0;'#1050#1086#1076'|VAL_NAME;-1;350;1;0;'#1053#1072#1079#1074#1072#1085#1080#1077
        FindFieldType = tfCharacterString
        ListDataSet = DSVALTP
        OutFieldsArray = 'VAL_CODE'
        PutFieldsArray = 'DT_DOC'
        ReferCaption = #1044#1072#1090#1072' '#1076#1086#1082#1091#1084#1077#1085#1090#1072
        ReferHeight = 300
        xReferId = 0
        IsHarbourRefer = True
        OnSelect = lerDtDoc_Select
      end
      object lerTpPay: xbLabelEditRefer
        Left = 8
        Top = 152
        Width = 220
        Height = 21
        BorderColor = clWindowText
        Caption = #1058#1080#1087' '#1087#1083#1072#1090#1077#1078#1072
        CaptionAlignment = taLeftJustify
        DataField = 'TP_PAY'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 6
        LabelWidth = 130
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Required = True
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'TP_PAY'
        BeforeButtonClick = lerTpPay_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'VAL_CODE;-1;100;1;0;'#1050#1086#1076'|VAL_NAME;-1;350;1;0;'#1053#1072#1079#1074#1072#1085#1080#1077
        FindFieldName = 'VAL_CODE'
        FindFieldType = tfCharacterString
        ListDataSet = DSVALTP
        OutFieldsArray = 'VAL_CODE'
        PutFieldsArray = 'TP_PAY'
        ReferCaption = #1058#1080#1087' '#1087#1083#1072#1090#1077#1078#1072
        ReferHeight = 300
        TypeFindFieldName = 'VAL_CODE'
        xReferId = 0
        IsHarbourRefer = True
        IsMustEnter = True
        OnSelect = lerTpPay_Select
      end
      object lerTpStat: xbLabelEditRefer
        Left = 8
        Top = 175
        Width = 220
        Height = 21
        BorderColor = clWindowText
        Caption = #1057#1090#1072#1090#1091#1089' '#1053#1055
        CaptionAlignment = taLeftJustify
        DataField = 'TP_STAT'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 7
        LabelWidth = 130
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Required = True
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'TP_STAT'
        BeforeButtonClick = lerTpStat_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'CODE;-1;100;1;0;'#1050#1086#1076'|NAME;-1;350;1;0;'#1053#1072#1079#1074#1072#1085#1080#1077
        FindFieldName = 'CODE'
        FindFieldType = tfCharacterString
        ListDataSet = DSTYPEP
        OutFieldsArray = 'CODE'
        PutFieldsArray = 'TP_STAT'
        ReferCaption = #1057#1090#1072#1090#1091#1089' '#1085#1072#1083#1086#1075#1086#1087#1083#1072#1090#1077#1083#1100#1097#1080#1082#1072
        ReferHeight = 300
        TypeFindFieldName = 'CODE'
        xReferId = 0
        IsHarbourRefer = True
        IsMustEnter = True
        OnSelect = lerTpStat_Select
      end
    end
  end
  object btnOK: xbButton
    Left = 425
    Top = 241
    Width = 75
    Height = 21
    Hint = #1057#1086#1093#1088#1072#1085#1077#1085#1080#1077' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (F10)'
    Caption = #1054#1050
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 1
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btnCANCEL: xbButton
    Left = 512
    Top = 241
    Width = 75
    Height = 21
    Hint = #1042#1099#1093#1086#1076' '#1080#1079' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (Esc)'
    Caption = #1054#1090#1084#1077#1085#1072
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 2
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btClear: xbButton
    Left = 338
    Top = 241
    Width = 75
    Height = 21
    Hint = #1054#1095#1080#1089#1090#1080#1090#1100' '#1087#1086#1083#1103' '#1092#1086#1088#1084#1099' (Alt+F8)'
    Caption = #1054#1095#1080#1089#1090#1080#1090#1100
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 3
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_DOC_CMP'
    Active = False
    Left = 326
    Top = 53
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <>
    OEMTranslate = False
    AfterEdit = DS_AfterEdit
    Left = 403
    Top = 51
  end
  object ADS: xbADSDataSource
    DataSet = DS
    Left = 366
    Top = 52
  end
  object DSRSTP: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'PAY\rs_tp'
    OEMTranslate = False
    IndexName = 'TAG_CODE'
    Left = 360
    Top = 109
  end
  object DSVALTP: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'PAY\val_tp'
    OEMTranslate = False
    IndexName = 'TAG_FLD'
    Left = 290
    Top = 159
  end
  object DSTYPEP: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'type_p'
    OEMTranslate = False
    IndexName = 'TAG_CODE'
    Left = 367
    Top = 164
  end
end
frmPayBudExp.prg                                                     15977object frmPayBudExp: TfrmPayBudExp
  Left = 25
  Top = 25
  Width = 500
  Height = 208
  ActiveControl = larExpAnalRas
  Anchors = []
  Caption = #1056#1072#1089#1093#1086#1076#1099' '#1073#1102#1076#1078#1077#1090#1072
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  WindowState = wsNormal
  OnActivate = Form_Activate
  OnClose = Form_Close
  OnCloseQuery = Form_CloseQuery
  OnCreate = Form_Create
  OnShow = Form_Show
  DesignSize = (
    492
    174)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 8
    Top = 8
    Width = 476
    Height = 130
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    object TabSheet1: TTabSheet
      Caption = #1054#1073#1097#1077#1077
      DesignSize = (
        474
        108)
      object lbFinTp: xbLabel
        Left = 197
        Top = 11
        Width = 269
        Height = 17
        Anchors = [akLeft, akTop, akRight]
        Caption = 'lbBudLev'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
      end
      object lecSumma: xbLabelEditCalc
        Left = 8
        Top = 56
        Width = 180
        Height = 21
        BorderColor = clWindowText
        Caption = #1057#1091#1084#1084#1072
        CaptionAlignment = taLeftJustify
        DataField = 'SUM_KR'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 7
        LabelWidth = 90
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        OnExit = lecSumma_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        VisibleButton = False
      end
      object lePrim: xbLabelEdit
        Left = 8
        Top = 80
        Width = 460
        Height = 21
        BorderColor = clWindowText
        Caption = #1055#1088#1080#1084#1077#1095#1072#1085#1080#1077
        CaptionAlignment = taLeftJustify
        DataField = 'PRIM'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 10
        LabelWidth = 90
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object lerFinTp: xbLabelEditRefer
        Left = 8
        Top = 8
        Width = 180
        Height = 21
        BorderColor = clWindowText
        Caption = #1048#1089#1090#1086#1095#1085#1080#1082' '#1092#1080#1085'-'#1103
        CaptionAlignment = taLeftJustify
        DataField = 'FIN_TP'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 0
        LabelWidth = 90
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Required = True
        OnExit = lerFinTp_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'FIN_TP'
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'FIN_TP;-1;100;1;0;'#1050#1086#1076'|FIN_NAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldName = 'FIN_TP'
        FindFieldType = tfCharacterString
        ListDataSet = DSFinTp
        OutFieldsArray = 'FIN_TP'
        PutFieldsArray = 'FIN_TP'
        ReferCaption = #1057#1087#1080#1089#1086#1082
        ReferWidth = 450
        TypeFindFieldName = 'FIN_TP'
        xReferId = 0
        IsHarbourRefer = True
        IsMustEnter = True
        OnSelect = lerFinTp_Select
      end
      object lerExpDimTp: xbLabelEditRefer
        Left = 8
        Top = 32
        Width = 180
        Height = 21
        BorderColor = clWindowText
        Caption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
        CaptionAlignment = taLeftJustify
        DataField = 'EXP_DIM_TP'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 2
        LabelWidth = 90
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Required = True
        OnEnter = lerExpDimTp_Enter
        OnExit = lerExpDimTp_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'EXP_DIM_TP'
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'CODE;-1;100;1;0;'#1050#1086#1076'|NAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldName = 'EXP_DIM_TP'
        FindFieldType = tfCharacterString
        ListDataSet = DSExpDimTp
        OutFieldsArray = 'CODE'
        PutFieldsArray = 'EXP_DIM_TP'
        ReferCaption = #1057#1087#1080#1089#1086#1082
        ReferWidth = 450
        TypeFindFieldName = 'EXP_DIM_TP'
        xReferId = 0
        IsHarbourRefer = True
        OnSelect = lerExpDimTp_Select
      end
      object larExpAnalRas: xbLabelEditAnalitRefer
        Left = 197
        Top = 32
        Width = 70
        Height = 21
        BorderColor = clWindowText
        Caption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
        CaptionAlignment = taLeftJustify
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 3
        LabelWidth = 0
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'EXP_DIM'
        EnabledEdit = False
        VisibleButton = True
        UseStandartHint = True
        FindFieldType = tfCharacterString
        ReferCaption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
        TableName = 'PAY\DIM_TUNE'
        xReferId = 0
        IsHarbourRefer = True
        MakeChecking = True
      end
      object larExpAnalDoh: xbLabelEditAnalitRefer
        Left = 270
        Top = 32
        Width = 70
        Height = 21
        BorderColor = clWindowText
        Caption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
        CaptionAlignment = taLeftJustify
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 4
        LabelWidth = 0
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'EXP_DIM'
        EnabledEdit = False
        VisibleButton = True
        UseStandartHint = True
        FindFieldType = tfCharacterString
        ReferCaption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
        TableName = 'PAY\DIM_TUNE'
        xReferId = 0
        IsHarbourRefer = True
        MakeChecking = True
      end
      object larExpAnalDif: xbLabelEditAnalitRefer
        Left = 344
        Top = 32
        Width = 70
        Height = 21
        BorderColor = clWindowText
        Caption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
        CaptionAlignment = taLeftJustify
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 5
        LabelWidth = 0
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'EXP_DIM'
        EnabledEdit = False
        VisibleButton = True
        UseStandartHint = True
        FindFieldType = tfCharacterString
        ReferCaption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
        TableName = 'PAY\DIM_TUNE'
        xReferId = 0
        IsHarbourRefer = True
        MakeChecking = True
      end
      object leExpAnalEmp: xbLabelEdit
        Left = 418
        Top = 32
        Width = 50
        Height = 21
        BorderColor = clWindowText
        Caption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
        CaptionAlignment = taLeftJustify
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 6
        LabelWidth = 0
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object btBO: xbButton
        Left = 318
        Top = 8
        Width = 150
        Height = 21
        Caption = #1041#1102#1076#1078#1077#1090#1085#1086#1077' '#1086#1073#1103#1079#1072#1090#1077#1083#1100#1089#1090#1074#1086
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        RoundedButton = True
        ShowHint = True
        TabOrder = 1
        OnClick = btBO_Click
        ButtonColor = clBlack
      end
      object leBOMonth: xbLabelEdit
        Left = 318
        Top = 56
        Width = 68
        Height = 21
        BorderColor = clWindowText
        Caption = #1041#1054
        CaptionAlignment = taLeftJustify
        DataField = 'EX_MON'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        Enabled = False
        EditMask = '00'
        DisplayFormat = '00'
        TabOrder = 8
        LabelWidth = 30
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        MaxLength = 2
        Text = '  '
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leBOYear: xbLabelEdit
        Left = 398
        Top = 56
        Width = 70
        Height = 21
        BorderColor = clWindowText
        Caption = #1043#1086#1076
        CaptionAlignment = taLeftJustify
        DataField = 'EX_YEAR'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        Enabled = False
        EditMask = '0000'
        DisplayFormat = '0000'
        TabOrder = 9
        LabelWidth = 0
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        MaxLength = 4
        Text = '    '
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
    end
  end
  object btnOK: xbButton
    Left = 325
    Top = 146
    Width = 75
    Height = 21
    Hint = #1057#1086#1093#1088#1072#1085#1077#1085#1080#1077' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (F10)'
    Caption = #1054#1050
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 2
    ModalResult = 1
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btnCANCEL: xbButton
    Left = 412
    Top = 146
    Width = 75
    Height = 21
    Hint = #1042#1099#1093#1086#1076' '#1080#1079' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (Esc)'
    Caption = #1054#1090#1084#1077#1085#1072
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 3
    ModalResult = 2
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btDopRecv: xbButton
    Left = 213
    Top = 146
    Width = 100
    Height = 21
    Hint = #1044#1086#1087#1086#1083#1085#1080#1090#1077#1083#1100#1085#1099#1077' '#1088#1077#1082#1074#1080#1079#1080#1090#1099' (Alt+F5)'
    Caption = #1044#1086#1087'. '#1088#1077#1082#1074#1080#1079#1080#1090#1099
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 1
    OnClick = btDopRecv_Click
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_BUD_EXP'
    Active = False
    Left = 201
    Top = 82
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <>
    OEMTranslate = False
    AfterEdit = DS_AfterEdit
    Left = 278
    Top = 80
  end
  object ADS: xbADSDataSource
    DataSet = DS
    Left = 241
    Top = 81
  end
  object DSDIMTUNE: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'PAY\dim_tune'
    OEMTranslate = False
    IndexName = 'TAG_CODE'
    Left = 189
    Top = 65531
  end
  object DSBudExpSpr: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    OEMTranslate = False
    Left = 265
    Top = 65532
  end
  object DSBudExpOst: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    OEMTranslate = False
    Left = 104
    Top = 65532
  end
  object DSFinTp: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'PAY\FIN_TP.DBF'
    OEMTranslate = False
    IndexName = 'TAG_TP'
    Left = 19
    Top = 92
  end
  object DSExpDimTp: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'PAY\DopAn_TP.DBF'
    OEMTranslate = False
    IndexName = 'TAG_CODE'
    Left = 348
    Top = 1
  end
  object RFBO: xbReferCaller
    ColumnsTune = 
      'FIN_TP;-1;50;1;0;'#1048#1060'|EXP_DIM;-1;200;1;0;'#1040#1085#1072#1083#1080#1090#1080#1082#1072'|EX_YEAR;-1;80;1' +
      ';0;'#1043#1086#1076'|EX_MON;-1;50;1;0;'#1052#1077#1089#1103#1094'|SUM_OST;-1;100;1;0;'#1054#1087#1083#1072#1095#1077#1085#1086
    ListDataSet = DSBORef
    ReferCaption = #1042#1080#1076#1099' '#1076#1074#1080#1078#1077#1085#1080#1103
    ReferWidth = 550
    OnSelect = RFBO_Select
    Left = 348
    Top = 87
  end
  object DSBORef: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'PAY\MOVE_TP.DBF'
    OEMTranslate = False
    Left = 426
    Top = 87
  end
end
frmPayPlatTreb.prg                                                   37810object frmPayPlatTreb: TfrmPayPlatTreb
  Left = 25
  Top = 25
  Width = 680
  Height = 429
  ActiveControl = lcbPTp
  Anchors = []
  Caption = #1055#1083#1072#1090#1077#1078#1085#1086#1077' '#1090#1088#1077#1073#1086#1074#1072#1085#1080#1077
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  WindowState = wsNormal
  OnCloseQuery = Form_CloseQuery
  OnCreate = Form_Create
  DesignSize = (
    672
    395)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 8
    Top = 8
    Width = 658
    Height = 356
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    object TabSheet1: TTabSheet
      Caption = #1054#1073#1097#1077#1077
      DesignSize = (
        656
        334)
      object lbMvTpName: xbLabel
        Left = 238
        Top = 59
        Width = 240
        Height = 17
        Anchors = [akLeft, akTop, akRight]
        Caption = 'lbMvTpName'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
        DataField = 'MV_NAME'
        DataSource = ADS
      end
      object lerMvTpCode: xbLabelEditRefer
        Left = 8
        Top = 56
        Width = 220
        Height = 21
        BorderColor = clWindowText
        Caption = #1042#1080#1076' '#1076#1074#1080#1078#1077#1085#1080#1103
        CaptionAlignment = taLeftJustify
        DataField = 'MV_CODE'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 5
        LabelWidth = 120
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnExit = lerMvTpCode_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'MV_CODE'
        BeforeButtonClick = lerMvTpCode_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'MV_CODE;-1;50;1;-1;'#1050#1086#1076'|MV_NAME;-1;200;1;-1;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldName = 'MV_CODE'
        FindFieldType = tfCharacterString
        ListDataSet = DSMvTp
        OutFieldsArray = 'MV_CODE;PRT_TP'
        PutFieldsArray = 'MV_CODE;PRT_TP'
        ReferCaption = #1042#1080#1076#1099' '#1076#1074#1080#1078#1077#1085#1080#1103' '#1076#1077#1085#1077#1078#1085#1099#1093' '#1089#1088#1077#1076#1089#1090#1074
        TypeFindFieldName = 'MV_CODE'
        xReferId = 0
        IsHarbourRefer = True
        OnSelect = lerMvTpCode_Select
      end
      object bFrame1: xbFrame
        Left = 8
        Top = 85
        Width = 640
        Height = 90
        Caption = #1055#1083#1072#1090#1077#1083#1100#1097#1080#1082
        TabOrder = 8
        Anchors = [akLeft, akTop, akRight]
        DesignSize = (
          640
          90)
        object lbPlatName: xbLabel
          Left = 281
          Top = 19
          Width = 350
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPlatName'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'PART_SHORTNAME'
          DataSource = ADS
        end
        object lbPlatBankName1: xbLabel
          Left = 411
          Top = 43
          Width = 220
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPlatBankName1'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'PRTACNT_BANK_NAME'
          DataSource = ADSDocCmp
        end
        object lbPlatBankName2: xbLabel
          Left = 411
          Top = 67
          Width = 220
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPlatBankName2'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          OnClick = lbPolBankName2_Click
          DataField = 'PRTACNTCMPBNK_NAME'
          DataSource = ADSDocCmp
        end
        object lerPlatCode: xbLabelEditRefer
          Left = 6
          Top = 16
          Width = 265
          Height = 21
          BorderColor = clWindowText
          Caption = #1055#1088#1077#1076#1087#1088#1080#1103#1090#1080#1077
          CaptionAlignment = taLeftJustify
          DataField = 'PART_CODE'
          DataSource = ADS
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 0
          LabelWidth = 114
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          OnEnter = lerPlatCode_Enter
          OnExit = lerPlatCode_Exit
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'PRT_ID'
          BeforeButtonClick = lerPlatCode_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 'CODE;-1;100;1;0;'#1050#1086#1076'|SORTNAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
          FindFieldName = 'CODE'
          FindFieldType = tfCharacterString
          OutFieldsArray = 'PART_ID'
          PutFieldsArray = 'PRT_ID'
          ReferCaption = #1057#1087#1080#1089#1086#1082
          ReferWidth = 450
          TypeFindFieldName = 'CODE'
          xReferId = 0
          IsHarbourRefer = True
          OnSelect = lerPlatCode_Select
        end
        object lerPlatAcnt1: xbLabelEditRefer
          Left = 6
          Top = 40
          Width = 265
          Height = 21
          BorderColor = clWindowText
          Caption = #1056#1072#1089#1095#1077#1090#1085#1099#1081' '#1089#1095#1077#1090
          CaptionAlignment = taLeftJustify
          DataField = 'PRTACNT_NUM'
          DataSource = ADSDocCmp
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 1
          LabelWidth = 114
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'P_ACNT_ID'
          BeforeButtonClick = lerPlatAcnt1_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 
            'Accnt;-1;130;1;-1;'#1057#1095#1077#1090'|GetBankName;-1;200;1;-1;'#1041#1072#1085#1082'|Comment;-1;1' +
            '70;1;-1;'#1050#1086#1084#1084#1077#1085#1090#1072#1088#1080#1081
          FindFieldName = 'ACCNT'
          FindFieldType = tfCharacterString
          ListDataSet = DSPlatAcnt1
          OutFieldsArray = 'REC_ID'
          PutFieldsArray = 'P_ACNT_ID'
          ReferCaption = #1057#1095#1077#1090' '#1074' '#1073#1072#1085#1082#1077
          TypeFindFieldName = 'ACCNT'
          xReferId = 0
          IsHarbourRefer = True
          OnSelect = lerPlatAcnt1_Select
        end
        object lerPlatAcnt2: xbLabelEditRefer
          Left = 120
          Top = 64
          Width = 151
          Height = 21
          BorderColor = clWindowText
          Caption = #1056#1072#1089#1095#1077#1090#1085#1099#1081' '#1089#1095#1077#1090
          CaptionAlignment = taLeftJustify
          DataField = 'PRTACNTCMP_NUM'
          DataSource = ADSDocCmp
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 2
          LabelWidth = 0
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'P_ACNT_CMP'
          BeforeButtonClick = lerPlatAcnt2_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 
            'Accnt;-1;130;1;-1;'#1057#1095#1077#1090'|GetBankName;-1;200;1;-1;'#1041#1072#1085#1082'|Comment;-1;1' +
            '70;1;-1;'#1050#1086#1084#1084#1077#1085#1090#1072#1088#1080#1081
          FindFieldName = 'ACCNT'
          FindFieldType = tfCharacterString
          ListDataSet = DSPlatAcnt2
          OutFieldsArray = 'REC_ID'
          PutFieldsArray = 'P_ACNT_CMP'
          ReferCaption = #1057#1095#1077#1090' '#1074' '#1073#1072#1085#1082#1077
          TypeFindFieldName = 'ACCNT'
          xReferId = 0
          IsHarbourRefer = True
        end
        object lePlatBankCode1: xbLabelEdit
          Left = 281
          Top = 40
          Width = 120
          Height = 21
          BorderColor = clWindowText
          Caption = #1074' '#1073#1072#1085#1082#1077
          CaptionAlignment = taLeftJustify
          DataField = 'PRTACNT_BANK_CODE'
          DataSource = ADSDocCmp
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 3
          LabelWidth = 42
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object lerPlatBankCode2: xbLabelEditRefer
          Left = 281
          Top = 64
          Width = 120
          Height = 21
          BorderColor = clWindowText
          Caption = #1074' '#1073#1072#1085#1082#1077
          CaptionAlignment = taLeftJustify
          DataField = 'PRTACNTCMPBNK_CODE'
          DataSource = ADSDocCmp
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 4
          LabelWidth = 42
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'P_ACNT_BNK'
          BeforeButtonClick = lerPlatBankCode2_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 'Bnk_Code;-1;50;1;-1;'#1050#1086#1076'|Bnk_Name;-1;150;1;-1;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
          FindFieldName = 'BNK_CODE'
          FindFieldType = tfCharacterString
          ListDataSet = DSPolBank2
          OutFieldsArray = 'BNK_ID'
          PutFieldsArray = 'P_ACNT_BNK'
          ReferCaption = #1057#1095#1077#1090' '#1074' '#1073#1072#1085#1082#1077
          TypeFindFieldName = 'BNK_CODE'
          xReferId = 0
          IsHarbourRefer = True
        end
      end
      object lcbStatus: xbLabelCombo
        Left = 238
        Top = 8
        Width = 130
        Height = 21
        ParentBackGround = True
        Caption = #1057#1090#1072#1090#1091#1089
        Enabled = False
        TabOrder = 1
        LabelWidth = 40
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Sorted = False
        EditColor = clWindow
        DisabledColor = clInactiveBorder
        DisabledFontColor = clBlack
        BorderColor = clWindowText
        AutoComplete = False
        Style = csDropDownList
        CharCase = ecNormal
        DropDownCount = 0
        ItemHeight = 0
        MaxLength = 0
        Items.Strings = (
          #1095#1077#1088#1085#1086#1074#1080#1082
          #1086#1087#1083#1072#1095#1077#1085
          #1087#1077#1088#1077#1076#1072#1085)
        ItemIndex = -1
        UseStandartHint = True
      end
      object leDocVid: xbLabelEdit
        Left = 8
        Top = 32
        Width = 220
        Height = 21
        BorderColor = clWindowText
        Caption = #1044#1086#1082#1091#1084#1077#1085#1090':             '#1074#1080#1076'    '
        CaptionAlignment = taLeftJustify
        DataField = 'DOC_CODE'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 2
        LabelWidth = 120
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leDocNum: xbLabelEdit
        Left = 238
        Top = 32
        Width = 130
        Height = 21
        BorderColor = clWindowText
        Caption = #1085#1086#1084#1077#1088'    '
        CaptionAlignment = taLeftJustify
        DataField = 'DOC_NUM'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 3
        LabelWidth = 40
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leDocDate: xbLabelEdit
        Left = 378
        Top = 32
        Width = 100
        Height = 21
        BorderColor = clWindowText
        Caption = #1076#1072#1090#1072'    '
        CaptionAlignment = taLeftJustify
        DataField = 'DOC_DATE'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 4
        LabelWidth = 30
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object bFrame2: xbFrame
        Left = 8
        Top = 183
        Width = 640
        Height = 90
        Caption = #1055#1086#1083#1091#1095#1072#1090#1077#1083#1100
        TabOrder = 9
        Anchors = [akLeft, akTop, akRight]
        DesignSize = (
          640
          90)
        object lbNalModelName: xbLabel
          Left = 266
          Top = 118
          Width = 300
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbNalModelName'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataSource = ADS
        end
        object lbPolName: xbLabel
          Left = 281
          Top = 19
          Width = 350
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPolName'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'FINOBJ_PART_SHORTNAME'
          DataSource = ADS
        end
        object lbPolBankName1: xbLabel
          Left = 411
          Top = 43
          Width = 220
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPolBankName1'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'OWNACNT_BANK_NAME'
          DataSource = ADSDocCmp
        end
        object lbPolBankName2: xbLabel
          Left = 411
          Top = 67
          Width = 220
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPolBankName2'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          OnClick = lbPolBankName2_Click
          DataField = 'OWNACNTCMPBNK_NAME'
          DataSource = ADSDocCmp
        end
        object lePolCode: xbLabelEdit
          Left = 6
          Top = 16
          Width = 265
          Height = 21
          BorderColor = clWindowText
          Caption = #1055#1088#1077#1076#1087#1088#1080#1103#1090#1080#1077
          CaptionAlignment = taLeftJustify
          DataField = 'FINOBJ_PART_CODE'
          DataSource = ADS
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 0
          LabelWidth = 114
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object lePolAcnt1: xbLabelEdit
          Left = 6
          Top = 40
          Width = 265
          Height = 21
          BorderColor = clWindowText
          Caption = #1056#1072#1089#1095#1077#1090#1085#1099#1081' '#1089#1095#1077#1090
          CaptionAlignment = taLeftJustify
          DataField = 'OWNACNT_NUM'
          DataSource = ADSDocCmp
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 1
          LabelWidth = 114
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object lePolAcnt2: xbLabelEdit
          Left = 120
          Top = 64
          Width = 151
          Height = 21
          BorderColor = clWindowText
          Caption = #1056#1072#1089#1095#1077#1090#1085#1099#1081' '#1089#1095#1077#1090
          CaptionAlignment = taLeftJustify
          DataField = 'OWNACNTCMP_NUM'
          DataSource = ADSDocCmp
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 2
          LabelWidth = 0
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object lePolBankCode1: xbLabelEdit
          Left = 281
          Top = 40
          Width = 120
          Height = 21
          BorderColor = clWindowText
          Caption = #1074' '#1073#1072#1085#1082#1077
          CaptionAlignment = taLeftJustify
          DataField = 'OWNACNT_BANK_CODE'
          DataSource = ADSDocCmp
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 3
          LabelWidth = 42
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object lerPolBankCode2: xbLabelEditRefer
          Left = 281
          Top = 64
          Width = 120
          Height = 21
          BorderColor = clWindowText
          Caption = #1074' '#1073#1072#1085#1082#1077
          CaptionAlignment = taLeftJustify
          DataField = 'OWNACNTCMPBNK_CODE'
          DataSource = ADSDocCmp
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 4
          LabelWidth = 42
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'M_ACNT_BNK'
          EnabledEdit = False
          BeforeButtonClick = lerPolBankCode2_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 'Bnk_Code;-1;50;1;-1;'#1050#1086#1076'|Bnk_Name;-1;150;1;-1;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
          FindFieldName = 'BNK_CODE'
          FindFieldType = tfCharacterString
          ListDataSet = DSPlatBank2
          OutFieldsArray = 'BNK_ID'
          PutFieldsArray = 'M_ACNT_BNK'
          ReferCaption = #1057#1095#1077#1090' '#1074' '#1073#1072#1085#1082#1077
          TypeFindFieldName = 'BNK_CODE'
          xReferId = 0
          IsHarbourRefer = True
        end
      end
      object lerVal: xbLabelEditRefer
        Left = 498
        Top = 32
        Width = 150
        Height = 21
        BorderColor = clWindowText
        Caption = #1042#1072#1083#1102#1090#1072
        CaptionAlignment = taLeftJustify
        DataField = 'CURR'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 6
        LabelWidth = 50
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'CURR'
        EnabledEdit = False
        EnabledButton = False
        BeforeButtonClick = lerVal_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'CODE;-1;50;1;-1;'#1050#1086#1076'|NAME;-1;200;1;-1;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldName = 'CODE'
        FindFieldType = tfCharacterString
        ListDataSet = DSVal
        OutFieldsArray = 'CODE'
        PutFieldsArray = 'CURR'
        ReferCaption = #1057#1087#1088#1072#1074#1086#1095#1085#1080#1082' '#1074#1072#1083#1102#1090
        TypeFindFieldName = 'CODE'
        xReferId = 0
        IsHarbourRefer = True
      end
      object lecSumma: xbLabelEditCalc
        Left = 498
        Top = 56
        Width = 150
        Height = 21
        BorderColor = clWindowText
        Caption = #1057#1091#1084#1084#1072
        CaptionAlignment = taLeftJustify
        DataField = 'SUM'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        TabOrder = 7
        LabelWidth = 50
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        OnEnter = lecSumma_Enter
        OnExit = lecSumma_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        VisibleButton = False
      end
      object lcbPTp: xbLabelCombo
        Left = 8
        Top = 8
        Width = 220
        Height = 21
        ParentBackGround = True
        Caption = #1042#1080#1076' '#1087#1083#1072#1090#1077#1078#1072
        TabOrder = 0
        LabelWidth = 120
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Sorted = False
        EditColor = clWindow
        DisabledColor = clInactiveBorder
        DisabledFontColor = clBlack
        BorderColor = clWindowText
        AutoComplete = False
        Style = csDropDownList
        CharCase = ecNormal
        DropDownCount = 0
        ItemHeight = 0
        MaxLength = 0
        Items.Strings = (
          #1087#1086#1095#1090#1086#1081
          #1090#1077#1083#1077#1075#1088#1072#1092#1086#1084
          #1101#1083#1077#1082#1090#1088#1086#1085#1085#1086
          #1089#1088#1086#1095#1085#1086)
        ItemIndex = -1
        UseStandartHint = True
        OnSelect = lcbPTp_Select
      end
      object lerNaznPlat: xbLabelEditRefer
        Left = 8
        Top = 282
        Width = 401
        Height = 21
        BorderColor = clWindowText
        Caption = #1053#1072#1079#1085#1072#1095#1077#1085#1080#1077' '#1087#1083#1072#1090#1077#1078#1072
        CaptionAlignment = taLeftJustify
        DataField = 'COMMENT'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 10
        LabelWidth = 120
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnKeyDown = lerNaznPlat_KeyDown
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'REASON_ID;COMMENT'
        BeforeButtonClick = lerNaznPlat_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'TEXT;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldType = tfCharacterString
        ListDataSet = DSReasons
        OutFieldsArray = 'RowID'
        PutFieldsArray = 'REASON_ID'
        ReferCaption = #1054#1089#1085#1086#1074#1072#1085#1080#1103' '#1087#1083#1072#1090#1077#1078#1072
        ReferWidth = 450
        xReferId = 0
        IsHarbourRefer = True
      end
      object lerNalModelCode: xbLabelEditRefer
        Left = 8
        Top = 306
        Width = 401
        Height = 21
        BorderColor = clWindowText
        Caption = #1053#1072#1083#1086#1075#1086#1074#1072#1103' '#1084#1086#1076#1077#1083#1100
        CaptionAlignment = taLeftJustify
        DataField = 'TAXMOD_NAME'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 11
        LabelWidth = 120
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnEnter = lerNalModelCode_Enter
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'TAX_MOD_ID'
        BeforeButtonClick = lerNalModelCode_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'MD_CODE;-1;50;1;-1;'#1050#1086#1076'|MD_NAME;-1;200;1;-1;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldName = 'MD_NAME'
        FindFieldType = tfCharacterString
        ListDataSet = DSTaxMod
        OutFieldsArray = 'MOD_ID'
        PutFieldsArray = 'TAX_MOD_ID'
        ReferCaption = #1053#1072#1083#1086#1075#1086#1074#1099#1077' '#1084#1086#1076#1077#1083#1080
        TypeFindFieldName = 'MD_NAME'
        xReferId = 0
        IsHarbourRefer = True
        OnSelect = lerNalModelCode_Select
      end
      object lcbPayCond: xbLabelCombo
        Left = 418
        Top = 282
        Width = 231
        Height = 21
        ParentBackGround = True
        Caption = #1059#1089#1083#1086#1074#1080#1077' '#1086#1087#1083#1072#1090#1099
        TabOrder = 12
        LabelWidth = 120
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Sorted = False
        EditColor = clWindow
        DisabledColor = clInactiveBorder
        DisabledFontColor = clBlack
        BorderColor = clWindowText
        AutoComplete = False
        Style = csDropDownList
        CharCase = ecNormal
        DropDownCount = 0
        ItemHeight = 0
        MaxLength = 0
        Items.Strings = (
          #1089' '#1072#1082#1094#1077#1087#1090#1086#1084
          #1073#1077#1079' '#1072#1082#1094#1077#1087#1090#1072)
        ItemIndex = -1
        UseStandartHint = True
        OnSelect = lcbPayCond_Select
      end
      object lePayDate: xbLabelEdit
        Left = 418
        Top = 306
        Width = 231
        Height = 21
        BorderColor = clWindowText
        Caption = #1057#1088#1086#1082' '#1072#1082#1094#1077#1087#1090#1072
        CaptionAlignment = taLeftJustify
        DataField = 'PAY_DATE'
        DataSource = ADSDocCmp
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 13
        LabelWidth = 120
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
    end
  end
  object btnOK: xbButton
    Left = 508
    Top = 373
    Width = 75
    Height = 21
    Hint = #1057#1086#1093#1088#1072#1085#1077#1085#1080#1077' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (F10)'
    Caption = #1054#1050
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 4
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btnCANCEL: xbButton
    Left = 591
    Top = 373
    Width = 75
    Height = 21
    Hint = #1042#1099#1093#1086#1076' '#1080#1079' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (Esc)'
    Caption = #1054#1090#1084#1077#1085#1072
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 5
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btNalogi: xbButton
    Left = 208
    Top = 373
    Width = 100
    Height = 21
    Hint = ' '#1053#1072#1076#1073#1072#1074#1082#1080' (Ctrl+N)'
    Caption = #1053#1072#1083#1086#1075#1080
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 1
    OnClick = btNalogi_Click
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object pOperation: xbPopupButton
    Left = 425
    Top = 373
    Width = 75
    Height = 21
    Caption = #1054#1087#1077#1088#1072#1094#1080#1080
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = MenuOperation
    RoundedButton = True
    TabOrder = 3
    OnClick = pOperation_Click
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object pbDopData: xbPopupButton
    Left = 318
    Top = 373
    Width = 100
    Height = 21
    Caption = #1044#1086#1087'. '#1076#1072#1085#1085#1099#1077
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = MenuDopData
    RoundedButton = True
    TabOrder = 2
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <>
    OEMTranslate = False
    Left = 109
    Top = 3
  end
  object ADS: xbADSDataSource
    DataSet = DS
    Left = 145
    Top = 3
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_FIN_DOC'
    Active = False
    Left = 72
    Top = 3
  end
  object DSPlatBank2: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOPlatBank2
    FieldDefs = <>
    OEMTranslate = False
    Left = 509
    Top = 166
  end
  object BOPlatBank2: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPartnerBank'
    Active = False
    Left = 509
    Top = 118
  end
  object BOPlatAcnt1: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPartnerAccnt'
    Active = False
    Left = 143
    Top = 112
  end
  object DSPlatAcnt1: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOPlatAcnt1
    FieldDefs = <>
    OEMTranslate = False
    IndexName = 'TAG_RSCH'
    Left = 144
    Top = 165
  end
  object BODocCmp: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_DOC_CMP'
    Active = False
    Left = 602
    Top = 88
  end
  object DSDocCmp: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BODocCmp
    FieldDefs = <>
    OEMTranslate = False
    Left = 604
    Top = 138
  end
  object ADSDocCmp: xbADSDataSource
    DataSet = DSDocCmp
    Left = 607
    Top = 194
  end
  object BOMvTp: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_MOVE_TP'
    Active = False
    Left = 362
    Top = 88
  end
  object DSMvTp: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOMvTp
    FieldDefs = <>
    OEMTranslate = False
    Left = 415
    Top = 89
  end
  object BOVal: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsValuta'
    Active = False
    Left = 400
    Top = 17
  end
  object DSVal: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOVal
    FieldDefs = <>
    OEMTranslate = False
    Left = 453
    Top = 18
  end
  object BOPolBank2: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPartnerBank'
    Active = False
    Left = 511
    Top = 221
  end
  object DSPolBank2: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOPolBank2
    FieldDefs = <>
    OEMTranslate = False
    Left = 512
    Top = 268
  end
  object BOReasons: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_REASONS'
    Active = False
    Left = 40
    Top = 273
  end
  object DSReasons: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOReasons
    FieldDefs = <>
    OEMTranslate = False
    Left = 41
    Top = 315
  end
  object BOPlatAcnt2: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPartnerAccnt'
    Active = False
    Left = 59
    Top = 111
  end
  object DSPlatAcnt2: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOPlatAcnt2
    FieldDefs = <>
    OEMTranslate = False
    IndexName = 'TAG_RSCH'
    AfterRefresh = DS_AfterRefresh
    Left = 59
    Top = 159
  end
  object BOTaxMod: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsTAX_MOD'
    Active = False
    Left = 93
    Top = 274
  end
  object DSTaxMod: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOTaxMod
    FieldDefs = <>
    OEMTranslate = False
    OnUpdateRecord = DSTaxMod_UpdateRecord
    Left = 93
    Top = 318
  end
  object MenuOperation: xbPopupMenu
    Left = 212
    Top = 300
    object miNaznPlat: TMenuItem
      Caption = #1055#1077#1088#1077#1092#1086#1088#1084#1080#1088#1086#1074#1072#1090#1100' '#1085#1072#1079#1085#1072#1095#1077#1085#1080#1077'  Ctrl+P'
      OnClick = miNaznPlat_Click
    end
  end
  object MenuDopData: xbPopupMenu
    Left = 383
    Top = 209
    object MenuStatus1: TMenuItem
      Caption = #1044#1086#1093#1086#1076#1099' '#1073#1102#1076#1078#1077#1090#1072
      OnClick = MenuStatus1_Click
    end
    object MenuStatus2: TMenuItem
      Caption = #1056#1072#1089#1093#1086#1076#1099' '#1073#1102#1076#1078#1077#1090#1072
      OnClick = MenuStatus2_Click
    end
    object miDopRecv: TMenuItem
      Caption = #1044#1086#1087' '#1088#1077#1082#1074#1080#1079#1080#1090#1099'        Alt+F5'
      OnClick = miDopRecv_Click
    end
  end
end
frmPayAkkred.prg                                                     37488object frmPayAkkred: TfrmPayAkkred
  Left = 25
  Top = 25
  Width = 680
  Height = 453
  ActiveControl = lcbPTp
  Anchors = []
  Caption = #1047#1072#1103#1074#1083#1077#1085#1080#1077' '#1085#1072' '#1072#1082#1082#1088#1077#1076#1080#1090#1080#1074
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  WindowState = wsNormal
  OnCloseQuery = Form_CloseQuery
  OnCreate = Form_Create
  DesignSize = (
    672
    419)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 8
    Top = 8
    Width = 658
    Height = 380
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    object TabSheet1: TTabSheet
      Caption = #1054#1073#1097#1077#1077
      DesignSize = (
        656
        358)
      object lerMvTpCode: xbLabelEditRefer
        Left = 8
        Top = 56
        Width = 360
        Height = 21
        BorderColor = clWindowText
        Caption = #1042#1080#1076' '#1076#1074#1080#1078#1077#1085#1080#1103
        CaptionAlignment = taLeftJustify
        DataField = 'MV_NAME'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 5
        LabelWidth = 120
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnExit = lerMvTpCode_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'MV_CODE'
        BeforeButtonClick = lerMvTpCode_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'MV_CODE;-1;50;1;-1;'#1050#1086#1076'|MV_NAME;-1;200;1;-1;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldName = 'MV_NAME'
        FindFieldType = tfCharacterString
        ListDataSet = DSMvTp
        OutFieldsArray = 'MV_CODE;PRT_TP'
        PutFieldsArray = 'MV_CODE;PRT_TP'
        ReferCaption = #1042#1080#1076#1099' '#1076#1074#1080#1078#1077#1085#1080#1103' '#1076#1077#1085#1077#1078#1085#1099#1093' '#1089#1088#1077#1076#1089#1090#1074
        TypeFindFieldName = 'MV_NAME'
        xReferId = 0
        IsHarbourRefer = True
        OnSelect = lerMvTpCode_Select
      end
      object bFrame1: xbFrame
        Left = 8
        Top = 85
        Width = 640
        Height = 90
        Caption = #1055#1083#1072#1090#1077#1083#1100#1097#1080#1082
        TabOrder = 8
        Anchors = [akLeft, akTop, akRight]
        DesignSize = (
          640
          90)
        object lbPartName: xbLabel
          Left = 281
          Top = 19
          Width = 350
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPlatName'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'FINOBJ_PART_SHORTNAME'
          DataSource = ADS
        end
        object lbBankName1: xbLabel
          Left = 411
          Top = 43
          Width = 220
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPlatBankName1'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'OWNACNT_BANK_NAME'
          DataSource = ADSDocCmp
        end
        object lbBankName2: xbLabel
          Left = 411
          Top = 67
          Width = 220
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPlatBankName2'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          OnClick = lbBankName2_Click
          DataField = 'OWNACNTCMPBNK_NAME'
          DataSource = ADSDocCmp
        end
        object lerPlatBankCode2: xbLabelEditRefer
          Left = 281
          Top = 64
          Width = 120
          Height = 21
          BorderColor = clWindowText
          Caption = #1074' '#1073#1072#1085#1082#1077
          CaptionAlignment = taLeftJustify
          DataField = 'OWNACNTCMPBNK_CODE'
          DataSource = ADSDocCmp
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 4
          LabelWidth = 42
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'M_ACNT_BNK'
          EnabledEdit = False
          BeforeButtonClick = lerPlatBankCode2_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 'Bnk_Code;-1;50;1;-1;'#1050#1086#1076'|Bnk_Name;-1;150;1;-1;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
          FindFieldName = 'BNK_CODE'
          FindFieldType = tfCharacterString
          ListDataSet = DSPlatBank2
          OutFieldsArray = 'BNK_ID'
          PutFieldsArray = 'M_ACNT_BNK'
          ReferCaption = #1057#1095#1077#1090' '#1074' '#1073#1072#1085#1082#1077
          TypeFindFieldName = 'BNK_CODE'
          xReferId = 0
          IsHarbourRefer = True
        end
        object lePlatCode: xbLabelEdit
          Left = 6
          Top = 16
          Width = 265
          Height = 21
          BorderColor = clWindowText
          Caption = #1055#1088#1077#1076#1087#1088#1080#1103#1090#1080#1077
          CaptionAlignment = taLeftJustify
          DataField = 'FINOBJ_PART_CODE'
          DataSource = ADS
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 0
          LabelWidth = 114
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object lePlatAcnt1: xbLabelEdit
          Left = 6
          Top = 40
          Width = 265
          Height = 21
          BorderColor = clWindowText
          Caption = #1056#1072#1089#1095#1077#1090#1085#1099#1081' '#1089#1095#1077#1090
          CaptionAlignment = taLeftJustify
          DataField = 'OWNACNT_NUM'
          DataSource = ADSDocCmp
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 1
          LabelWidth = 114
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object lePlatBankCode1: xbLabelEdit
          Left = 281
          Top = 40
          Width = 120
          Height = 21
          BorderColor = clWindowText
          Caption = #1074' '#1073#1072#1085#1082#1077
          CaptionAlignment = taLeftJustify
          DataField = 'OWNACNT_BANK_CODE'
          DataSource = ADSDocCmp
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 2
          LabelWidth = 42
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object lePlatAcnt2: xbLabelEdit
          Left = 120
          Top = 64
          Width = 151
          Height = 21
          BorderColor = clWindowText
          Caption = #1056#1072#1089#1095#1077#1090#1085#1099#1081' '#1089#1095#1077#1090
          CaptionAlignment = taLeftJustify
          DataField = 'OWNACNTCMP_NUM'
          DataSource = ADSDocCmp
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 3
          LabelWidth = 0
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
      end
      object lcbStatus: xbLabelCombo
        Left = 238
        Top = 8
        Width = 130
        Height = 21
        ParentBackGround = True
        Caption = #1057#1090#1072#1090#1091#1089
        Enabled = False
        TabOrder = 1
        LabelWidth = 40
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Sorted = False
        EditColor = clWindow
        DisabledColor = clInactiveBorder
        DisabledFontColor = clBlack
        BorderColor = clWindowText
        AutoComplete = False
        Style = csDropDownList
        CharCase = ecNormal
        DropDownCount = 0
        ItemHeight = 0
        MaxLength = 0
        Items.Strings = (
          #1095#1077#1088#1085#1086#1074#1080#1082
          #1086#1087#1083#1072#1095#1077#1085
          #1087#1077#1088#1077#1076#1072#1085)
        ItemIndex = -1
        UseStandartHint = True
      end
      object leDocVid: xbLabelEdit
        Left = 8
        Top = 32
        Width = 220
        Height = 21
        BorderColor = clWindowText
        Caption = #1044#1086#1082#1091#1084#1077#1085#1090':             '#1074#1080#1076'    '
        CaptionAlignment = taLeftJustify
        DataField = 'DOC_CODE'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 2
        LabelWidth = 120
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leDocNum: xbLabelEdit
        Left = 238
        Top = 32
        Width = 130
        Height = 21
        BorderColor = clWindowText
        Caption = #1085#1086#1084#1077#1088'    '
        CaptionAlignment = taLeftJustify
        DataField = 'DOC_NUM'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 3
        LabelWidth = 40
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leDocDate: xbLabelEdit
        Left = 378
        Top = 32
        Width = 100
        Height = 21
        BorderColor = clWindowText
        Caption = #1076#1072#1090#1072'    '
        CaptionAlignment = taLeftJustify
        DataField = 'DOC_DATE'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 4
        LabelWidth = 30
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object bFrame2: xbFrame
        Left = 8
        Top = 183
        Width = 640
        Height = 90
        Caption = #1055#1086#1083#1091#1095#1072#1090#1077#1083#1100
        TabOrder = 9
        Anchors = [akLeft, akTop, akRight]
        DesignSize = (
          640
          90)
        object lbPolName: xbLabel
          Left = 281
          Top = 19
          Width = 350
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPolName'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'PART_SHORTNAME'
          DataSource = ADS
        end
        object bLabel2: xbLabel
          Left = 411
          Top = 43
          Width = 220
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPolBankName1'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'PRTACNT_BANK_NAME'
          DataSource = ADSDocCmp
        end
        object bLabel3: xbLabel
          Left = 411
          Top = 67
          Width = 220
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPolBankName2'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          OnClick = lbBankName2_Click
          DataField = 'PRTACNTCMPBNK_NAME'
          DataSource = ADSDocCmp
        end
        object lbNalModelName: xbLabel
          Left = 266
          Top = 118
          Width = 300
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbNalModelName'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataSource = ADS
        end
        object lerPolCode: xbLabelEditRefer
          Left = 6
          Top = 16
          Width = 265
          Height = 21
          BorderColor = clWindowText
          Caption = #1055#1088#1077#1076#1087#1088#1080#1103#1090#1080#1077
          CaptionAlignment = taLeftJustify
          DataField = 'PART_CODE'
          DataSource = ADS
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 0
          LabelWidth = 114
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          OnEnter = lerPolCode_Enter
          OnExit = lerPolCode_Exit
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'PRT_ID'
          BeforeButtonClick = lerPolCode_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 'CODE;-1;100;1;0;'#1050#1086#1076'|SORTNAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
          FindFieldName = 'CODE'
          FindFieldType = tfCharacterString
          OutFieldsArray = 'PART_ID'
          PutFieldsArray = 'PRT_ID'
          ReferCaption = #1057#1087#1080#1089#1086#1082
          ReferWidth = 450
          TypeFindFieldName = 'CODE'
          xReferId = 0
          IsHarbourRefer = True
          OnSelect = lerPolCode_Select
        end
        object lerPolAcnt1: xbLabelEditRefer
          Left = 6
          Top = 40
          Width = 265
          Height = 21
          BorderColor = clWindowText
          Caption = #1056#1072#1089#1095#1077#1090#1085#1099#1081' '#1089#1095#1077#1090
          CaptionAlignment = taLeftJustify
          DataField = 'PRTACNT_NUM'
          DataSource = ADSDocCmp
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 1
          LabelWidth = 114
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'P_ACNT_ID'
          BeforeButtonClick = lerPolAcnt1_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 
            'Accnt;-1;130;1;-1;'#1057#1095#1077#1090'|GetBankName;-1;200;1;-1;'#1041#1072#1085#1082'|Comment;-1;1' +
            '70;1;-1;'#1050#1086#1084#1084#1077#1085#1090#1072#1088#1080#1081
          FindFieldName = 'ACCNT'
          FindFieldType = tfCharacterString
          ListDataSet = DSPolAcnt1
          OutFieldsArray = 'REC_ID'
          PutFieldsArray = 'P_ACNT_ID'
          ReferCaption = #1057#1095#1077#1090' '#1074' '#1073#1072#1085#1082#1077
          TypeFindFieldName = 'ACCNT'
          xReferId = 0
          IsHarbourRefer = True
          OnSelect = lerPolAcnt1_Select
        end
        object lerPolBankCode2: xbLabelEditRefer
          Left = 281
          Top = 64
          Width = 120
          Height = 21
          BorderColor = clWindowText
          Caption = #1074' '#1073#1072#1085#1082#1077
          CaptionAlignment = taLeftJustify
          DataField = 'PRTACNTCMPBNK_CODE'
          DataSource = ADSDocCmp
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 4
          LabelWidth = 42
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'P_ACNT_BNK'
          BeforeButtonClick = lerPolBankCode2_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 'Bnk_Code;-1;50;1;-1;'#1050#1086#1076'|Bnk_Name;-1;150;1;-1;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
          FindFieldName = 'BNK_CODE'
          FindFieldType = tfCharacterString
          ListDataSet = DSPolBank2
          OutFieldsArray = 'BNK_ID'
          PutFieldsArray = 'P_ACNT_BNK'
          ReferCaption = #1057#1095#1077#1090' '#1074' '#1073#1072#1085#1082#1077
          TypeFindFieldName = 'BNK_CODE'
          xReferId = 0
          IsHarbourRefer = True
        end
        object lePolBankCode1: xbLabelEdit
          Left = 281
          Top = 40
          Width = 120
          Height = 21
          BorderColor = clWindowText
          Caption = #1074' '#1073#1072#1085#1082#1077
          CaptionAlignment = taLeftJustify
          DataField = 'PRTACNT_BANK_CODE'
          DataSource = ADSDocCmp
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 2
          LabelWidth = 42
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object lerPolAcnt2: xbLabelEditRefer
          Left = 120
          Top = 64
          Width = 151
          Height = 21
          BorderColor = clWindowText
          Caption = #1056#1072#1089#1095#1077#1090#1085#1099#1081' '#1089#1095#1077#1090
          CaptionAlignment = taLeftJustify
          DataField = 'PRTACNTCMP_NUM'
          DataSource = ADSDocCmp
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 3
          LabelWidth = 0
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'P_ACNT_CMP'
          BeforeButtonClick = lerPolAcnt2_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 
            'Accnt;-1;130;1;-1;'#1057#1095#1077#1090'|GetBankName;-1;200;1;-1;'#1041#1072#1085#1082'|Comment;-1;1' +
            '70;1;-1;'#1050#1086#1084#1084#1077#1085#1090#1072#1088#1080#1081
          FindFieldName = 'ACCNT'
          FindFieldType = tfCharacterString
          ListDataSet = DSPolAcnt2
          OutFieldsArray = 'REC_ID'
          PutFieldsArray = 'P_ACNT_CMP'
          ReferCaption = #1057#1095#1077#1090' '#1074' '#1073#1072#1085#1082#1077
          TypeFindFieldName = 'ACCNT'
          xReferId = 0
          IsHarbourRefer = True
        end
      end
      object lerVal: xbLabelEditRefer
        Left = 498
        Top = 32
        Width = 150
        Height = 21
        BorderColor = clWindowText
        Caption = #1042#1072#1083#1102#1090#1072
        CaptionAlignment = taLeftJustify
        DataField = 'CURR'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 6
        LabelWidth = 50
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'CURR'
        EnabledEdit = False
        EnabledButton = False
        BeforeButtonClick = lerVal_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'CODE;-1;50;1;-1;'#1050#1086#1076'|NAME;-1;200;1;-1;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldName = 'CODE'
        FindFieldType = tfCharacterString
        ListDataSet = DSVal
        OutFieldsArray = 'CODE'
        PutFieldsArray = 'CURR'
        ReferCaption = #1057#1087#1088#1072#1074#1086#1095#1085#1080#1082' '#1074#1072#1083#1102#1090
        TypeFindFieldName = 'CODE'
        xReferId = 0
        IsHarbourRefer = True
      end
      object lecSumma: xbLabelEditCalc
        Left = 498
        Top = 56
        Width = 150
        Height = 21
        BorderColor = clWindowText
        Caption = #1057#1091#1084#1084#1072
        CaptionAlignment = taLeftJustify
        DataField = 'SUM'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        TabOrder = 7
        LabelWidth = 50
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        VisibleButton = False
        OnSelect = lecSumma_Select
      end
      object lcbPTp: xbLabelCombo
        Left = 8
        Top = 8
        Width = 220
        Height = 21
        ParentBackGround = True
        Caption = #1042#1080#1076' '#1087#1083#1072#1090#1077#1078#1072
        TabOrder = 0
        LabelWidth = 120
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Sorted = False
        EditColor = clWindow
        DisabledColor = clInactiveBorder
        DisabledFontColor = clBlack
        BorderColor = clWindowText
        AutoComplete = False
        Style = csDropDownList
        CharCase = ecNormal
        DropDownCount = 0
        ItemHeight = 0
        MaxLength = 0
        Items.Strings = (
          #1087#1086#1095#1090#1086#1081
          #1090#1077#1083#1077#1075#1088#1072#1092#1086#1084
          #1101#1083#1077#1082#1090#1088#1086#1085#1085#1086
          #1089#1088#1086#1095#1085#1086)
        ItemIndex = -1
        UseStandartHint = True
        OnSelect = lcbPTp_Select
      end
      object lerNaznPlat: xbLabelEditRefer
        Left = 8
        Top = 282
        Width = 401
        Height = 21
        BorderColor = clWindowText
        Caption = #1053#1072#1079#1085#1072#1095#1077#1085#1080#1077' '#1087#1083#1072#1090#1077#1078#1072
        CaptionAlignment = taLeftJustify
        DataField = 'COMMENT'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 10
        LabelWidth = 120
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnKeyDown = lerNaznPlat_KeyDown
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'REASON_ID;COMMENT'
        BeforeButtonClick = lerNaznPlat_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'TEXT;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldType = tfCharacterString
        ListDataSet = DSReasons
        OutFieldsArray = 'RowID'
        PutFieldsArray = 'REASON_ID'
        ReferCaption = #1054#1089#1085#1086#1074#1072#1085#1080#1103' '#1087#1083#1072#1090#1077#1078#1072
        ReferWidth = 450
        xReferId = 0
        IsHarbourRefer = True
      end
      object leComp: xbLabelEdit
        Left = 8
        Top = 330
        Width = 401
        Height = 21
        BorderColor = clWindowText
        Caption = #1044#1086#1087#1086#1083#1085#1077#1085#1080#1077
        CaptionAlignment = taLeftJustify
        DataField = 'COMP'
        DataSource = ADSDocCmp
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 14
        LabelWidth = 120
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object lcbPayCond: xbLabelCombo
        Left = 418
        Top = 306
        Width = 231
        Height = 21
        ParentBackGround = True
        Caption = #1059#1089#1083#1086#1074#1080#1077' '#1086#1087#1083#1072#1090#1099
        TabOrder = 13
        LabelWidth = 110
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Sorted = False
        EditColor = clWindow
        DisabledColor = clInactiveBorder
        DisabledFontColor = clBlack
        BorderColor = clWindowText
        AutoComplete = False
        Style = csDropDownList
        CharCase = ecNormal
        DropDownCount = 0
        ItemHeight = 0
        MaxLength = 0
        Items.Strings = (
          #1089' '#1072#1082#1094#1077#1087#1090#1086#1084
          #1073#1077#1079' '#1072#1082#1094#1077#1087#1090#1072)
        ItemIndex = -1
        UseStandartHint = True
        OnSelect = lcbPayCond_Select
      end
      object lePayDate: xbLabelEdit
        Left = 418
        Top = 330
        Width = 231
        Height = 21
        BorderColor = clWindowText
        Caption = #1057#1088#1086#1082' '#1076#1077#1081#1089#1090#1074#1080#1103
        CaptionAlignment = taLeftJustify
        DataField = 'PAY_DATE'
        DataSource = ADSDocCmp
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 15
        LabelWidth = 110
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object lcbAType: xbLabelCombo
        Left = 418
        Top = 282
        Width = 231
        Height = 21
        ParentBackGround = True
        Caption = #1042#1080#1076' '#1072#1082#1082#1088#1077#1076#1080#1090#1080#1074#1072
        TabOrder = 11
        LabelWidth = 110
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Sorted = False
        EditColor = clWindow
        DisabledColor = clInactiveBorder
        DisabledFontColor = clBlack
        BorderColor = clWindowText
        AutoComplete = False
        Style = csDropDownList
        CharCase = ecNormal
        DropDownCount = 0
        ItemHeight = 0
        MaxLength = 0
        Items.Strings = (
          #1086#1090#1079#1099#1074#1085#1086#1081
          #1073#1077#1079#1086#1090#1079#1099#1074#1085#1086#1081
          #1076#1077#1087#1086#1085#1080#1088#1086#1074#1072#1085#1085#1099#1081
          #1075#1072#1088#1072#1085#1090#1080#1088#1086#1074#1072#1085#1085#1099#1081)
        ItemIndex = -1
        UseStandartHint = True
        OnSelect = lcbAType_Select
      end
      object leARecNum: xbLabelEdit
        Left = 8
        Top = 306
        Width = 401
        Height = 21
        BorderColor = clWindowText
        Caption = #1057#1095#1077#1090' '#1087#1086#1083#1091#1095#1072#1090#1077#1083#1103
        CaptionAlignment = taLeftJustify
        DataField = 'A_REC_NUM'
        DataSource = ADSDocCmp
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 12
        LabelWidth = 120
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
    end
  end
  object btnOK: xbButton
    Left = 508
    Top = 397
    Width = 75
    Height = 21
    Hint = #1057#1086#1093#1088#1072#1085#1077#1085#1080#1077' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (F10)'
    Caption = #1054#1050
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 3
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btnCANCEL: xbButton
    Left = 591
    Top = 397
    Width = 75
    Height = 21
    Hint = #1042#1099#1093#1086#1076' '#1080#1079' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (Esc)'
    Caption = #1054#1090#1084#1077#1085#1072
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 4
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object pOperation: xbPopupButton
    Left = 425
    Top = 397
    Width = 75
    Height = 21
    Caption = #1054#1087#1077#1088#1072#1094#1080#1080
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = MenuOperation
    RoundedButton = True
    TabOrder = 2
    OnClick = pOperation_Click
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object pbDopData: xbPopupButton
    Left = 317
    Top = 397
    Width = 100
    Height = 21
    Caption = #1044#1086#1087'. '#1076#1072#1085#1085#1099#1077
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = MenuDopData
    RoundedButton = True
    TabOrder = 1
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <>
    OEMTranslate = False
    Left = 109
    Top = 3
  end
  object ADS: xbADSDataSource
    DataSet = DS
    Left = 145
    Top = 3
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_FIN_DOC'
    Active = False
    Left = 72
    Top = 3
  end
  object DSPlatBank2: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOPlatBank2
    FieldDefs = <>
    OEMTranslate = False
    Left = 537
    Top = 141
  end
  object BOPlatBank2: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPartnerBank'
    Active = False
    Left = 535
    Top = 88
  end
  object BOPolAcnt1: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPartnerAccnt'
    Active = False
    Left = 606
    Top = 253
  end
  object DSPolAcnt1: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOPolAcnt1
    FieldDefs = <>
    OEMTranslate = False
    IndexName = 'TAG_RSCH'
    Left = 606
    Top = 306
  end
  object BODocCmp: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_DOC_CMP'
    Active = False
    Left = 602
    Top = 88
  end
  object DSDocCmp: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BODocCmp
    FieldDefs = <>
    OEMTranslate = False
    Left = 604
    Top = 138
  end
  object ADSDocCmp: xbADSDataSource
    DataSet = DSDocCmp
    Left = 607
    Top = 194
  end
  object BOMvTp: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_MOVE_TP'
    Active = False
    Left = 332
    Top = 88
  end
  object DSMvTp: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOMvTp
    FieldDefs = <>
    OEMTranslate = False
    Left = 415
    Top = 89
  end
  object BOVal: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsValuta'
    Active = False
    Left = 400
    Top = 17
  end
  object DSVal: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOVal
    FieldDefs = <>
    OEMTranslate = False
    Left = 453
    Top = 18
  end
  object BOPolBank2: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPartnerBank'
    Active = False
    Left = 534
    Top = 223
  end
  object DSPolBank2: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOPolBank2
    FieldDefs = <>
    OEMTranslate = False
    Left = 536
    Top = 274
  end
  object BOReasons: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_REASONS'
    Active = False
    Left = 40
    Top = 273
  end
  object DSReasons: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOReasons
    FieldDefs = <>
    OEMTranslate = False
    Left = 41
    Top = 315
  end
  object BOPolAcnt2: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPartnerAccnt'
    Active = False
    Left = 383
    Top = 210
  end
  object DSPolAcnt2: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOPolAcnt2
    FieldDefs = <>
    OEMTranslate = False
    IndexName = 'TAG_RSCH'
    AfterRefresh = DS_AfterRefresh
    Left = 461
    Top = 209
  end
  object BOTaxMod: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsTAX_MOD'
    Active = False
    Left = 93
    Top = 274
  end
  object DSTaxMod: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOTaxMod
    FieldDefs = <>
    OEMTranslate = False
    OnUpdateRecord = DSTaxMod_UpdateRecord
    Left = 93
    Top = 318
  end
  object MenuOperation: xbPopupMenu
    Left = 218
    Top = 308
    object miNaznPlat: TMenuItem
      Caption = #1055#1077#1088#1077#1092#1086#1088#1084#1080#1088#1086#1074#1072#1090#1100' '#1085#1072#1079#1085#1072#1095#1077#1085#1080#1077'  Ctrl+P'
      OnClick = miNaznPlat_Click
    end
  end
  object MenuDopData: xbPopupMenu
    Left = 323
    Top = 304
    object miDopRecv: TMenuItem
      Caption = #1044#1086#1087' '#1088#1077#1082#1074#1080#1079#1080#1090#1099'        Alt+F5'
      OnClick = miDopRecv_Click
    end
  end
end
frmPayPerevod.prg                                                    29755object frmPayPerevod: TfrmPayPerevod
  Left = 25
  Top = 25
  Width = 680
  Height = 405
  ActiveControl = leDocVid
  Anchors = []
  Caption = #1047#1072#1103#1074#1083#1077#1085#1080#1077' '#1085#1072' '#1087#1077#1088#1077#1074#1086#1076
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  WindowState = wsNormal
  OnCloseQuery = Form_CloseQuery
  OnCreate = Form_Create
  DesignSize = (
    672
    371)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 8
    Top = 8
    Width = 658
    Height = 332
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    object TabSheet1: TTabSheet
      Caption = #1054#1073#1097#1077#1077
      DesignSize = (
        656
        310)
      object lcbPTp: xbLabelCombo
        Left = 8
        Top = 8
        Width = 220
        Height = 21
        ParentBackGround = True
        Caption = #1042#1080#1076' '#1087#1083#1072#1090#1077#1078#1072
        TabOrder = 0
        LabelWidth = 120
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Sorted = False
        EditColor = clWindow
        DisabledColor = clInactiveBorder
        DisabledFontColor = clBlack
        BorderColor = clWindowText
        AutoComplete = False
        Style = csDropDownList
        CharCase = ecNormal
        DropDownCount = 0
        ItemHeight = 0
        MaxLength = 0
        Items.Strings = (
          #1087#1086#1095#1090#1086#1081
          #1090#1077#1083#1077#1075#1088#1072#1092#1086#1084
          #1101#1083#1077#1082#1090#1088#1086#1085#1085#1086)
        ItemIndex = -1
        Visible = False
        UseStandartHint = True
        OnSelect = lcbPTp_Select
      end
      object lerMvTpCode: xbLabelEditRefer
        Left = 8
        Top = 56
        Width = 360
        Height = 21
        BorderColor = clWindowText
        Caption = #1042#1080#1076' '#1076#1074#1080#1078#1077#1085#1080#1103
        CaptionAlignment = taLeftJustify
        DataField = 'MV_NAME'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 5
        LabelWidth = 120
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnChange = lerMvTpCode_Change
        OnExit = lerMvTpCode_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'MV_CODE'
        BeforeButtonClick = lerMvTpCode_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'MV_CODE;-1;50;1;-1;'#1050#1086#1076'|MV_NAME;-1;200;1;-1;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldName = 'MV_NAME'
        FindFieldType = tfCharacterString
        ListDataSet = DSMvTp
        OutFieldsArray = 'MV_CODE;PRT_TP'
        PutFieldsArray = 'MV_CODE;PRT_TP'
        ReferCaption = #1042#1080#1076#1099' '#1076#1074#1080#1078#1077#1085#1080#1103' '#1076#1077#1085#1077#1078#1085#1099#1093' '#1089#1088#1077#1076#1089#1090#1074
        TypeFindFieldName = 'MV_NAME'
        xReferId = 0
        IsHarbourRefer = True
        OnSelect = lerMvTpCode_Select
      end
      object bFrame1: xbFrame
        Left = 8
        Top = 85
        Width = 640
        Height = 90
        Caption = #1055#1083#1072#1090#1077#1083#1100#1097#1080#1082
        TabOrder = 8
        Anchors = [akLeft, akTop, akRight]
        DesignSize = (
          640
          90)
        object lbPartName: xbLabel
          Left = 281
          Top = 19
          Width = 350
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPlatName'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'FINOBJ_PART_SHORTNAME'
          DataSource = ADS
        end
        object lbBankName1: xbLabel
          Left = 411
          Top = 43
          Width = 220
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPlatBankName1'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'OWNACNT_BANK_NAME'
          DataSource = ADSDocCmp
        end
        object lbBankName2: xbLabel
          Left = 411
          Top = 67
          Width = 220
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPlatBankName2'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          OnClick = lbBankName2_Click
          DataField = 'OWNACNTCMPBNK_NAME'
          DataSource = ADSDocCmp
        end
        object lerPlatBankCode2: xbLabelEditRefer
          Left = 6
          Top = 64
          Width = 395
          Height = 21
          BorderColor = clWindowText
          Caption = #1041#1072#1085#1082'-'#1087#1086#1089#1088#1077#1076#1085#1080#1082
          CaptionAlignment = taLeftJustify
          DataField = 'OWNACNTCMPBNK_CODE'
          DataSource = ADSDocCmp
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 3
          LabelWidth = 318
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'M_ACNT_BNK'
          BeforeButtonClick = lerPlatBankCode2_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 'Bnk_Code;-1;50;1;-1;'#1050#1086#1076'|Bnk_Name;-1;150;1;-1;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
          FindFieldName = 'BNK_CODE'
          FindFieldType = tfCharacterString
          ListDataSet = DSPlatBank2
          OutFieldsArray = 'BNK_ID'
          PutFieldsArray = 'M_ACNT_BNK'
          ReferCaption = #1057#1095#1077#1090' '#1074' '#1073#1072#1085#1082#1077
          TypeFindFieldName = 'BNK_CODE'
          xReferId = 0
          IsHarbourRefer = True
        end
        object lePlatCode: xbLabelEdit
          Left = 6
          Top = 16
          Width = 265
          Height = 21
          BorderColor = clWindowText
          Caption = #1055#1088#1077#1076#1087#1088#1080#1103#1090#1080#1077
          CaptionAlignment = taLeftJustify
          DataField = 'FINOBJ_PART_CODE'
          DataSource = ADS
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 0
          LabelWidth = 114
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object lePlatAcnt1: xbLabelEdit
          Left = 6
          Top = 40
          Width = 265
          Height = 21
          BorderColor = clWindowText
          Caption = #1056#1072#1089#1095#1077#1090#1085#1099#1081' '#1089#1095#1077#1090
          CaptionAlignment = taLeftJustify
          DataField = 'OWNACNT_NUM'
          DataSource = ADSDocCmp
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 1
          LabelWidth = 114
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object lePlatBankCode1: xbLabelEdit
          Left = 281
          Top = 40
          Width = 120
          Height = 21
          BorderColor = clWindowText
          Caption = #1074' '#1073#1072#1085#1082#1077
          CaptionAlignment = taLeftJustify
          DataField = 'OWNACNT_BANK_CODE'
          DataSource = ADSDocCmp
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 2
          LabelWidth = 42
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
      end
      object lcbStatus: xbLabelCombo
        Left = 8
        Top = 8
        Width = 220
        Height = 21
        ParentBackGround = True
        Caption = #1057#1090#1072#1090#1091#1089
        Enabled = False
        TabOrder = 1
        LabelWidth = 120
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Sorted = False
        EditColor = clWindow
        DisabledColor = clInactiveBorder
        DisabledFontColor = clBlack
        BorderColor = clWindowText
        AutoComplete = False
        Style = csDropDownList
        CharCase = ecNormal
        DropDownCount = 0
        ItemHeight = 0
        MaxLength = 0
        Items.Strings = (
          #1095#1077#1088#1085#1086#1074#1080#1082
          #1086#1087#1083#1072#1095#1077#1085
          #1087#1077#1088#1077#1076#1072#1085)
        ItemIndex = -1
        UseStandartHint = True
      end
      object leDocVid: xbLabelEdit
        Left = 8
        Top = 32
        Width = 220
        Height = 21
        BorderColor = clWindowText
        Caption = #1044#1086#1082#1091#1084#1077#1085#1090':             '#1074#1080#1076'    '
        CaptionAlignment = taLeftJustify
        DataField = 'DOC_CODE'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 2
        LabelWidth = 120
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leDocNum: xbLabelEdit
        Left = 238
        Top = 32
        Width = 130
        Height = 21
        BorderColor = clWindowText
        Caption = #1085#1086#1084#1077#1088'    '
        CaptionAlignment = taLeftJustify
        DataField = 'DOC_NUM'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 3
        LabelWidth = 40
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leDocDate: xbLabelEdit
        Left = 378
        Top = 32
        Width = 100
        Height = 21
        BorderColor = clWindowText
        Caption = #1076#1072#1090#1072'    '
        CaptionAlignment = taLeftJustify
        DataField = 'DOC_DATE'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 4
        LabelWidth = 30
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object bFrame2: xbFrame
        Left = 8
        Top = 183
        Width = 640
        Height = 90
        Caption = #1055#1086#1083#1091#1095#1072#1090#1077#1083#1100
        TabOrder = 9
        Anchors = [akLeft, akTop, akRight]
        DesignSize = (
          640
          90)
        object lbPolName: xbLabel
          Left = 281
          Top = 19
          Width = 350
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPolName'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'PART_SHORTNAME'
          DataSource = ADS
        end
        object bLabel2: xbLabel
          Left = 411
          Top = 43
          Width = 220
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPolBankName1'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'PRTACNT_BANK_NAME'
          DataSource = ADSDocCmp
        end
        object bLabel3: xbLabel
          Left = 411
          Top = 67
          Width = 220
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPolBankName2'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          OnClick = lbBankName2_Click
          DataField = 'PRTACNTCMPBNK_NAME'
          DataSource = ADSDocCmp
        end
        object lbNalModelName: xbLabel
          Left = 266
          Top = 118
          Width = 300
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbNalModelName'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataSource = ADS
        end
        object lerPolCode: xbLabelEditRefer
          Left = 6
          Top = 16
          Width = 265
          Height = 21
          BorderColor = clWindowText
          Caption = #1055#1088#1077#1076#1087#1088#1080#1103#1090#1080#1077
          CaptionAlignment = taLeftJustify
          DataField = 'PART_CODE'
          DataSource = ADS
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 0
          LabelWidth = 114
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          OnEnter = lerPolCode_Enter
          OnExit = lerPolCode_Exit
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'PRT_ID'
          BeforeButtonClick = lerPolCode_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 'CODE;-1;100;1;0;'#1050#1086#1076'|SORTNAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
          FindFieldName = 'CODE'
          FindFieldType = tfCharacterString
          OutFieldsArray = 'PART_ID'
          PutFieldsArray = 'PRT_ID'
          ReferCaption = #1057#1087#1080#1089#1086#1082
          ReferWidth = 450
          TypeFindFieldName = 'CODE'
          xReferId = 0
          IsHarbourRefer = True
          OnSelect = lerPolCode_Select
        end
        object lerPolAcnt1: xbLabelEditRefer
          Left = 6
          Top = 40
          Width = 265
          Height = 21
          BorderColor = clWindowText
          Caption = #1056#1072#1089#1095#1077#1090#1085#1099#1081' '#1089#1095#1077#1090
          CaptionAlignment = taLeftJustify
          DataField = 'PRTACNT_NUM'
          DataSource = ADSDocCmp
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 1
          LabelWidth = 114
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'P_ACNT_ID'
          BeforeButtonClick = lerPolAcnt1_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 
            'PRTACNT_NUM;-1;150;1;-1;'#1057#1095#1077#1090'|Obj_Code;-1;50;1;-1;'#1050#1086#1076'|Obj_Name;-1' +
            ';150;1;-1;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
          FindFieldName = 'ACCNT'
          FindFieldType = tfCharacterString
          ListDataSet = DSPolAcnt1
          OutFieldsArray = 'REC_ID'
          PutFieldsArray = 'P_ACNT_ID'
          ReferCaption = #1057#1095#1077#1090' '#1074' '#1073#1072#1085#1082#1077
          TypeFindFieldName = 'ACCNT'
          xReferId = 0
          IsHarbourRefer = True
          OnSelect = lerPolAcnt1_Select
        end
        object lerPolBankCode2: xbLabelEditRefer
          Left = 6
          Top = 64
          Width = 395
          Height = 21
          BorderColor = clWindowText
          Caption = #1041#1072#1085#1082'-'#1087#1086#1089#1088#1077#1076#1085#1080#1082
          CaptionAlignment = taLeftJustify
          DataField = 'PRTACNTCMPBNK_CODE'
          DataSource = ADSDocCmp
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 3
          LabelWidth = 318
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'P_ACNT_BNK'
          BeforeButtonClick = lerPolBankCode2_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 'Bnk_Code;-1;50;1;-1;'#1050#1086#1076'|Bnk_Name;-1;150;1;-1;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
          FindFieldName = 'BNK_CODE'
          FindFieldType = tfCharacterString
          ListDataSet = DSPolBank2
          OutFieldsArray = 'BNK_ID'
          PutFieldsArray = 'P_ACNT_BNK'
          ReferCaption = #1057#1095#1077#1090' '#1074' '#1073#1072#1085#1082#1077
          TypeFindFieldName = 'BNK_CODE'
          xReferId = 0
          IsHarbourRefer = True
        end
        object lePolBankCode1: xbLabelEdit
          Left = 281
          Top = 40
          Width = 120
          Height = 21
          BorderColor = clWindowText
          Caption = #1074' '#1073#1072#1085#1082#1077
          CaptionAlignment = taLeftJustify
          DataField = 'PRTACNT_BANK_CODE'
          DataSource = ADSDocCmp
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 2
          LabelWidth = 42
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
      end
      object lerVal: xbLabelEditRefer
        Left = 498
        Top = 32
        Width = 150
        Height = 21
        BorderColor = clWindowText
        Caption = #1042#1072#1083#1102#1090#1072
        CaptionAlignment = taLeftJustify
        DataField = 'CURR'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 6
        LabelWidth = 50
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'CURR'
        BeforeButtonClick = lerVal_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'CODE;-1;50;1;-1;'#1050#1086#1076'|NAME;-1;200;1;-1;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldName = 'CODE'
        FindFieldType = tfCharacterString
        ListDataSet = DSVal
        OutFieldsArray = 'CODE'
        PutFieldsArray = 'CURR'
        ReferCaption = #1057#1087#1088#1072#1074#1086#1095#1085#1080#1082' '#1074#1072#1083#1102#1090
        TypeFindFieldName = 'CODE'
        xReferId = 0
        IsHarbourRefer = True
      end
      object lecSumma: xbLabelEditCalc
        Left = 498
        Top = 56
        Width = 150
        Height = 21
        BorderColor = clWindowText
        Caption = #1057#1091#1084#1084#1072
        CaptionAlignment = taLeftJustify
        DataField = 'SUM_C'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        TabOrder = 7
        LabelWidth = 50
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        VisibleButton = False
      end
      object lerNaznPlat: xbLabelEditRefer
        Left = 8
        Top = 282
        Width = 401
        Height = 21
        BorderColor = clWindowText
        Caption = #1053#1072#1079#1085#1072#1095#1077#1085#1080#1077' '#1087#1083#1072#1090#1077#1078#1072
        CaptionAlignment = taLeftJustify
        DataField = 'COMMENT'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 10
        LabelWidth = 120
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnKeyDown = lerNaznPlat_KeyDown
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'REASON_ID;COMMENT'
        BeforeButtonClick = lerNaznPlat_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'TEXT;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldType = tfCharacterString
        ListDataSet = DSReasons
        OutFieldsArray = 'RowID'
        PutFieldsArray = 'REASON_ID'
        ReferCaption = #1054#1089#1085#1086#1074#1072#1085#1080#1103' '#1087#1083#1072#1090#1077#1078#1072
        ReferWidth = 450
        xReferId = 0
        IsHarbourRefer = True
      end
    end
  end
  object btnOK: xbButton
    Left = 508
    Top = 349
    Width = 75
    Height = 21
    Hint = #1057#1086#1093#1088#1072#1085#1077#1085#1080#1077' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (F10)'
    Caption = #1054#1050
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 3
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btnCANCEL: xbButton
    Left = 591
    Top = 349
    Width = 75
    Height = 21
    Hint = #1042#1099#1093#1086#1076' '#1080#1079' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (Esc)'
    Caption = #1054#1090#1084#1077#1085#1072
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 4
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object pOperation: xbPopupButton
    Left = 425
    Top = 349
    Width = 75
    Height = 21
    Caption = #1054#1087#1077#1088#1072#1094#1080#1080
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = MenuOperation
    RoundedButton = True
    TabOrder = 2
    OnClick = pOperation_Click
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object pbDopData: xbPopupButton
    Left = 317
    Top = 348
    Width = 100
    Height = 21
    Caption = #1044#1086#1087'. '#1076#1072#1085#1085#1099#1077
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = MenuDopData
    RoundedButton = True
    TabOrder = 1
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <>
    OEMTranslate = False
    Left = 109
    Top = 3
  end
  object ADS: xbADSDataSource
    DataSet = DS
    Left = 145
    Top = 3
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_FIN_DOC'
    Active = False
    Left = 72
    Top = 3
  end
  object DSPlatBank2: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOPlatBank2
    FieldDefs = <>
    OEMTranslate = False
    Left = 508
    Top = 169
  end
  object BOPlatBank2: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPartnerBank'
    Active = False
    Left = 509
    Top = 118
  end
  object BOPolAcnt1: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPartnerAccnt'
    Active = False
    Left = 606
    Top = 253
  end
  object DSPolAcnt1: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOPolAcnt1
    FieldDefs = <>
    OEMTranslate = False
    IndexName = 'TAG_RSCH'
    Left = 606
    Top = 306
  end
  object BODocCmp: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_DOC_CMP'
    Active = False
    Left = 602
    Top = 88
  end
  object DSDocCmp: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BODocCmp
    FieldDefs = <>
    OEMTranslate = False
    Left = 604
    Top = 138
  end
  object ADSDocCmp: xbADSDataSource
    DataSet = DSDocCmp
    Left = 607
    Top = 194
  end
  object BOMvTp: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_MOVE_TP'
    Active = False
    Left = 327
    Top = 88
  end
  object DSMvTp: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOMvTp
    FieldDefs = <>
    OEMTranslate = False
    Left = 415
    Top = 89
  end
  object BOVal: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsValuta'
    Active = False
    Left = 400
    Top = 17
  end
  object DSVal: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOVal
    FieldDefs = <>
    OEMTranslate = False
    Left = 453
    Top = 18
  end
  object BOPolBank2: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPartnerBank'
    Active = False
    Left = 511
    Top = 234
  end
  object DSPolBank2: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOPolBank2
    FieldDefs = <>
    OEMTranslate = False
    Left = 512
    Top = 285
  end
  object BOReasons: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_REASONS'
    Active = False
    Left = 40
    Top = 273
  end
  object DSReasons: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOReasons
    FieldDefs = <>
    OEMTranslate = False
    Left = 41
    Top = 315
  end
  object MenuOperation: xbPopupMenu
    Left = 231
    Top = 279
    object miNaznPlat: TMenuItem
      Caption = #1055#1077#1088#1077#1092#1086#1088#1084#1080#1088#1086#1074#1072#1090#1100' '#1085#1072#1079#1085#1072#1095#1077#1085#1080#1077'  Ctrl+P'
      OnClick = miNaznPlat_Click
    end
  end
  object MenuDopData: xbPopupMenu
    Left = 380
    Top = 206
    object miDopRecv: TMenuItem
      Caption = #1044#1086#1087' '#1088#1077#1082#1074#1080#1079#1080#1090#1099'        Alt+F5'
      OnClick = miDopRecv_Click
    end
  end
end
frmPayPokupVal.prg                                                   31295object frmPayPokupVal: TfrmPayPokupVal
  Left = 25
  Top = 25
  Width = 680
  Height = 384
  ActiveControl = lcbPTp
  Anchors = []
  Caption = #1047#1072#1103#1074#1083#1077#1085#1080#1077' '#1085#1072' '#1087#1086#1082#1091#1087#1082#1091' '#1074#1072#1083#1102#1090#1099
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  WindowState = wsNormal
  OnCloseQuery = Form_CloseQuery
  OnCreate = Form_Create
  DesignSize = (
    672
    350)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 8
    Top = 8
    Width = 658
    Height = 311
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    object TabSheet1: TTabSheet
      Caption = #1054#1073#1097#1077#1077
      DesignSize = (
        656
        289)
      object lcbPTp: xbLabelCombo
        Left = 8
        Top = 8
        Width = 220
        Height = 21
        ParentBackGround = True
        Caption = #1042#1080#1076' '#1087#1083#1072#1090#1077#1078#1072
        TabOrder = 0
        LabelWidth = 120
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Sorted = False
        EditColor = clWindow
        DisabledColor = clInactiveBorder
        DisabledFontColor = clBlack
        BorderColor = clWindowText
        AutoComplete = False
        Style = csDropDownList
        CharCase = ecNormal
        DropDownCount = 0
        ItemHeight = 0
        MaxLength = 0
        Items.Strings = (
          #1087#1086#1095#1090#1086#1081
          #1090#1077#1083#1077#1075#1088#1072#1092#1086#1084
          #1101#1083#1077#1082#1090#1088#1086#1085#1085#1086)
        ItemIndex = -1
        Visible = False
        UseStandartHint = True
        OnSelect = lcbPTp_Select
      end
      object lerMvTpCode: xbLabelEditRefer
        Left = 8
        Top = 56
        Width = 360
        Height = 21
        BorderColor = clWindowText
        Caption = #1042#1080#1076' '#1076#1074#1080#1078#1077#1085#1080#1103
        CaptionAlignment = taLeftJustify
        DataField = 'MV_NAME'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 5
        LabelWidth = 120
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnExit = lerMvTpCode_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'MV_CODE'
        BeforeButtonClick = lerMvTpCode_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'MV_CODE;-1;50;1;-1;'#1050#1086#1076'|MV_NAME;-1;200;1;-1;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldName = 'MV_NAME'
        FindFieldType = tfCharacterString
        ListDataSet = DSMvTp
        OutFieldsArray = 'MV_CODE;PRT_TP'
        PutFieldsArray = 'MV_CODE;PRT_TP'
        ReferCaption = #1042#1080#1076#1099' '#1076#1074#1080#1078#1077#1085#1080#1103' '#1076#1077#1085#1077#1078#1085#1099#1093' '#1089#1088#1077#1076#1089#1090#1074
        TypeFindFieldName = 'MV_NAME'
        xReferId = 0
        IsHarbourRefer = True
        OnSelect = lerMvTpCode_Select
      end
      object bFrame1: xbFrame
        Left = 8
        Top = 108
        Width = 640
        Height = 80
        TabOrder = 10
        Anchors = [akLeft, akTop, akRight]
        DesignSize = (
          640
          80)
        object lbPartName: xbLabel
          Left = 281
          Top = 9
          Width = 350
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPlatName'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'FINOBJ_PART_SHORTNAME'
          DataSource = ADS
        end
        object lbBankName1: xbLabel
          Left = 411
          Top = 33
          Width = 220
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPlatBankName1'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'OWNACNT_BANK_NAME'
          DataSource = ADSDocCmp
        end
        object lbBankName2: xbLabel
          Left = 411
          Top = 57
          Width = 220
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPlatBankName2'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          OnClick = lbBankName2_Click
          DataField = 'OWNACNTCMPBNK_NAME'
          DataSource = ADSDocCmp
        end
        object lerPlatBankCode2: xbLabelEditRefer
          Left = 6
          Top = 54
          Width = 395
          Height = 21
          BorderColor = clWindowText
          Caption = #1041#1072#1085#1082'-'#1087#1086#1089#1088#1077#1076#1085#1080#1082
          CaptionAlignment = taLeftJustify
          DataField = 'OWNACNTCMPBNK_CODE'
          DataSource = ADSDocCmp
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 3
          LabelWidth = 318
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'M_ACNT_BNK'
          BeforeButtonClick = lerPlatBankCode2_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 'Bnk_Code;-1;50;1;-1;'#1050#1086#1076'|Bnk_Name;-1;150;1;-1;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
          FindFieldName = 'BNK_CODE'
          FindFieldType = tfCharacterString
          ListDataSet = DSPlatBank2
          OutFieldsArray = 'BNK_ID'
          PutFieldsArray = 'M_ACNT_BNK'
          ReferCaption = #1057#1095#1077#1090' '#1074' '#1073#1072#1085#1082#1077
          TypeFindFieldName = 'BNK_CODE'
          xReferId = 0
          IsHarbourRefer = True
        end
        object lePlatCode: xbLabelEdit
          Left = 6
          Top = 6
          Width = 265
          Height = 21
          BorderColor = clWindowText
          Caption = #1055#1088#1077#1076#1087#1088#1080#1103#1090#1080#1077
          CaptionAlignment = taLeftJustify
          DataField = 'FINOBJ_PART_CODE'
          DataSource = ADS
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 0
          LabelWidth = 114
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object lePlatAcnt1: xbLabelEdit
          Left = 6
          Top = 30
          Width = 265
          Height = 21
          BorderColor = clWindowText
          Caption = #1057#1087#1080#1089#1072#1090#1100' '#1089#1086' '#1089#1095#1077#1090#1072
          CaptionAlignment = taLeftJustify
          DataField = 'OWNACNT_NUM'
          DataSource = ADSDocCmp
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 1
          LabelWidth = 114
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object lePlatBankCode1: xbLabelEdit
          Left = 281
          Top = 30
          Width = 120
          Height = 21
          BorderColor = clWindowText
          Caption = #1074' '#1073#1072#1085#1082#1077
          CaptionAlignment = taLeftJustify
          DataField = 'OWNACNT_BANK_CODE'
          DataSource = ADSDocCmp
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 2
          LabelWidth = 42
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
      end
      object lcbStatus: xbLabelCombo
        Left = 8
        Top = 8
        Width = 220
        Height = 21
        ParentBackGround = True
        Caption = #1057#1090#1072#1090#1091#1089
        Enabled = False
        TabOrder = 1
        LabelWidth = 120
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Sorted = False
        EditColor = clWindow
        DisabledColor = clInactiveBorder
        DisabledFontColor = clBlack
        BorderColor = clWindowText
        AutoComplete = False
        Style = csDropDownList
        CharCase = ecNormal
        DropDownCount = 0
        ItemHeight = 0
        MaxLength = 0
        Items.Strings = (
          #1095#1077#1088#1085#1086#1074#1080#1082
          #1086#1087#1083#1072#1095#1077#1085
          #1087#1077#1088#1077#1076#1072#1085)
        ItemIndex = -1
        UseStandartHint = True
      end
      object leDocVid: xbLabelEdit
        Left = 8
        Top = 32
        Width = 220
        Height = 21
        BorderColor = clWindowText
        Caption = #1044#1086#1082#1091#1084#1077#1085#1090':             '#1074#1080#1076'    '
        CaptionAlignment = taLeftJustify
        DataField = 'DOC_CODE'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 2
        LabelWidth = 120
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leDocNum: xbLabelEdit
        Left = 238
        Top = 32
        Width = 130
        Height = 21
        BorderColor = clWindowText
        Caption = #1085#1086#1084#1077#1088'    '
        CaptionAlignment = taLeftJustify
        DataField = 'DOC_NUM'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 3
        LabelWidth = 40
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leDocDate: xbLabelEdit
        Left = 378
        Top = 32
        Width = 100
        Height = 21
        BorderColor = clWindowText
        Caption = #1076#1072#1090#1072'    '
        CaptionAlignment = taLeftJustify
        DataField = 'DOC_DATE'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 4
        LabelWidth = 30
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object bFrame2: xbFrame
        Left = 8
        Top = 197
        Width = 640
        Height = 56
        TabOrder = 11
        Anchors = [akLeft, akTop, akRight]
        DesignSize = (
          640
          56)
        object lbPolName: xbLabel
          Left = 281
          Top = 9
          Width = 350
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPolName'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          Visible = False
          DataField = 'PART_SHORTNAME'
          DataSource = ADS
        end
        object bLabel2: xbLabel
          Left = 411
          Top = 9
          Width = 220
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPolBankName1'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'PRTACNT_BANK_NAME'
          DataSource = ADSDocCmp
        end
        object bLabel3: xbLabel
          Left = 411
          Top = 33
          Width = 220
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPolBankName2'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          OnClick = lbBankName2_Click
          DataField = 'PRTACNTCMPBNK_NAME'
          DataSource = ADSDocCmp
        end
        object lbNalModelName: xbLabel
          Left = 266
          Top = 118
          Width = 300
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbNalModelName'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataSource = ADS
        end
        object lerPolCode: xbLabelEditRefer
          Left = 6
          Top = 6
          Width = 265
          Height = 21
          BorderColor = clWindowText
          Caption = #1055#1088#1077#1076#1087#1088#1080#1103#1090#1080#1077
          CaptionAlignment = taLeftJustify
          DataField = 'PART_CODE'
          DataSource = ADS
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 0
          LabelWidth = 114
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          Visible = False
          OnEnter = lerPolCode_Enter
          OnExit = lerPolCode_Exit
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'PRT_ID'
          BeforeButtonClick = lerPolCode_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 'CODE;-1;100;1;0;'#1050#1086#1076'|SORTNAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
          FindFieldName = 'CODE'
          FindFieldType = tfCharacterString
          OutFieldsArray = 'PART_ID'
          PutFieldsArray = 'PRT_ID'
          ReferCaption = #1057#1087#1080#1089#1086#1082
          ReferWidth = 450
          TypeFindFieldName = 'CODE'
          xReferId = 0
          IsHarbourRefer = True
        end
        object lerPolAcnt1: xbLabelEditRefer
          Left = 6
          Top = 6
          Width = 265
          Height = 21
          BorderColor = clWindowText
          Caption = #1047#1072#1095#1080#1089#1083#1080#1090#1100' '#1085#1072' '#1089#1095#1077#1090
          CaptionAlignment = taLeftJustify
          DataField = 'PRTACNT_NUM'
          DataSource = ADSDocCmp
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 1
          LabelWidth = 114
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'P_ACNT_ID'
          BeforeButtonClick = lerPolAcnt1_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 'Accnt;-1;50;1;-1;'#1057#1095#1077#1090'|GetBankName;-1;150;1;-1;'#1041#1072#1085#1082
          FindFieldName = 'ACCNT'
          FindFieldType = tfCharacterString
          ListDataSet = DSPolAcnt1
          OutFieldsArray = 'REC_ID'
          PutFieldsArray = 'P_ACNT_ID'
          ReferCaption = #1057#1095#1077#1090' '#1074' '#1073#1072#1085#1082#1077
          TypeFindFieldName = 'ACCNT'
          xReferId = 0
          IsHarbourRefer = True
          OnSelect = lerPolAcnt1_Select
        end
        object lerPolBankCode2: xbLabelEditRefer
          Left = 6
          Top = 30
          Width = 395
          Height = 21
          BorderColor = clWindowText
          Caption = #1041#1072#1085#1082'-'#1087#1086#1089#1088#1077#1076#1085#1080#1082
          CaptionAlignment = taLeftJustify
          DataField = 'PRTACNTCMPBNK_CODE'
          DataSource = ADSDocCmp
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 3
          LabelWidth = 318
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'P_ACNT_BNK'
          BeforeButtonClick = lerPolBankCode2_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 'Bnk_Code;-1;50;1;-1;'#1050#1086#1076'|Bnk_Name;-1;150;1;-1;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
          FindFieldName = 'BNK_CODE'
          FindFieldType = tfCharacterString
          ListDataSet = DSPolBank2
          OutFieldsArray = 'BNK_ID'
          PutFieldsArray = 'P_ACNT_BNK'
          ReferCaption = #1057#1095#1077#1090' '#1074' '#1073#1072#1085#1082#1077
          TypeFindFieldName = 'BNK_CODE'
          xReferId = 0
          IsHarbourRefer = True
        end
        object lePolBankCode1: xbLabelEdit
          Left = 281
          Top = 6
          Width = 120
          Height = 21
          BorderColor = clWindowText
          Caption = #1074' '#1073#1072#1085#1082#1077
          CaptionAlignment = taLeftJustify
          DataField = 'PRTACNT_BANK_CODE'
          DataSource = ADSDocCmp
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 2
          LabelWidth = 42
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
      end
      object lerVal: xbLabelEditRefer
        Left = 493
        Top = 8
        Width = 155
        Height = 21
        BorderColor = clWindowText
        Caption = #1042#1072#1083#1102#1090#1072
        CaptionAlignment = taLeftJustify
        DataField = 'CURR_CMP'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 6
        LabelWidth = 65
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'CURR_CMP'
        BeforeButtonClick = lerVal_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'CODE;-1;50;1;-1;'#1050#1086#1076'|NAME;-1;200;1;-1;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldName = 'CODE'
        FindFieldType = tfCharacterString
        ListDataSet = DSVal
        OutFieldsArray = 'CODE'
        PutFieldsArray = 'CURR_CMP'
        ReferCaption = #1057#1087#1088#1072#1074#1086#1095#1085#1080#1082' '#1074#1072#1083#1102#1090
        TypeFindFieldName = 'CODE'
        xReferId = 0
        IsHarbourRefer = True
      end
      object lecSumma: xbLabelEditCalc
        Left = 493
        Top = 56
        Width = 155
        Height = 21
        BorderColor = clWindowText
        Caption = #1057#1091#1084#1084#1072
        CaptionAlignment = taLeftJustify
        DataField = 'SUM_CMP'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        TabOrder = 8
        LabelWidth = 65
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        OnEnter = lecSumma_Enter
        OnExit = lecSumma_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        VisibleButton = False
      end
      object lerNaznPlat: xbLabelEditRefer
        Left = 8
        Top = 261
        Width = 401
        Height = 21
        BorderColor = clWindowText
        Caption = #1053#1072#1079#1085#1072#1095#1077#1085#1080#1077' '#1087#1083#1072#1090#1077#1078#1072
        CaptionAlignment = taLeftJustify
        DataField = 'COMMENT'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 12
        LabelWidth = 120
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnKeyDown = lerNaznPlat_KeyDown
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'REASON_ID;COMMENT'
        BeforeButtonClick = lerNaznPlat_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'TEXT;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldType = tfCharacterString
        ListDataSet = DSReasons
        OutFieldsArray = 'RowID'
        PutFieldsArray = 'REASON_ID'
        ReferCaption = #1054#1089#1085#1086#1074#1072#1085#1080#1103' '#1087#1083#1072#1090#1077#1078#1072
        ReferWidth = 450
        xReferId = 0
        IsHarbourRefer = True
      end
      object lecKurs: xbLabelEditCalc
        Left = 493
        Top = 32
        Width = 155
        Height = 21
        BorderColor = clWindowText
        Caption = #1050#1091#1088#1089
        CaptionAlignment = taLeftJustify
        DataField = 'RATE_CMP'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        TabOrder = 7
        LabelWidth = 65
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        OnEnter = lecKurs_Enter
        OnExit = lecKurs_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        VisibleButton = False
      end
      object lecSumSpis: xbLabelEditCalc
        Left = 493
        Top = 80
        Width = 155
        Height = 21
        BorderColor = clWindowText
        Caption = #1050' '#1089#1087#1080#1089#1072#1085#1080#1102
        CaptionAlignment = taLeftJustify
        DataField = 'SUM_C'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        TabOrder = 9
        LabelWidth = 65
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        VisibleButton = False
      end
    end
  end
  object btnOK: xbButton
    Left = 508
    Top = 328
    Width = 75
    Height = 21
    Hint = #1057#1086#1093#1088#1072#1085#1077#1085#1080#1077' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (F10)'
    Caption = #1054#1050
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 3
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btnCANCEL: xbButton
    Left = 591
    Top = 328
    Width = 75
    Height = 21
    Hint = #1042#1099#1093#1086#1076' '#1080#1079' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (Esc)'
    Caption = #1054#1090#1084#1077#1085#1072
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 4
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object pOperation: xbPopupButton
    Left = 425
    Top = 328
    Width = 75
    Height = 21
    Caption = #1054#1087#1077#1088#1072#1094#1080#1080
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = MenuOperation
    RoundedButton = True
    TabOrder = 2
    OnClick = pOperation_Click
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object pbDopData: xbPopupButton
    Left = 318
    Top = 328
    Width = 100
    Height = 21
    Caption = #1044#1086#1087'. '#1076#1072#1085#1085#1099#1077
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = MenuDopData
    RoundedButton = True
    TabOrder = 1
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <>
    OEMTranslate = False
    Left = 109
    Top = 3
  end
  object ADS: xbADSDataSource
    DataSet = DS
    Left = 145
    Top = 3
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_FIN_DOC'
    Active = False
    Left = 72
    Top = 3
  end
  object DSPlatBank2: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOPlatBank2
    FieldDefs = <>
    OEMTranslate = False
    Left = 508
    Top = 169
  end
  object BOPlatBank2: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPartnerBank'
    Active = False
    Left = 509
    Top = 118
  end
  object BOPolAcnt1: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPartnerAccnt'
    Active = False
    Left = 606
    Top = 253
  end
  object DSPolAcnt1: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOPolAcnt1
    FieldDefs = <>
    OEMTranslate = False
    IndexName = 'TAG_RSCH'
    Left = 606
    Top = 306
  end
  object BODocCmp: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_DOC_CMP'
    Active = False
    Left = 602
    Top = 88
  end
  object DSDocCmp: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BODocCmp
    FieldDefs = <>
    OEMTranslate = False
    Left = 604
    Top = 138
  end
  object ADSDocCmp: xbADSDataSource
    DataSet = DSDocCmp
    Left = 607
    Top = 194
  end
  object BOMvTp: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_MOVE_TP'
    Active = False
    Left = 326
    Top = 88
  end
  object DSMvTp: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOMvTp
    FieldDefs = <>
    OEMTranslate = False
    Left = 415
    Top = 89
  end
  object BOVal: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsValuta'
    Active = False
    Left = 400
    Top = 17
  end
  object DSVal: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOVal
    FieldDefs = <>
    OEMTranslate = False
    Left = 453
    Top = 18
  end
  object BOPolBank2: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPartnerBank'
    Active = False
    Left = 511
    Top = 234
  end
  object DSPolBank2: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOPolBank2
    FieldDefs = <>
    OEMTranslate = False
    Left = 512
    Top = 285
  end
  object BOReasons: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_REASONS'
    Active = False
    Left = 40
    Top = 273
  end
  object DSReasons: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOReasons
    FieldDefs = <>
    OEMTranslate = False
    Left = 41
    Top = 315
  end
  object MenuOperation: xbPopupMenu
    Left = 246
    Top = 260
    object miNaznPlat: TMenuItem
      Caption = #1055#1077#1088#1077#1092#1086#1088#1084#1080#1088#1086#1074#1072#1090#1100' '#1085#1072#1079#1085#1072#1095#1077#1085#1080#1077'  Ctrl+P'
      OnClick = miNaznPlat_Click
    end
  end
  object MenuDopData: xbPopupMenu
    Left = 375
    Top = 147
    object miDopRecv: TMenuItem
      Caption = #1044#1086#1087' '#1088#1077#1082#1074#1080#1079#1080#1090#1099'        Alt+F5'
      OnClick = miDopRecv_Click
    end
  end
end
frmPayProdVal.prg                                                    29769object frmPayProdVal: TfrmPayProdVal
  Left = 25
  Top = 25
  Width = 680
  Height = 360
  ActiveControl = lcbPTp
  Anchors = []
  Caption = #1047#1072#1103#1074#1083#1077#1085#1080#1077' '#1085#1072' '#1087#1088#1086#1076#1072#1078#1091' '#1074#1072#1083#1102#1090#1099
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  WindowState = wsNormal
  OnCloseQuery = Form_CloseQuery
  OnCreate = Form_Create
  DesignSize = (
    672
    326)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 8
    Top = 8
    Width = 658
    Height = 287
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    object TabSheet1: TTabSheet
      Caption = #1054#1073#1097#1077#1077
      DesignSize = (
        656
        265)
      object lcbPTp: xbLabelCombo
        Left = 8
        Top = 8
        Width = 220
        Height = 21
        ParentBackGround = True
        Caption = #1042#1080#1076' '#1087#1083#1072#1090#1077#1078#1072
        TabOrder = 0
        LabelWidth = 120
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Sorted = False
        EditColor = clWindow
        DisabledColor = clInactiveBorder
        DisabledFontColor = clBlack
        BorderColor = clWindowText
        AutoComplete = False
        Style = csDropDownList
        CharCase = ecNormal
        DropDownCount = 0
        ItemHeight = 0
        MaxLength = 0
        Items.Strings = (
          #1087#1086#1095#1090#1086#1081
          #1090#1077#1083#1077#1075#1088#1072#1092#1086#1084
          #1101#1083#1077#1082#1090#1088#1086#1085#1085#1086)
        ItemIndex = -1
        Visible = False
        UseStandartHint = True
        OnSelect = lcbPTp_Select
      end
      object lerMvTpCode: xbLabelEditRefer
        Left = 8
        Top = 56
        Width = 360
        Height = 21
        BorderColor = clWindowText
        Caption = #1042#1080#1076' '#1076#1074#1080#1078#1077#1085#1080#1103
        CaptionAlignment = taLeftJustify
        DataField = 'MV_NAME'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 5
        LabelWidth = 120
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnExit = lerMvTpCode_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'MV_CODE'
        BeforeButtonClick = lerMvTpCode_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'MV_CODE;-1;50;1;-1;'#1050#1086#1076'|MV_NAME;-1;200;1;-1;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldName = 'MV_NAME'
        FindFieldType = tfCharacterString
        ListDataSet = DSMvTp
        OutFieldsArray = 'MV_CODE;PRT_TP'
        PutFieldsArray = 'MV_CODE;PRT_TP'
        ReferCaption = #1042#1080#1076#1099' '#1076#1074#1080#1078#1077#1085#1080#1103' '#1076#1077#1085#1077#1078#1085#1099#1093' '#1089#1088#1077#1076#1089#1090#1074
        TypeFindFieldName = 'MV_NAME'
        xReferId = 0
        IsHarbourRefer = True
        OnSelect = lerMvTpCode_Select
      end
      object bFrame1: xbFrame
        Left = 8
        Top = 84
        Width = 640
        Height = 80
        TabOrder = 10
        Anchors = [akLeft, akTop, akRight]
        DesignSize = (
          640
          80)
        object lbPartName: xbLabel
          Left = 281
          Top = 9
          Width = 350
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPlatName'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'FINOBJ_PART_SHORTNAME'
          DataSource = ADS
        end
        object lbBankName1: xbLabel
          Left = 411
          Top = 33
          Width = 220
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPlatBankName1'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'OWNACNT_BANK_NAME'
          DataSource = ADSDocCmp
        end
        object lbBankName2: xbLabel
          Left = 411
          Top = 57
          Width = 220
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPlatBankName2'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          OnClick = lbBankName2_Click
          DataField = 'OWNACNTCMPBNK_NAME'
          DataSource = ADSDocCmp
        end
        object lerPlatBankCode2: xbLabelEditRefer
          Left = 6
          Top = 54
          Width = 395
          Height = 21
          BorderColor = clWindowText
          Caption = #1041#1072#1085#1082'-'#1087#1086#1089#1088#1077#1076#1085#1080#1082
          CaptionAlignment = taLeftJustify
          DataField = 'OWNACNTCMPBNK_CODE'
          DataSource = ADSDocCmp
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 3
          LabelWidth = 318
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'M_ACNT_BNK'
          BeforeButtonClick = lerPlatBankCode2_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 'Bnk_Code;-1;50;1;-1;'#1050#1086#1076'|Bnk_Name;-1;150;1;-1;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
          FindFieldName = 'BNK_CODE'
          FindFieldType = tfCharacterString
          ListDataSet = DSPlatBank2
          OutFieldsArray = 'BNK_ID'
          PutFieldsArray = 'M_ACNT_BNK'
          ReferCaption = #1057#1095#1077#1090' '#1074' '#1073#1072#1085#1082#1077
          TypeFindFieldName = 'BNK_CODE'
          xReferId = 0
          IsHarbourRefer = True
        end
        object lePlatCode: xbLabelEdit
          Left = 6
          Top = 6
          Width = 265
          Height = 21
          BorderColor = clWindowText
          Caption = #1055#1088#1077#1076#1087#1088#1080#1103#1090#1080#1077
          CaptionAlignment = taLeftJustify
          DataField = 'FINOBJ_PART_CODE'
          DataSource = ADS
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 0
          LabelWidth = 114
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object lePlatAcnt1: xbLabelEdit
          Left = 6
          Top = 30
          Width = 265
          Height = 21
          BorderColor = clWindowText
          Caption = #1057#1087#1080#1089#1072#1090#1100' '#1089#1086' '#1089#1095#1077#1090#1072
          CaptionAlignment = taLeftJustify
          DataField = 'OWNACNT_NUM'
          DataSource = ADSDocCmp
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 1
          LabelWidth = 114
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object lePlatBankCode1: xbLabelEdit
          Left = 281
          Top = 30
          Width = 120
          Height = 21
          BorderColor = clWindowText
          Caption = #1074' '#1073#1072#1085#1082#1077
          CaptionAlignment = taLeftJustify
          DataField = 'OWNACNT_BANK_CODE'
          DataSource = ADSDocCmp
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 2
          LabelWidth = 42
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
      end
      object lcbStatus: xbLabelCombo
        Left = 8
        Top = 8
        Width = 220
        Height = 21
        ParentBackGround = True
        Caption = #1057#1090#1072#1090#1091#1089
        Enabled = False
        TabOrder = 1
        LabelWidth = 120
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Sorted = False
        EditColor = clWindow
        DisabledColor = clInactiveBorder
        DisabledFontColor = clBlack
        BorderColor = clWindowText
        AutoComplete = False
        Style = csDropDownList
        CharCase = ecNormal
        DropDownCount = 0
        ItemHeight = 0
        MaxLength = 0
        Items.Strings = (
          #1095#1077#1088#1085#1086#1074#1080#1082
          #1086#1087#1083#1072#1095#1077#1085
          #1087#1077#1088#1077#1076#1072#1085)
        ItemIndex = -1
        UseStandartHint = True
      end
      object leDocVid: xbLabelEdit
        Left = 8
        Top = 32
        Width = 220
        Height = 21
        BorderColor = clWindowText
        Caption = #1044#1086#1082#1091#1084#1077#1085#1090':             '#1074#1080#1076'    '
        CaptionAlignment = taLeftJustify
        DataField = 'DOC_CODE'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 2
        LabelWidth = 120
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leDocNum: xbLabelEdit
        Left = 238
        Top = 32
        Width = 130
        Height = 21
        BorderColor = clWindowText
        Caption = #1085#1086#1084#1077#1088'    '
        CaptionAlignment = taLeftJustify
        DataField = 'DOC_NUM'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 3
        LabelWidth = 40
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leDocDate: xbLabelEdit
        Left = 378
        Top = 32
        Width = 100
        Height = 21
        BorderColor = clWindowText
        Caption = #1076#1072#1090#1072'    '
        CaptionAlignment = taLeftJustify
        DataField = 'DOC_DATE'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 4
        LabelWidth = 30
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object bFrame2: xbFrame
        Left = 8
        Top = 173
        Width = 640
        Height = 56
        TabOrder = 11
        Anchors = [akLeft, akTop, akRight]
        DesignSize = (
          640
          56)
        object lbPolName: xbLabel
          Left = 281
          Top = 9
          Width = 350
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPolName'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          Visible = False
          DataField = 'PART_SHORTNAME'
          DataSource = ADS
        end
        object bLabel2: xbLabel
          Left = 411
          Top = 9
          Width = 220
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPolBankName1'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'PRTACNT_BANK_NAME'
          DataSource = ADSDocCmp
        end
        object bLabel3: xbLabel
          Left = 411
          Top = 33
          Width = 220
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPolBankName2'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          OnClick = lbBankName2_Click
          DataField = 'PRTACNTCMPBNK_NAME'
          DataSource = ADSDocCmp
        end
        object lbNalModelName: xbLabel
          Left = 266
          Top = 118
          Width = 300
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbNalModelName'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataSource = ADS
        end
        object lerPolAcnt1: xbLabelEditRefer
          Left = 6
          Top = 6
          Width = 265
          Height = 21
          BorderColor = clWindowText
          Caption = #1047#1072#1095#1080#1089#1083#1080#1090#1100' '#1085#1072' '#1089#1095#1077#1090
          CaptionAlignment = taLeftJustify
          DataField = 'PRTACNT_NUM'
          DataSource = ADSDocCmp
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 0
          LabelWidth = 114
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'P_ACNT_ID'
          BeforeButtonClick = lerPolAcnt1_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 'Accnt;-1;50;1;-1;'#1057#1095#1077#1090'|GetBankName;-1;150;1;-1;'#1041#1072#1085#1082
          FindFieldName = 'ACCNT'
          FindFieldType = tfCharacterString
          ListDataSet = DSPolAcnt1
          OutFieldsArray = 'REC_ID'
          PutFieldsArray = 'P_ACNT_ID'
          ReferCaption = #1057#1095#1077#1090' '#1074' '#1073#1072#1085#1082#1077
          TypeFindFieldName = 'ACCNT'
          xReferId = 0
          IsHarbourRefer = True
          OnSelect = lerPolAcnt1_Select
        end
        object lerPolBankCode2: xbLabelEditRefer
          Left = 6
          Top = 30
          Width = 395
          Height = 21
          BorderColor = clWindowText
          Caption = #1041#1072#1085#1082'-'#1087#1086#1089#1088#1077#1076#1085#1080#1082
          CaptionAlignment = taLeftJustify
          DataField = 'PRTACNTCMPBNK_CODE'
          DataSource = ADSDocCmp
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 2
          LabelWidth = 318
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'P_ACNT_BNK'
          BeforeButtonClick = lerPolBankCode2_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 'Bnk_Code;-1;50;1;-1;'#1050#1086#1076'|Bnk_Name;-1;150;1;-1;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
          FindFieldName = 'BNK_CODE'
          FindFieldType = tfCharacterString
          ListDataSet = DSPolBank2
          OutFieldsArray = 'BNK_ID'
          PutFieldsArray = 'P_ACNT_BNK'
          ReferCaption = #1057#1095#1077#1090' '#1074' '#1073#1072#1085#1082#1077
          TypeFindFieldName = 'BNK_CODE'
          xReferId = 0
          IsHarbourRefer = True
        end
        object lePolBankCode1: xbLabelEdit
          Left = 281
          Top = 6
          Width = 120
          Height = 21
          BorderColor = clWindowText
          Caption = #1074' '#1073#1072#1085#1082#1077
          CaptionAlignment = taLeftJustify
          DataField = 'PRTACNT_BANK_CODE'
          DataSource = ADSDocCmp
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 1
          LabelWidth = 42
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
      end
      object lerVal: xbLabelEditRefer
        Left = 493
        Top = 8
        Width = 155
        Height = 21
        BorderColor = clWindowText
        Caption = #1042#1072#1083#1102#1090#1072
        CaptionAlignment = taLeftJustify
        DataField = 'CURR'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 6
        LabelWidth = 65
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'CURR'
        BeforeButtonClick = lerVal_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'CODE;-1;50;1;-1;'#1050#1086#1076'|NAME;-1;200;1;-1;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldName = 'CODE'
        FindFieldType = tfCharacterString
        ListDataSet = DSVal
        OutFieldsArray = 'CODE'
        PutFieldsArray = 'CURR'
        ReferCaption = #1057#1087#1088#1072#1074#1086#1095#1085#1080#1082' '#1074#1072#1083#1102#1090
        TypeFindFieldName = 'CODE'
        xReferId = 0
        IsHarbourRefer = True
      end
      object lecSumma: xbLabelEditCalc
        Left = 493
        Top = 56
        Width = 155
        Height = 21
        BorderColor = clWindowText
        Caption = #1057#1091#1084#1084#1072
        CaptionAlignment = taLeftJustify
        DataField = 'SUM_C'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        TabOrder = 8
        LabelWidth = 65
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        OnEnter = lecSumma_Enter
        OnExit = lecSumma_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        VisibleButton = False
      end
      object lerNaznPlat: xbLabelEditRefer
        Left = 8
        Top = 237
        Width = 401
        Height = 21
        BorderColor = clWindowText
        Caption = #1053#1072#1079#1085#1072#1095#1077#1085#1080#1077' '#1087#1083#1072#1090#1077#1078#1072
        CaptionAlignment = taLeftJustify
        DataField = 'COMMENT'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 12
        LabelWidth = 120
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnKeyDown = lerNaznPlat_KeyDown
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'REASON_ID;COMMENT'
        BeforeButtonClick = lerNaznPlat_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'TEXT;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldType = tfCharacterString
        ListDataSet = DSReasons
        OutFieldsArray = 'RowID'
        PutFieldsArray = 'REASON_ID'
        ReferCaption = #1054#1089#1085#1086#1074#1072#1085#1080#1103' '#1087#1083#1072#1090#1077#1078#1072
        ReferWidth = 450
        xReferId = 0
        IsHarbourRefer = True
      end
      object lecKurs: xbLabelEditCalc
        Left = 493
        Top = 32
        Width = 155
        Height = 21
        BorderColor = clWindowText
        Caption = #1050#1091#1088#1089
        CaptionAlignment = taLeftJustify
        DataField = 'RATE_CMP'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        TabOrder = 7
        LabelWidth = 65
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        OnEnter = lecKurs_Enter
        OnExit = lecKurs_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        VisibleButton = False
      end
      object lecSumSpis: xbLabelEditCalc
        Left = 493
        Top = 80
        Width = 155
        Height = 21
        BorderColor = clWindowText
        Caption = #1050' '#1089#1087#1080#1089#1072#1085#1080#1102
        CaptionAlignment = taLeftJustify
        DataField = 'SUM'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        TabOrder = 9
        LabelWidth = 65
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        Visible = False
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        VisibleButton = False
      end
    end
  end
  object btnOK: xbButton
    Left = 508
    Top = 304
    Width = 75
    Height = 21
    Hint = #1057#1086#1093#1088#1072#1085#1077#1085#1080#1077' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (F10)'
    Caption = #1054#1050
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 3
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btnCANCEL: xbButton
    Left = 591
    Top = 304
    Width = 75
    Height = 21
    Hint = #1042#1099#1093#1086#1076' '#1080#1079' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (Esc)'
    Caption = #1054#1090#1084#1077#1085#1072
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 4
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object pOperation: xbPopupButton
    Left = 425
    Top = 304
    Width = 75
    Height = 21
    Caption = #1054#1087#1077#1088#1072#1094#1080#1080
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = MenuOperation
    RoundedButton = True
    TabOrder = 2
    OnClick = pOperation_Click
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object pbDopData: xbPopupButton
    Left = 318
    Top = 304
    Width = 100
    Height = 21
    Caption = #1044#1086#1087'. '#1076#1072#1085#1085#1099#1077
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = MenuDopData
    RoundedButton = True
    TabOrder = 1
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <>
    OEMTranslate = False
    Left = 109
    Top = 3
  end
  object ADS: xbADSDataSource
    DataSet = DS
    Left = 145
    Top = 3
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_FIN_DOC'
    Active = False
    Left = 72
    Top = 3
  end
  object DSPlatBank2: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOPlatBank2
    FieldDefs = <>
    OEMTranslate = False
    Left = 508
    Top = 145
  end
  object BOPlatBank2: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPartnerBank'
    Active = False
    Left = 509
    Top = 98
  end
  object BOPolAcnt1: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPartnerAccnt'
    Active = False
    Left = 606
    Top = 213
  end
  object DSPolAcnt1: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOPolAcnt1
    FieldDefs = <>
    OEMTranslate = False
    IndexName = 'TAG_RSCH'
    Left = 606
    Top = 262
  end
  object BODocCmp: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_DOC_CMP'
    Active = False
    Left = 602
    Top = 88
  end
  object DSDocCmp: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BODocCmp
    FieldDefs = <>
    OEMTranslate = False
    Left = 604
    Top = 137
  end
  object ADSDocCmp: xbADSDataSource
    DataSet = DSDocCmp
    Left = 598
    Top = 38
  end
  object BOMvTp: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_MOVE_TP'
    Active = False
    Left = 322
    Top = 88
  end
  object DSMvTp: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOMvTp
    FieldDefs = <>
    OEMTranslate = False
    Left = 415
    Top = 89
  end
  object BOVal: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsValuta'
    Active = False
    Left = 400
    Top = 17
  end
  object DSVal: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOVal
    FieldDefs = <>
    OEMTranslate = False
    Left = 453
    Top = 18
  end
  object BOPolBank2: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPartnerBank'
    Active = False
    Left = 511
    Top = 210
  end
  object DSPolBank2: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOPolBank2
    FieldDefs = <>
    OEMTranslate = False
    Left = 512
    Top = 261
  end
  object BOReasons: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_REASONS'
    Active = False
    Left = 40
    Top = 229
  end
  object DSReasons: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOReasons
    FieldDefs = <>
    OEMTranslate = False
    Left = 41
    Top = 271
  end
  object MenuOperation: xbPopupMenu
    Left = 223
    Top = 234
    object miNaznPlat: TMenuItem
      Caption = #1055#1077#1088#1077#1092#1086#1088#1084#1080#1088#1086#1074#1072#1090#1100' '#1085#1072#1079#1085#1072#1095#1077#1085#1080#1077'  Ctrl+P'
      OnClick = miNaznPlat_Click
    end
  end
  object MenuDopData: xbPopupMenu
    Left = 363
    Top = 133
    object miDopRecv: TMenuItem
      Caption = #1044#1086#1087' '#1088#1077#1082#1074#1080#1079#1080#1090#1099'        Alt+F5'
      OnClick = miDopRecv_Click
    end
  end
end
frmPayVznosNal.prg                                                   25739object frmPayVznosNal: TfrmPayVznosNal
  Left = 25
  Top = 25
  Width = 680
  Height = 357
  ActiveControl = lcbPTp
  Anchors = []
  Caption = #1054#1073#1098#1103#1074#1083#1077#1085#1080#1077' '#1085#1072' '#1074#1079#1085#1086#1089' '#1085#1072#1083#1080#1095#1085#1099#1084#1080
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  WindowState = wsNormal
  OnCloseQuery = Form_CloseQuery
  OnCreate = Form_Create
  DesignSize = (
    672
    323)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 8
    Top = 8
    Width = 658
    Height = 284
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    object TabSheet1: TTabSheet
      Caption = #1054#1073#1097#1077#1077
      DesignSize = (
        656
        262)
      object lerMvTpCode: xbLabelEditRefer
        Left = 8
        Top = 56
        Width = 360
        Height = 21
        BorderColor = clWindowText
        Caption = #1042#1080#1076' '#1076#1074#1080#1078#1077#1085#1080#1103
        CaptionAlignment = taLeftJustify
        DataField = 'MV_NAME'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 5
        LabelWidth = 120
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnExit = lerMvTpCode_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'MV_CODE'
        BeforeButtonClick = lerMvTpCode_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'MV_CODE;-1;50;1;-1;'#1050#1086#1076'|MV_NAME;-1;200;1;-1;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldName = 'MV_NAME'
        FindFieldType = tfCharacterString
        ListDataSet = DSMvTp
        OutFieldsArray = 'MV_CODE;PRT_TP'
        PutFieldsArray = 'MV_CODE;PRT_TP'
        ReferCaption = #1042#1080#1076#1099' '#1076#1074#1080#1078#1077#1085#1080#1103' '#1076#1077#1085#1077#1078#1085#1099#1093' '#1089#1088#1077#1076#1089#1090#1074
        TypeFindFieldName = 'MV_NAME'
        xReferId = 0
        IsHarbourRefer = True
        OnSelect = lerMvTpCode_Select
      end
      object bFrame1: xbFrame
        Left = 8
        Top = 85
        Width = 640
        Height = 42
        Caption = #1055#1083#1072#1090#1077#1083#1100#1097#1080#1082
        TabOrder = 8
        Anchors = [akLeft, akTop, akRight]
        DesignSize = (
          640
          42)
        object lbPartName: xbLabel
          Left = 281
          Top = 19
          Width = 350
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPlatName'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'FIO'
          DataSource = ADSDocCmp
        end
        object lerPlatCode: xbLabelEditRefer
          Left = 6
          Top = 16
          Width = 265
          Height = 21
          BorderColor = clWindowText
          Caption = #1054#1090' '#1082#1086#1075#1086
          CaptionAlignment = taLeftJustify
          DataField = 'TABN'
          DataSource = ADSDocCmp
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 0
          LabelWidth = 114
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'TABN'
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 
            'CODE;-1;50;1;-1;'#1058#1072#1073'.'#8470'|SHORTNAME;-1;120;1;-1;'#1060#1072#1084#1080#1083#1080#1103'|name1;-1;100' +
            ';1;-1;'#1048#1084#1103'|Name2;-1;150;1;-1;'#1054#1090#1095#1077#1089#1090#1074#1086
          FindFieldName = 'CODE'
          FindFieldType = tfCharacterString
          ListDataSet = dsTabN
          OutFieldsArray = 'CODE'
          PutFieldsArray = 'TABN'
          ReferCaption = #1057#1087#1088#1072#1074#1086#1095#1085#1080#1082' '#1089#1086#1090#1088#1091#1076#1085#1080#1082#1086#1074
          TypeFindFieldName = 'CODE'
          xReferId = 0
          IsHarbourRefer = True
          OnSelect = lerPlatCode_Select
        end
      end
      object lcbStatus: xbLabelCombo
        Left = 238
        Top = 8
        Width = 130
        Height = 21
        ParentBackGround = True
        Caption = #1057#1090#1072#1090#1091#1089
        Enabled = False
        TabOrder = 1
        LabelWidth = 40
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Sorted = False
        EditColor = clWindow
        DisabledColor = clInactiveBorder
        DisabledFontColor = clBlack
        BorderColor = clWindowText
        AutoComplete = False
        Style = csDropDownList
        CharCase = ecNormal
        DropDownCount = 0
        ItemHeight = 0
        MaxLength = 0
        Items.Strings = (
          #1095#1077#1088#1085#1086#1074#1080#1082
          #1087#1077#1088#1077#1076#1072#1085
          #1086#1087#1083#1072#1095#1077#1085)
        ItemIndex = -1
        UseStandartHint = True
      end
      object leDocVid: xbLabelEdit
        Left = 8
        Top = 32
        Width = 220
        Height = 21
        BorderColor = clWindowText
        Caption = #1044#1086#1082#1091#1084#1077#1085#1090':             '#1074#1080#1076'    '
        CaptionAlignment = taLeftJustify
        DataField = 'DOC_CODE'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 2
        LabelWidth = 120
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leDocNum: xbLabelEdit
        Left = 238
        Top = 32
        Width = 130
        Height = 21
        BorderColor = clWindowText
        Caption = #1085#1086#1084#1077#1088'    '
        CaptionAlignment = taLeftJustify
        DataField = 'DOC_NUM'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 3
        LabelWidth = 40
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leDocDate: xbLabelEdit
        Left = 378
        Top = 32
        Width = 100
        Height = 21
        BorderColor = clWindowText
        Caption = #1076#1072#1090#1072'    '
        CaptionAlignment = taLeftJustify
        DataField = 'DOC_DATE'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 4
        LabelWidth = 30
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object bFrame2: xbFrame
        Left = 8
        Top = 135
        Width = 640
        Height = 90
        Caption = #1055#1086#1083#1091#1095#1072#1090#1077#1083#1100
        TabOrder = 9
        Anchors = [akLeft, akTop, akRight]
        DesignSize = (
          640
          90)
        object lbNalModelName: xbLabel
          Left = 266
          Top = 118
          Width = 300
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbNalModelName'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataSource = ADS
        end
        object bLabel1: xbLabel
          Left = 281
          Top = 19
          Width = 350
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPolName'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'FINOBJ_PART_SHORTNAME'
          DataSource = ADS
        end
        object lbBankName1: xbLabel
          Left = 411
          Top = 43
          Width = 220
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPolBankName1'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'OWNACNT_BANK_NAME'
          DataSource = ADSDocCmp
        end
        object lbBankName2: xbLabel
          Left = 411
          Top = 67
          Width = 220
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPolBankName2'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          OnClick = lbBankName2_Click
          DataField = 'OWNACNTCMPBNK_NAME'
          DataSource = ADSDocCmp
        end
        object lePolCode: xbLabelEdit
          Left = 6
          Top = 16
          Width = 265
          Height = 21
          BorderColor = clWindowText
          Caption = #1055#1088#1077#1076#1087#1088#1080#1103#1090#1080#1077
          CaptionAlignment = taLeftJustify
          DataField = 'FINOBJ_PART_CODE'
          DataSource = ADS
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 0
          LabelWidth = 114
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object lePolAcnt1: xbLabelEdit
          Left = 6
          Top = 40
          Width = 265
          Height = 21
          BorderColor = clWindowText
          Caption = #1056#1072#1089#1095#1077#1090#1085#1099#1081' '#1089#1095#1077#1090
          CaptionAlignment = taLeftJustify
          DataField = 'OWNACNT_NUM'
          DataSource = ADSDocCmp
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 1
          LabelWidth = 114
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object lePolBankCode1: xbLabelEdit
          Left = 281
          Top = 40
          Width = 120
          Height = 21
          BorderColor = clWindowText
          Caption = #1074' '#1073#1072#1085#1082#1077
          CaptionAlignment = taLeftJustify
          DataField = 'OWNACNT_BANK_CODE'
          DataSource = ADSDocCmp
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 2
          LabelWidth = 42
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object lePolAcnt2: xbLabelEdit
          Left = 120
          Top = 64
          Width = 151
          Height = 21
          BorderColor = clWindowText
          Caption = #1056#1072#1089#1095#1077#1090#1085#1099#1081' '#1089#1095#1077#1090
          CaptionAlignment = taLeftJustify
          DataField = 'OWNACNTCMP_NUM'
          DataSource = ADSDocCmp
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 3
          LabelWidth = 0
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object lerPolBankCode2: xbLabelEditRefer
          Left = 281
          Top = 64
          Width = 120
          Height = 21
          BorderColor = clWindowText
          Caption = #1074' '#1073#1072#1085#1082#1077
          CaptionAlignment = taLeftJustify
          DataField = 'OWNACNTCMPBNK_CODE'
          DataSource = ADSDocCmp
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 4
          LabelWidth = 42
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'M_ACNT_BNK'
          EnabledEdit = False
          BeforeButtonClick = lerPolBankCode2_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 'Bnk_Code;-1;50;1;-1;'#1050#1086#1076'|Bnk_Name;-1;150;1;-1;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
          FindFieldName = 'BNK_CODE'
          FindFieldType = tfCharacterString
          ListDataSet = DSPolBank2
          OutFieldsArray = 'BNK_ID'
          PutFieldsArray = 'M_ACNT_BNK'
          ReferCaption = #1057#1095#1077#1090' '#1074' '#1073#1072#1085#1082#1077
          TypeFindFieldName = 'BNK_CODE'
          xReferId = 0
          IsHarbourRefer = True
        end
      end
      object lerVal: xbLabelEditRefer
        Left = 498
        Top = 32
        Width = 150
        Height = 21
        BorderColor = clWindowText
        Caption = #1042#1072#1083#1102#1090#1072
        CaptionAlignment = taLeftJustify
        DataField = 'CURR'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 6
        LabelWidth = 50
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'CURR'
        EnabledEdit = False
        EnabledButton = False
        BeforeButtonClick = lerVal_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'CODE;-1;50;1;-1;'#1050#1086#1076'|NAME;-1;200;1;-1;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldName = 'CODE'
        FindFieldType = tfCharacterString
        ListDataSet = DSVal
        OutFieldsArray = 'CODE'
        PutFieldsArray = 'CURR'
        ReferCaption = #1057#1087#1088#1072#1074#1086#1095#1085#1080#1082' '#1074#1072#1083#1102#1090
        TypeFindFieldName = 'CODE'
        xReferId = 0
        IsHarbourRefer = True
      end
      object lecSumma: xbLabelEditCalc
        Left = 498
        Top = 56
        Width = 150
        Height = 21
        BorderColor = clWindowText
        Caption = #1057#1091#1084#1084#1072
        CaptionAlignment = taLeftJustify
        DataField = 'SUM'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        TabOrder = 7
        LabelWidth = 50
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        OnEnter = lecSumma_Enter
        OnExit = lecSumma_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        VisibleButton = False
        OnSelect = lecSumma_Select
      end
      object lcbPTp: xbLabelCombo
        Left = 8
        Top = 8
        Width = 220
        Height = 21
        ParentBackGround = True
        Caption = #1042#1080#1076' '#1087#1083#1072#1090#1077#1078#1072
        TabOrder = 0
        LabelWidth = 120
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Sorted = False
        EditColor = clWindow
        DisabledColor = clInactiveBorder
        DisabledFontColor = clBlack
        BorderColor = clWindowText
        AutoComplete = False
        Style = csDropDownList
        CharCase = ecNormal
        DropDownCount = 0
        ItemHeight = 0
        MaxLength = 0
        Items.Strings = (
          ''
          #1087#1086#1095#1090#1086#1081
          #1090#1077#1083#1077#1075#1088#1072#1092#1086#1084
          #1101#1083#1077#1082#1090#1088#1086#1085#1085#1086
          #1089#1088#1086#1095#1085#1086)
        ItemIndex = -1
        UseStandartHint = True
        OnSelect = lcbPTp_Select
      end
      object lerNaznPlat: xbLabelEditRefer
        Left = 8
        Top = 234
        Width = 401
        Height = 21
        BorderColor = clWindowText
        Caption = #1048#1089#1090#1086#1095#1085#1080#1082' '#1074#1079#1085#1086#1089#1072
        CaptionAlignment = taLeftJustify
        DataField = 'COMMENT'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 10
        LabelWidth = 120
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnKeyDown = lerNaznPlat_KeyDown
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'REASON_ID;COMMENT'
        BeforeButtonClick = lerNaznPlat_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'TEXT;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldType = tfCharacterString
        ListDataSet = DSReasons
        OutFieldsArray = 'RowID'
        PutFieldsArray = 'REASON_ID'
        ReferCaption = #1054#1089#1085#1086#1074#1072#1085#1080#1103' '#1087#1083#1072#1090#1077#1078#1072
        ReferWidth = 450
        xReferId = 0
        IsHarbourRefer = True
      end
    end
  end
  object btnOK: xbButton
    Left = 508
    Top = 301
    Width = 75
    Height = 21
    Hint = #1057#1086#1093#1088#1072#1085#1077#1085#1080#1077' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (F10)'
    Caption = #1054#1050
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 3
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btnCANCEL: xbButton
    Left = 591
    Top = 301
    Width = 75
    Height = 21
    Hint = #1042#1099#1093#1086#1076' '#1080#1079' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (Esc)'
    Caption = #1054#1090#1084#1077#1085#1072
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 4
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object pbDopData: xbPopupButton
    Left = 317
    Top = 301
    Width = 100
    Height = 21
    Caption = #1044#1086#1087'. '#1076#1072#1085#1085#1099#1077
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = MenuDopData
    RoundedButton = True
    TabOrder = 1
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object pOperation: xbPopupButton
    Left = 425
    Top = 301
    Width = 75
    Height = 21
    Caption = #1054#1087#1077#1088#1072#1094#1080#1080
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = MenuOperation
    RoundedButton = True
    TabOrder = 2
    OnClick = pOperation_Click
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <>
    OEMTranslate = False
    Left = 109
    Top = 3
  end
  object ADS: xbADSDataSource
    DataSet = DS
    Left = 145
    Top = 3
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_FIN_DOC'
    Active = False
    Left = 72
    Top = 3
  end
  object MenuDopData: xbPopupMenu
    Left = 620
    Top = 2
    object MenuStatus1: TMenuItem
      Caption = #1044#1086#1093#1086#1076#1099' '#1073#1102#1076#1078#1077#1090#1072
      Enabled = False
      OnClick = MenuStatus1_Click
    end
    object MenuStatus2: TMenuItem
      Caption = #1056#1072#1089#1093#1086#1076#1099' '#1073#1102#1076#1078#1077#1090#1072
      OnClick = MenuStatus2_Click
    end
    object miDopRecv: TMenuItem
      Caption = #1044#1086#1087' '#1088#1077#1082#1074#1080#1079#1080#1090#1099'      Alt+F5'
      OnClick = miDopRecv_Click
    end
  end
  object BODocCmp: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_DOC_CMP'
    Active = False
    Left = 477
    Top = 87
  end
  object DSDocCmp: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BODocCmp
    FieldDefs = <>
    OEMTranslate = False
    Left = 539
    Top = 87
  end
  object ADSDocCmp: xbADSDataSource
    DataSet = DSDocCmp
    Left = 604
    Top = 87
  end
  object BOMvTp: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_MOVE_TP'
    Active = False
    Left = 242
    Top = 6
  end
  object DSMvTp: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOMvTp
    FieldDefs = <>
    OEMTranslate = False
    Left = 295
    Top = 7
  end
  object BOVal: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsValuta'
    Active = False
    Left = 400
    Top = 17
  end
  object DSVal: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOVal
    FieldDefs = <>
    OEMTranslate = False
    Left = 453
    Top = 18
  end
  object BOPolBank2: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPartnerBank'
    Active = False
    Left = 553
    Top = 168
  end
  object DSPolBank2: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOPolBank2
    FieldDefs = <>
    OEMTranslate = False
    Left = 554
    Top = 219
  end
  object BOReasons: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_REASONS'
    Active = False
    Left = 45
    Top = 203
  end
  object DSReasons: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOReasons
    FieldDefs = <>
    OEMTranslate = False
    Left = 46
    Top = 245
  end
  object BOTabN: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPeople'
    Active = False
    Left = 371
    Top = 123
  end
  object dsTabN: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOTabN
    FieldDefs = <>
    OEMTranslate = False
    Left = 416
    Top = 124
  end
  object MenuOperation: xbPopupMenu
    Left = 213
    Top = 232
    object miNaznPlat: TMenuItem
      Caption = #1055#1077#1088#1077#1092#1086#1088#1084#1080#1088#1086#1074#1072#1090#1100' '#1085#1072#1079#1085#1072#1095#1077#1085#1080#1077'  Ctrl+P'
      OnClick = miNaznPlat_Click
    end
  end
end
frmPayRashRasp.prg                                                   64914object frmPayRashRasp: TfrmPayRashRasp
  Left = 25
  Top = 25
  Width = 680
  Height = 435
  ActiveControl = leDopNum
  Anchors = []
  Caption = #1056#1072#1089#1093#1086#1076#1085#1086#1077' '#1088#1072#1089#1087#1080#1089#1072#1085#1080#1077
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  WindowState = wsNormal
  OnActivate = Form_Activate
  OnCloseQuery = Form_CloseQuery
  OnCreate = Form_Create
  OnShow = Form_Show
  DesignSize = (
    672
    401)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 8
    Top = 8
    Width = 658
    Height = 362
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    OnChange = bPageControl1_Change
    OnChanging = bPageControl1_Changing
    object TabSheet1: TTabSheet
      Caption = #1054#1073#1097#1077#1077
      DesignSize = (
        656
        340)
      object lcbPTp: xbLabelCombo
        Left = 8
        Top = 8
        Width = 220
        Height = 21
        ParentBackGround = True
        Caption = #1042#1080#1076' '#1087#1083#1072#1090#1077#1078#1072
        Enabled = False
        TabOrder = 0
        LabelWidth = 120
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Sorted = False
        EditColor = clWindow
        DisabledColor = clInactiveBorder
        DisabledFontColor = clBlack
        BorderColor = clWindowText
        AutoComplete = False
        Style = csDropDownList
        CharCase = ecNormal
        DropDownCount = 0
        ItemHeight = 0
        MaxLength = 0
        Items.Strings = (
          ''
          #1087#1086#1095#1090#1086#1081
          #1090#1077#1083#1077#1075#1088#1072#1092#1086#1084
          #1101#1083#1077#1082#1090#1088#1086#1085#1085#1086
          #1089#1088#1086#1095#1085#1086)
        ItemIndex = -1
        Visible = False
        UseStandartHint = True
        OnSelect = lcbPTp_Select
      end
      object lerMvTpCode: xbLabelEditRefer
        Left = 8
        Top = 56
        Width = 396
        Height = 21
        BorderColor = clWindowText
        Caption = #1042#1080#1076' '#1076#1074#1080#1078#1077#1085#1080#1103
        CaptionAlignment = taLeftJustify
        DataField = 'MV_NAME'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 8
        LabelWidth = 136
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnEnter = lerMvTpCode_Enter
        OnExit = lerMvTpCode_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'MV_CODE'
        BeforeButtonClick = lerMvTpCode_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'MV_CODE;-1;50;1;-1;'#1050#1086#1076'|MV_NAME;-1;200;1;-1;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldName = 'MV_NAME'
        FindFieldType = tfCharacterString
        ListDataSet = DSMvTp
        OutFieldsArray = 'MV_CODE;PRT_TP;DIR'
        PutFieldsArray = 'MV_CODE;PRT_TP;DIR'
        ReferCaption = #1042#1080#1076#1099' '#1076#1074#1080#1078#1077#1085#1080#1103' '#1076#1077#1085#1077#1078#1085#1099#1093' '#1089#1088#1077#1076#1089#1090#1074
        TypeFindFieldName = 'MV_NAME'
        xReferId = 0
        IsHarbourRefer = True
        OnSelect = lerMvTpCode_Select
      end
      object bFrame1: xbFrame
        Left = 8
        Top = 84
        Width = 640
        Height = 249
        TabOrder = 9
        Anchors = [akLeft, akTop, akRight]
        DesignSize = (
          640
          249)
        object lbPlatName: xbLabel
          Left = 296
          Top = 81
          Width = 335
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPlatName'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'FINOBJ_PART_SHORTNAME'
          DataSource = ADS
        end
        object lbPolName: xbLabel
          Left = 296
          Top = 129
          Width = 335
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPolName'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'PART_SHORTNAME'
          DataSource = ADS
        end
        object lbGlavName: xbLabel
          Left = 296
          Top = 57
          Width = 335
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbGlavName'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'PART_ORGNAME'
          DataSource = ADSDocCmp
        end
        object lbPolBankName1: xbLabel
          Left = 416
          Top = 153
          Width = 220
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPolBankName1'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'PRTACNT_BANK_NAME'
          DataSource = ADSDocCmp
        end
        object lbPPTp: xbLabel
          Left = 296
          Top = 33
          Width = 335
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPPTp'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'PPTP_NAME'
          DataSource = ADSDocCmp
        end
        object lbPlatBankName1: xbLabel
          Left = 416
          Top = 105
          Width = 220
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPlatBankName1'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          OnClick = lbPlatBankName1_Click
          DataField = 'OWNACNT_BANK_NAME'
          DataSource = ADSDocCmp
        end
        object lbFO: xbLabel
          Left = 296
          Top = 9
          Width = 160
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbFO'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'FO_SHORTNAME'
          DataSource = ADSDocCmp
        end
        object lbNaznPlat: xbLabel
          Left = 8
          Top = 177
          Width = 150
          Height = 17
          Caption = #1053#1072#1079#1085#1072#1095#1077#1085#1080#1077' . . . . . . . . . . . . . . . . . . . .'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
        end
        object lePlatCode: xbLabelEdit
          Left = 6
          Top = 78
          Width = 280
          Height = 21
          BorderColor = clWindowText
          Caption = #1056#1072#1089#1087#1086#1088#1103#1076#1080#1090#1077#1083#1100
          CaptionAlignment = taLeftJustify
          DataField = 'FINOBJ_COD_BUD_P'
          DataSource = ADS
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 4
          LabelWidth = 130
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object lerGlavCode: xbLabelEditRefer
          Left = 6
          Top = 54
          Width = 280
          Height = 21
          BorderColor = clWindowText
          Caption = #1043#1083#1072#1074#1085#1099#1081' '#1088#1072#1089#1087#1086#1088#1103#1076#1080#1090#1077#1083#1100
          CaptionAlignment = taLeftJustify
          DataField = 'PART_COD_BUD_P'
          DataSource = ADSDocCmp
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 3
          LabelWidth = 130
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          OnEnter = lerGlavCode_Enter
          OnExit = lerGlavCode_Exit
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'R_ID'
          BeforeButtonClick = lerGlavCode_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 'CODE;-1;100;1;0;'#1050#1086#1076'|SORTNAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
          FindFieldName = 'COD_BUD_P'
          FindFieldType = tfCharacterString
          OutFieldsArray = 'PART_ID'
          PutFieldsArray = 'R_ID'
          ReferCaption = #1057#1087#1080#1089#1086#1082
          ReferWidth = 450
          TypeFindFieldName = 'COD_BUD_P'
          xReferId = 0
          IsHarbourRefer = True
        end
        object lerPolCode: xbLabelEditRefer
          Left = 6
          Top = 126
          Width = 280
          Height = 21
          BorderColor = clWindowText
          Caption = #1055#1088#1077#1076#1087#1088#1080#1103#1090#1080#1077
          CaptionAlignment = taLeftJustify
          DataField = 'PART_COD_BUD_P'
          DataSource = ADS
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 7
          LabelWidth = 130
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          OnEnter = lerPolCode_Enter
          OnExit = lerPolCode_Exit
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'PRT_ID'
          BeforeButtonClick = lerPolCode_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 'CODE;-1;100;1;0;'#1050#1086#1076'|SORTNAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
          FindFieldName = 'COD_BUD_P'
          FindFieldType = tfCharacterString
          OutFieldsArray = 'PART_ID'
          PutFieldsArray = 'PRT_ID'
          ReferCaption = #1057#1087#1080#1089#1086#1082
          ReferWidth = 450
          TypeFindFieldName = 'COD_BUD_P'
          xReferId = 0
          IsHarbourRefer = True
          OnSelect = lerPolCode_Select
        end
        object lerPolAcnt1: xbLabelEditRefer
          Left = 6
          Top = 150
          Width = 280
          Height = 21
          BorderColor = clWindowText
          Caption = #1057#1095#1077#1090
          CaptionAlignment = taLeftJustify
          DataField = 'PRTACNT_NUM'
          DataSource = ADSDocCmp
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 8
          LabelWidth = 130
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          OnExit = lerPolAcnt1_Exit
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'P_ACNT_ID'
          BeforeButtonClick = lerPolAcnt1_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 
            'Accnt;-1;130;1;-1;'#1057#1095#1077#1090'|GetBankName;-1;200;1;-1;'#1041#1072#1085#1082'|Comment;-1;1' +
            '70;1;-1;'#1050#1086#1084#1084#1077#1085#1090#1072#1088#1080#1081
          FindFieldName = 'ACCNT'
          FindFieldType = tfCharacterString
          ListDataSet = DSPolAcnt1
          OutFieldsArray = 'REC_ID'
          PutFieldsArray = 'P_ACNT_ID'
          ReferCaption = #1057#1095#1077#1090' '#1074' '#1073#1072#1085#1082#1077
          TypeFindFieldName = 'ACCNT'
          xReferId = 0
          IsHarbourRefer = True
          OnSelect = lerPolAcnt1_Select
        end
        object leSpc: xbLabelEdit
          Left = 186
          Top = 223
          Width = 420
          Height = 21
          BorderColor = clWindowText
          Caption = #1085#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
          CaptionExtender = ceNone
          CaptionAlignment = taLeftJustify
          DataField = 'SPC'
          DataSource = ADSDocCmp
          ButtonsColor = clBlack
          EnabledColor = clWhite
          TabOrder = 13
          LabelWidth = 80
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object lePolBankCode1: xbLabelEdit
          Left = 296
          Top = 150
          Width = 110
          Height = 21
          BorderColor = clWindowText
          Caption = #1074' '#1054#1060#1050'     '
          CaptionAlignment = taLeftJustify
          DataField = 'PRTACNT_COD_BUD_P'
          DataSource = ADSDocCmp
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 9
          LabelWidth = 40
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object lerBudLev: xbLabelEditRefer
          Left = 467
          Top = 6
          Width = 140
          Height = 21
          BorderColor = clWindowText
          Caption = #1041#1102#1076#1078#1077#1090
          CaptionAlignment = taLeftJustify
          DataField = 'BUD_LEV'
          DataSource = ADSDocCmp
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 1
          LabelWidth = 50
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          OnEnter = lerGlavCode_Enter
          OnExit = lerGlavCode_Exit
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'BUD_LEV'
          BeforeButtonClick = lerGlavCode_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 'CODE;-1;100;1;0;'#1050#1086#1076'|NAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
          FindFieldName = 'BUD_LEV'
          FindFieldType = tfCharacterString
          ListDataSet = DSBudLev
          OutFieldsArray = 'CODE'
          PutFieldsArray = 'BUD_LEV'
          ReferCaption = #1057#1087#1080#1089#1086#1082
          ReferWidth = 450
          TypeFindFieldName = 'BUD_LEV'
          xReferId = 0
          IsHarbourRefer = True
        end
        object lerPPTp: xbLabelEditRefer
          Left = 6
          Top = 30
          Width = 280
          Height = 21
          BorderColor = clWindowText
          Caption = #1058#1080#1087' '#1056#1056
          CaptionAlignment = taLeftJustify
          DataField = 'PP_TP'
          DataSource = ADSDocCmp
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 2
          LabelWidth = 130
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          OnEnter = lerGlavCode_Enter
          OnExit = lerGlavCode_Exit
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'PP_TP'
          BeforeButtonClick = lerGlavCode_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 'CODE;-1;100;1;0;'#1050#1086#1076'|NAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
          FindFieldName = 'PP_TP'
          FindFieldType = tfCharacterString
          ListDataSet = DSPPTp
          OutFieldsArray = 'CODE'
          PutFieldsArray = 'PP_TP'
          ReferCaption = #1057#1087#1080#1089#1086#1082
          ReferWidth = 450
          TypeFindFieldName = 'PP_TP'
          xReferId = 0
          IsHarbourRefer = True
        end
        object lePlatAcnt1: xbLabelEdit
          Left = 6
          Top = 102
          Width = 280
          Height = 21
          BorderColor = clWindowText
          Caption = #1057#1095#1077#1090
          CaptionAlignment = taLeftJustify
          DataField = 'OWNACNT_NUM'
          DataSource = ADSDocCmp
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 5
          LabelWidth = 130
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object lerPlatBankCode1: xbLabelEdit
          Left = 296
          Top = 102
          Width = 110
          Height = 21
          BorderColor = clWindowText
          Caption = #1074' '#1054#1060#1050'     '
          CaptionAlignment = taLeftJustify
          DataField = 'OWNACNT_COD_BUD_P'
          DataSource = ADSDocCmp
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 6
          LabelWidth = 40
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object lerFO: xbLabelEditRefer
          Left = 6
          Top = 6
          Width = 280
          Height = 21
          BorderColor = clWindowText
          Caption = #1060#1080#1085'. '#1086#1088#1075#1072#1085
          CaptionAlignment = taLeftJustify
          DataField = 'FO_COD_BUD_P'
          DataSource = ADSDocCmp
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 0
          LabelWidth = 130
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'FO_ID'
          BeforeButtonClick = lerFO_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 'CODE;-1;100;1;0;'#1050#1086#1076'|SORTNAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
          FindFieldName = 'COD_BUD_P'
          FindFieldType = tfCharacterString
          OutFieldsArray = 'PART_ID'
          PutFieldsArray = 'FO_ID'
          ReferCaption = #1057#1087#1080#1089#1086#1082
          ReferWidth = 450
          TypeFindFieldName = 'COD_BUD_P'
          xReferId = 0
          IsHarbourRefer = True
        end
        object memNaznPlat: xbMemo
          Left = 136
          Top = 174
          Width = 470
          Height = 46
          ColorFlat = clBtnFace
          ParentColor = True
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          MaxLength = 210
          ParentFont = False
          TabOrder = 10
          OnKeyDown = memNaznPlat_KeyDown
          AutoDisplay = False
          BorderStyle = bsNone
          Color = clWhite
          DisabledColor = clInactiveBorder
          DisabledFontColor = 7368816
          DataField = 'COMMENT'
          DataSource = ADS
        end
        object btNaznPlat: xbButton
          Left = 608
          Top = 174
          Width = 21
          Height = 21
          Caption = '...'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          RoundedButton = True
          TabOrder = 11
          ButtonColor = clBlack
        end
        object leSpcCD: xbLabelEdit
          Left = 6
          Top = 223
          Width = 170
          Height = 21
          BorderColor = clWindowText
          Caption = #1057#1087#1077#1094'. '#1091#1082#1072#1079#1072#1085#1080#1103':        '#1082#1086#1076
          CaptionExtender = ceNone
          CaptionAlignment = taLeftJustify
          DataField = 'SPC_CD'
          DataSource = ADSDocCmp
          ButtonsColor = clBlack
          EnabledColor = clWhite
          TabOrder = 12
          LabelWidth = 130
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          OnEnter = leSpcCD_Enter
          OnExit = leSpcCD_Exit
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
      end
      object lcbStatus: xbLabelCombo
        Left = 254
        Top = 32
        Width = 150
        Height = 21
        ParentBackGround = True
        Caption = #1057#1090#1072#1090#1091#1089
        Enabled = False
        TabOrder = 6
        LabelWidth = 40
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Sorted = False
        EditColor = clWindow
        DisabledColor = clInactiveBorder
        DisabledFontColor = clBlack
        BorderColor = clWindowText
        AutoComplete = False
        Style = csDropDownList
        CharCase = ecNormal
        DropDownCount = 0
        ItemHeight = 0
        MaxLength = 0
        Items.Strings = (
          #1095#1077#1088#1085#1086#1074#1080#1082
          #1087#1077#1088#1077#1076#1072#1085
          #1086#1087#1083#1072#1095#1077#1085)
        ItemIndex = -1
        UseStandartHint = True
      end
      object leDocVid: xbLabelEdit
        Left = 8
        Top = 8
        Width = 236
        Height = 21
        BorderColor = clWindowText
        Caption = #1044#1086#1082#1091#1084#1077#1085#1090':     '#1074#1080#1076'    '
        CaptionAlignment = taLeftJustify
        DataField = 'DOC_CODE'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 1
        LabelWidth = 136
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leDocNum: xbLabelEdit
        Left = 412
        Top = 8
        Width = 70
        Height = 21
        BorderColor = clWindowText
        Caption = #1085#1086#1084#1077#1088'    '
        CaptionAlignment = taLeftJustify
        DataField = 'DOC_NUM'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 3
        LabelWidth = 0
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leDocDate: xbLabelEdit
        Left = 493
        Top = 8
        Width = 120
        Height = 21
        BorderColor = clWindowText
        Caption = #1076#1072#1090#1072'    '
        CaptionAlignment = taLeftJustify
        DataField = 'DOC_DATE'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 4
        LabelWidth = 30
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnExit = leDocDate_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object lePayDate: xbLabelEdit
        Left = 8
        Top = 32
        Width = 236
        Height = 21
        BorderColor = clWindowText
        Caption = #1044#1072#1090#1072' '#1074#1074#1086#1076#1072' '#1074' '#1076#1077#1081#1089#1090#1074#1080#1077
        CaptionAlignment = taLeftJustify
        DataField = 'PAY_DATE'
        DataSource = ADSDocCmp
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 5
        LabelWidth = 136
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnExit = lePayDate_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leOperDate: xbLabelEdit
        Left = 443
        Top = 32
        Width = 170
        Height = 21
        BorderColor = clWindowText
        Caption = #1044#1072#1090#1072' '#1086#1087#1077#1088#1072#1094#1080#1080
        CaptionAlignment = taLeftJustify
        DataField = 'OPER_DATE'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 7
        LabelWidth = 80
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnExit = leOperDate_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leDopNum: xbLabelEdit
        Left = 254
        Top = 8
        Width = 150
        Height = 21
        BorderColor = clWindowText
        Caption = #1085#1086#1084#1077#1088'    '
        CaptionAlignment = taLeftJustify
        DataField = 'DOP_NUM'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 2
        LabelWidth = 40
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        MaxLength = 13
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
    end
    object TabSheet2: TTabSheet
      Caption = #1041#1102#1076#1078#1077#1090#1085#1099#1077' '#1072#1089#1089#1080#1075#1085#1086#1074#1072#1085#1080#1103
      DesignSize = (
        656
        340)
      object bFrame2: xbFrame
        Left = 8
        Top = 35
        Width = 640
        Height = 299
        TabOrder = 0
        Anchors = [akLeft, akTop, akRight, akBottom]
        OnClick = bFrame2_Click
        object GridBudExpBA: xbGrid
          Left = 0
          Top = 0
          Width = 640
          Height = 252
          Align = alTop
          Anchors = [akLeft, akTop, akRight, akBottom]
          AutoFitColWidths = True
          DataSource = ADSBudExpBA
          Flat = True
          FooterColor = clWindow
          FooterFont.Charset = DEFAULT_CHARSET
          FooterFont.Color = clWindowText
          FooterFont.Height = -11
          FooterFont.Name = 'MS Sans Serif'
          FooterFont.Style = []
          Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgConfirmDelete]
          ReadOnly = True
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          UseMultiTitle = True
          VertScrollBar.VisibleMode = sbAlwaysShowEh
          OnDblClick = GridBudExpFin_DblClick
          OnKeyPress = GridBudExpFin_KeyPress
          IdGrid = '{2B08D3A5-5F32-4306-8558-C3D5686CF2CD}'
          Columns = <
            item
              EditButtons = <>
              FieldName = 'EXP_DIM'
              Footers = <>
              Title.Caption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
              Width = 180
            end
            item
              Alignment = taRightJustify
              EditButtons = <>
              FieldName = 'EX_YEAR'
              Footers = <>
              Title.Caption = #1043#1086#1076
              Width = 80
            end
            item
              Alignment = taRightJustify
              EditButtons = <>
              FieldName = 'SUM_BA'
              Footers = <>
              Title.Caption = #1057#1091#1084#1084#1072
              Width = 100
            end
            item
              Alignment = taRightJustify
              EditButtons = <>
              FieldName = 'PRIM'
              Footers = <>
              Title.Caption = #1055#1088#1080#1084#1077#1095#1072#1085#1080#1077
              Width = 245
            end>
        end
        object GridItogBudExpBA: xbGrid
          Left = 0
          Top = 249
          Width = 640
          Height = 50
          TabStop = False
          Align = alBottom
          AutoFitColWidths = True
          ColorActiveCursor = clWindow
          ColorActiveCursorFont = clWindowText
          DataSource = ADSItogBudExpBA
          Enabled = False
          FixedColor = clWindow
          Flat = True
          FooterColor = clWindow
          FooterFont.Charset = DEFAULT_CHARSET
          FooterFont.Color = clWindowText
          FooterFont.Height = -11
          FooterFont.Name = 'MS Sans Serif'
          FooterFont.Style = []
          FrozenCols = 4
          HorzScrollBar.Visible = False
          Options = [dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgConfirmDelete]
          OptionsEh = [dghFixed3D, dghClearSelection]
          ReadOnly = True
          RowOddColor = clWindow
          TabOrder = 1
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          UseMultiTitle = True
          VertScrollBar.VisibleMode = sbAlwaysShowEh
          IdGrid = '{C93E721F-29AA-4B7C-820E-75C32B59F2C0}'
          Columns = <
            item
              EditButtons = <>
              FieldName = 'EXP_DIM'
              Footers = <>
              Width = 180
            end
            item
              Alignment = taRightJustify
              EditButtons = <>
              FieldName = 'EX_YEAR'
              Footers = <>
              Width = 80
            end
            item
              Alignment = taRightJustify
              EditButtons = <>
              FieldName = 'SUM_BA'
              Footers = <>
              Width = 100
            end
            item
              Alignment = taRightJustify
              EditButtons = <>
              FieldName = 'PRIM'
              Footers = <>
              Width = 244
            end
            item
              AutoFitColWidth = False
              EditButtons = <>
              FieldName = 'EMPTY_COL'
              Footers = <>
              Width = 0
            end>
        end
      end
      object lePayDateBA: xbLabelEdit
        Left = 8
        Top = 8
        Width = 236
        Height = 21
        BorderColor = clWindowText
        Caption = #1044#1072#1090#1072' '#1074#1074#1086#1076#1072' '#1074' '#1076#1077#1081#1089#1090#1074#1080#1077
        CaptionAlignment = taLeftJustify
        DataField = 'PAY_DT_BA'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 1
        LabelWidth = 136
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
    end
    object TabSheet3: TTabSheet
      Caption = #1051#1041#1054
      DesignSize = (
        656
        340)
      object bFrame3: xbFrame
        Left = 8
        Top = 35
        Width = 640
        Height = 299
        TabOrder = 0
        Anchors = [akLeft, akTop, akRight, akBottom]
        OnClick = bFrame2_Click
        object GridBudExpLBO: xbGrid
          Left = 0
          Top = 0
          Width = 640
          Height = 252
          Align = alTop
          Anchors = [akLeft, akTop, akRight, akBottom]
          AutoFitColWidths = True
          DataSource = ADSBudExpLBO
          Flat = True
          FooterColor = clWindow
          FooterFont.Charset = DEFAULT_CHARSET
          FooterFont.Color = clWindowText
          FooterFont.Height = -11
          FooterFont.Name = 'MS Sans Serif'
          FooterFont.Style = []
          Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgConfirmDelete]
          ReadOnly = True
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          UseMultiTitle = True
          VertScrollBar.VisibleMode = sbAlwaysShowEh
          OnDblClick = GridBudExpFin_DblClick
          OnKeyPress = GridBudExpFin_KeyPress
          IdGrid = '{906FEBAB-79EE-4FFE-8181-A564110F01FD}'
          Columns = <
            item
              EditButtons = <>
              FieldName = 'EXP_DIM'
              Footers = <>
              Title.Caption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
              Width = 180
            end
            item
              Alignment = taRightJustify
              EditButtons = <>
              FieldName = 'EX_YEAR'
              Footers = <>
              Title.Caption = #1043#1086#1076
              Width = 80
            end
            item
              Alignment = taRightJustify
              EditButtons = <>
              FieldName = 'SUM_LBO'
              Footers = <>
              Title.Caption = #1057#1091#1084#1084#1072
              Width = 100
            end
            item
              Alignment = taRightJustify
              EditButtons = <>
              FieldName = 'PRIM'
              Footers = <>
              Title.Caption = #1055#1088#1080#1084#1077#1095#1072#1085#1080#1077
              Width = 245
            end>
        end
        object GridItogBudExpLBO: xbGrid
          Left = 0
          Top = 249
          Width = 640
          Height = 50
          TabStop = False
          Align = alBottom
          AutoFitColWidths = True
          ColorActiveCursor = clWindow
          ColorActiveCursorFont = clWindowText
          DataSource = ADSItogBudExpLBO
          Enabled = False
          FixedColor = clWindow
          Flat = True
          FooterColor = clWindow
          FooterFont.Charset = DEFAULT_CHARSET
          FooterFont.Color = clWindowText
          FooterFont.Height = -11
          FooterFont.Name = 'MS Sans Serif'
          FooterFont.Style = []
          FrozenCols = 4
          HorzScrollBar.Visible = False
          Options = [dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgConfirmDelete]
          OptionsEh = [dghFixed3D, dghClearSelection]
          ReadOnly = True
          RowOddColor = clWindow
          TabOrder = 1
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          UseMultiTitle = True
          VertScrollBar.VisibleMode = sbAlwaysShowEh
          IdGrid = '{C93E721F-29AA-4B7C-820E-75C32B59F2C0}'
          Columns = <
            item
              EditButtons = <>
              FieldName = 'EXP_DIM'
              Footers = <>
              Width = 180
            end
            item
              Alignment = taRightJustify
              EditButtons = <>
              FieldName = 'EX_YEAR'
              Footers = <>
              Width = 80
            end
            item
              Alignment = taRightJustify
              EditButtons = <>
              FieldName = 'SUM_LBO'
              Footers = <>
              Width = 100
            end
            item
              Alignment = taRightJustify
              EditButtons = <>
              FieldName = 'PRIM'
              Footers = <>
              Width = 244
            end
            item
              AutoFitColWidth = False
              EditButtons = <>
              FieldName = 'EMPTY_COL'
              Footers = <>
              Width = 0
            end>
        end
      end
      object lePayDateLBO: xbLabelEdit
        Left = 8
        Top = 8
        Width = 236
        Height = 21
        BorderColor = clWindowText
        Caption = #1044#1072#1090#1072' '#1074#1074#1086#1076#1072' '#1074' '#1076#1077#1081#1089#1090#1074#1080#1077
        CaptionAlignment = taLeftJustify
        DataField = 'PAY_DT_LBO'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 1
        LabelWidth = 136
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
    end
    object TabSheet4: TTabSheet
      Caption = #1054#1073#1098#1077#1084#1099' '#1092#1080#1085#1072#1085#1089#1080#1088#1086#1074#1072#1085#1080#1103
      DesignSize = (
        656
        340)
      object bFrame4: xbFrame
        Left = 8
        Top = 35
        Width = 640
        Height = 299
        TabOrder = 0
        Anchors = [akLeft, akTop, akRight, akBottom]
        OnClick = bFrame2_Click
        object GridBudExpFin: xbGrid
          Left = 0
          Top = 0
          Width = 640
          Height = 285
          Align = alTop
          Anchors = [akLeft, akTop, akRight, akBottom]
          AutoFitColWidths = True
          DataSource = ADSBudExpFin
          Flat = True
          FooterColor = clWindow
          FooterFont.Charset = DEFAULT_CHARSET
          FooterFont.Color = clWindowText
          FooterFont.Height = -11
          FooterFont.Name = 'MS Sans Serif'
          FooterFont.Style = []
          Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgConfirmDelete]
          ReadOnly = True
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          UseMultiTitle = True
          VertScrollBar.VisibleMode = sbAlwaysShowEh
          OnDblClick = GridBudExpFin_DblClick
          OnKeyPress = GridBudExpFin_KeyPress
          IdGrid = '{B62215CF-D34E-4C53-9BB5-85CF51A69A52}'
          Columns = <
            item
              EditButtons = <>
              FieldName = 'EXP_DIM'
              Footers = <>
              Title.Caption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
              Width = 180
            end
            item
              Alignment = taRightJustify
              EditButtons = <>
              FieldName = 'EX_YEAR'
              Footers = <>
              Title.Caption = #1043#1086#1076
              Width = 80
            end
            item
              Alignment = taRightJustify
              EditButtons = <>
              FieldName = 'SUM_FIN'
              Footers = <>
              Title.Caption = #1057#1091#1084#1084#1072
              Width = 100
            end
            item
              Alignment = taRightJustify
              EditButtons = <>
              FieldName = 'PRIM'
              Footers = <>
              Title.Caption = #1055#1088#1080#1084#1077#1095#1072#1085#1080#1077
              Width = 245
            end>
        end
        object GridItogBudExpFin: xbGrid
          Left = 0
          Top = 282
          Width = 640
          Height = 17
          TabStop = False
          Align = alBottom
          AutoFitColWidths = True
          ColorActiveCursor = clWindow
          ColorActiveCursorFont = clWindowText
          DataSource = ADSItogBudExpFin
          Enabled = False
          FixedColor = clWindow
          Flat = True
          FooterColor = clWindow
          FooterFont.Charset = DEFAULT_CHARSET
          FooterFont.Color = clWindowText
          FooterFont.Height = -11
          FooterFont.Name = 'MS Sans Serif'
          FooterFont.Style = []
          FrozenCols = 4
          HorzScrollBar.Visible = False
          Options = [dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgConfirmDelete]
          OptionsEh = [dghFixed3D, dghClearSelection]
          ReadOnly = True
          RowOddColor = clWindow
          TabOrder = 1
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          UseMultiTitle = True
          VertScrollBar.VisibleMode = sbAlwaysShowEh
          IdGrid = '{C93E721F-29AA-4B7C-820E-75C32B59F2C0}'
          Columns = <
            item
              EditButtons = <>
              FieldName = 'EXP_DIM'
              Footers = <>
              Width = 180
            end
            item
              Alignment = taRightJustify
              EditButtons = <>
              FieldName = 'EX_YEAR'
              Footers = <>
              Width = 80
            end
            item
              Alignment = taRightJustify
              EditButtons = <>
              FieldName = 'SUM_FIN'
              Footers = <>
              Width = 100
            end
            item
              Alignment = taRightJustify
              EditButtons = <>
              FieldName = 'PRIM'
              Footers = <>
              Width = 244
            end
            item
              AutoFitColWidth = False
              EditButtons = <>
              FieldName = 'EMPTY_COL'
              Footers = <>
              Width = 0
            end>
        end
      end
      object lePayDateFin: xbLabelEdit
        Left = 8
        Top = 8
        Width = 236
        Height = 21
        BorderColor = clWindowText
        Caption = #1044#1072#1090#1072' '#1074#1074#1086#1076#1072' '#1074' '#1076#1077#1081#1089#1090#1074#1080#1077
        CaptionAlignment = taLeftJustify
        DataField = 'PAY_DT_FIN'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 1
        LabelWidth = 136
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
    end
    object TabSheet5: TTabSheet
      Caption = #1055#1088#1086#1074#1086#1076#1082#1080
      DesignSize = (
        656
        340)
      object txtopert: xbLabel
        Left = 261
        Top = 9
        Width = 302
        Height = 17
        Caption = 'txtopert'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
        Layout = tlCenter
        DataField = 'TYPEOP_NAME'
        DataSource = ADS
      end
      object lblDt: xbLabel
        Left = 6
        Top = 310
        Width = 644
        Height = 16
        Anchors = [akLeft, akRight, akBottom]
        Caption = '1'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
      end
      object lblKt: xbLabel
        Left = 6
        Top = 324
        Width = 644
        Height = 16
        Anchors = [akLeft, akRight, akBottom]
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
      end
      object rfOPerT: xbLabelEditRefer
        Left = 6
        Top = 6
        Width = 250
        Height = 21
        BorderColor = clWindowText
        Caption = #1058#1080#1087#1086#1074#1072#1103' '#1086#1087#1077#1088#1072#1094#1080#1103
        CaptionAlignment = taLeftJustify
        DataField = 'TYPEOP_CODE'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 0
        LabelWidth = 124
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'TYPE_OP'
        OnClearButtonClick = rfOPerT_ClearButtonClick
        VisibleButton = True
        UseStandartHint = True
        FindFieldName = 'code'
        FindFieldType = tfCharacterString
        OutFieldsArray = 'REC_ID'
        PutFieldsArray = 'TYPE_OP'
        ReferCaption = #1057#1087#1080#1089#1086#1082' '#1090#1080#1087#1086#1074#1099#1093' '#1086#1087#1077#1088#1072#1094#1080#1081
        TypeFindFieldName = 'code'
        xReferId = 0
        IsHarbourRefer = False
      end
      object bGrProv: xbGrid
        Left = 6
        Top = 31
        Width = 644
        Height = 277
        Anchors = [akLeft, akTop, akRight, akBottom]
        AutoFitColWidths = True
        DataSource = adsMain
        Flat = True
        FooterColor = clWindow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -11
        FooterFont.Name = 'MS Sans Serif'
        FooterFont.Style = []
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
        ReadOnly = True
        TabOrder = 1
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        UseMultiTitle = True
        VTitleMargin = 4
        OnDblClick = bGrid2_DblClick
        OnKeyPress = bGrid2_KeyPress
        IdGrid = '{A38D282F-9736-4FC3-B9B9-A83DF297FD74}'
        Columns = <
          item
            Checkboxes = True
            EditButtons = <>
            FieldName = 'X_ISMARK_'
            Footers = <>
            Title.Caption = ' '
            Width = 22
          end
          item
            EditButtons = <>
            FieldName = 'DT_SCHET'
            Footers = <>
            Title.Caption = #1057#1095#1077#1090'|'#1044#1077#1073#1077#1090
            Width = 80
          end
          item
            EditButtons = <>
            FieldName = 'KT_SCHET'
            Footers = <>
            Title.Caption = #1057#1095#1077#1090'|'#1050#1088#1077#1076#1080#1090
            Width = 80
          end
          item
            EditButtons = <>
            FieldName = 'NAMEOPER'
            Footers = <>
            Title.Caption = #1057#1086#1076#1077#1088#1078#1072#1085#1080#1077
            Width = 323
          end
          item
            EditButtons = <>
            FieldName = 'SUMMA'
            Footers = <>
            Title.Caption = #1057#1091#1084#1084#1072
            Width = 120
          end>
      end
    end
  end
  object btnOK: xbButton
    Left = 508
    Top = 379
    Width = 75
    Height = 21
    Hint = #1057#1086#1093#1088#1072#1085#1077#1085#1080#1077' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (F10)'
    Caption = #1054#1050
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 4
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btnCANCEL: xbButton
    Left = 591
    Top = 379
    Width = 75
    Height = 21
    Hint = #1042#1099#1093#1086#1076' '#1080#1079' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (Esc)'
    Caption = #1054#1090#1084#1077#1085#1072
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 5
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object pOperation: xbPopupButton
    Left = 425
    Top = 379
    Width = 75
    Height = 21
    Caption = #1054#1087#1077#1088#1072#1094#1080#1080
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = MenuOperation
    RoundedButton = True
    TabOrder = 3
    OnClick = pOperation_Click
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object bDocDim: xbButton
    Left = 234
    Top = 379
    Width = 75
    Height = 21
    Hint = #1042#1074#1086#1076' Ctrl-D'
    Caption = #1048#1079#1084#1077#1088#1077#1085#1080#1103
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 1
    OnClick = bPlDoc_Click
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object pbDopData: xbPopupButton
    Left = 317
    Top = 379
    Width = 100
    Height = 21
    Caption = #1044#1086#1087'. '#1076#1072#1085#1085#1099#1077
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = MenuDopData
    RoundedButton = True
    TabOrder = 2
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <>
    OEMTranslate = False
    Left = 109
    Top = 3
  end
  object ADS: xbADSDataSource
    DataSet = DS
    Left = 145
    Top = 3
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_FIN_DOC'
    Active = False
    Left = 72
    Top = 3
  end
  object BOPolAcnt1: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPartnerAccnt'
    Active = False
    Left = 606
    Top = 253
  end
  object DSPolAcnt1: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOPolAcnt1
    FieldDefs = <>
    OEMTranslate = False
    IndexName = 'TAG_RSCH'
    Left = 606
    Top = 306
  end
  object BODocCmp: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_DOC_CMP'
    Active = False
    Left = 602
    Top = 92
  end
  object DSDocCmp: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BODocCmp
    FieldDefs = <>
    OEMTranslate = False
    Left = 604
    Top = 138
  end
  object ADSDocCmp: xbADSDataSource
    DataSet = DSDocCmp
    Left = 607
    Top = 194
  end
  object BOMvTp: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_MOVE_TP'
    Active = False
    Left = 362
    Top = 87
  end
  object DSMvTp: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOMvTp
    FieldDefs = <>
    OEMTranslate = False
    Left = 415
    Top = 89
  end
  object BOReasons: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_REASONS'
    Active = False
    Left = 275
    Top = 1
  end
  object DSReasons: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOReasons
    FieldDefs = <>
    OEMTranslate = False
    Left = 334
    Top = 1
  end
  object BOPolAcnt2: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPartnerAccnt'
    Active = False
    Left = 473
    Top = 139
  end
  object DSPolAcnt2: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOPolAcnt2
    FieldDefs = <>
    OEMTranslate = False
    IndexName = 'TAG_RSCH'
    AfterRefresh = DS_AfterRefresh
    Left = 537
    Top = 139
  end
  object BOBudExpBA: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_BUD_EXP'
    Active = False
    Left = 271
    Top = 201
  end
  object DSBudExpBA: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOBudExpBA
    FieldDefs = <>
    ReadOnly = True
    OEMTranslate = False
    Left = 350
    Top = 202
  end
  object ADSBudExpBA: xbADSDataSource
    DataSet = DSBudExpBA
    Left = 430
    Top = 203
  end
  object DSItogBudExpBA: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    ReadOnly = True
    OEMTranslate = False
    Left = 55
    Top = 126
  end
  object ADSItogBudExpBA: xbADSDataSource
    DataSet = DSItogBudExpBA
    Left = 146
    Top = 125
  end
  object BOPPTp: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_PP_TP'
    Active = False
    Left = 532
    Top = 2
  end
  object DSPPTp: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOPPTp
    FieldDefs = <>
    OEMTranslate = False
    Left = 585
    Top = 2
  end
  object BOBudLev: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_BUD_LEV'
    Active = False
    Left = 533
    Top = 48
  end
  object DSBudLev: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOBudLev
    FieldDefs = <>
    OEMTranslate = False
    Left = 586
    Top = 48
  end
  object BOBudExpLBO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_BUD_EXP'
    Active = False
    Left = 274
    Top = 248
  end
  object DSBudExpLBO: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOBudExpLBO
    FieldDefs = <>
    ReadOnly = True
    OEMTranslate = False
    Left = 353
    Top = 249
  end
  object ADSBudExpLBO: xbADSDataSource
    DataSet = DSBudExpLBO
    Left = 433
    Top = 250
  end
  object BOBudExpFin: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_BUD_EXP'
    Active = False
    Left = 277
    Top = 300
  end
  object DSBudExpFin: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOBudExpFin
    FieldDefs = <>
    ReadOnly = True
    OEMTranslate = False
    Left = 356
    Top = 301
  end
  object ADSBudExpFin: xbADSDataSource
    DataSet = DSBudExpFin
    Left = 436
    Top = 302
  end
  object DSItogBudExpLBO: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    ReadOnly = True
    OEMTranslate = False
    Left = 57
    Top = 183
  end
  object ADSItogBudExpLBO: xbADSDataSource
    DataSet = DSItogBudExpLBO
    Left = 148
    Top = 182
  end
  object DSItogBudExpFin: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    ReadOnly = True
    OEMTranslate = False
    Left = 60
    Top = 238
  end
  object ADSItogBudExpFin: xbADSDataSource
    DataSet = DSItogBudExpFin
    Left = 151
    Top = 237
  end
  object MenuOperation: xbPopupMenu
    Left = 282
    Top = 146
    object pStatus: TMenuItem
      Caption = #1057#1090#1072#1090#1091#1089'                                             Alt-S'
      object pStatus1: TMenuItem
        Caption = #1063#1077#1088#1085#1086#1074#1080#1082
      end
      object pStatus2: TMenuItem
        Caption = #1055#1077#1088#1077#1076#1072#1085
      end
      object pStatus3: TMenuItem
        Caption = #1054#1087#1083#1072#1095#1077#1085
      end
    end
    object miCopyProv: TMenuItem
      Caption = #1050#1086#1087#1080#1088#1086#1074#1072#1090#1100' '#1087#1088#1086#1074#1086#1076#1082#1091'                       F5'
      OnClick = miCopyProv_Click
    end
    object miCopyBudExp: TMenuItem
      Caption = #1050#1086#1087#1080#1088#1086#1074#1072#1090#1100' '#1089#1090#1088#1086#1082#1091' '#1088#1072#1089#1096#1080#1092#1088#1086#1074#1082#1080'   F5'
      OnClick = miCopyBudExp_Click
    end
    object miCopyLBOToFin: TMenuItem
      Caption = #1050#1086#1087#1080#1088#1086#1074#1072#1085#1080#1077' '#1089#1090#1088#1086#1082' '#1051#1041#1054'           Ctrl+F5'
      OnClick = miCopyLBOToFin_Click
    end
    object miNaznPlat: TMenuItem
      Caption = #1055#1077#1088#1077#1092#1086#1088#1084#1080#1088#1086#1074#1072#1090#1100' '#1085#1072#1079#1085#1072#1095#1077#1085#1080#1077'  Ctrl+P'
      OnClick = miNaznPlat_Click
    end
  end
  object adsMain: xbADSDataSource
    DataSet = DSMAIN
    Left = 544
    Top = 198
  end
  object DSMAIN: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    xbsClassName = 'MAIN'
    BObject = BO
    FieldDefs = <
      item
        Name = 'NNOPER'
        DataType = ftFloat
      end
      item
        Name = 'TASK'
        DataType = ftString
        Size = 2
      end
      item
        Name = 'TaskName'
        DataType = ftString
        Size = 40
      end
      item
        Name = 'JrnName'
        DataType = ftString
        Size = 40
      end
      item
        Name = 'JrnCode'
        DataType = ftString
        Size = 4
      end
      item
        Name = 'DATAOPER'
        DataType = ftDate
      end
      item
        Name = 'NNDOC'
        DataType = ftString
        Size = 6
      end
      item
        Name = 'DT_SCHET'
        DataType = ftString
        Size = 16
      end
      item
        Name = 'DTName'
        DataType = ftString
        Size = 80
      end
      item
        Name = 'DT_CODE'
        DataType = ftString
        Size = 60
      end
      item
        Name = 'KT_SCHET'
        DataType = ftString
        Size = 16
      end
      item
        Name = 'KTName'
        DataType = ftString
        Size = 80
      end
      item
        Name = 'KT_CODE'
        DataType = ftString
        Size = 60
      end
      item
        Name = 'SUMMA'
        DataType = ftFloat
      end
      item
        Name = 'NAMEOPER'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'VALUTA'
        DataType = ftString
        Size = 3
      end
      item
        Name = 'VSUMMA'
        DataType = ftFloat
      end
      item
        Name = 'VCURS'
        DataType = ftFloat
      end
      item
        Name = 'SCLAD'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'STATUS'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'USER_DATE'
        DataType = ftDate
      end
      item
        Name = 'Z_STATUS'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'NNOPER_D'
        DataType = ftFloat
      end
      item
        Name = 'NNOPER_K'
        DataType = ftFloat
      end
      item
        Name = 'N_STATUS'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'CRYPT_CODE'
        DataType = ftString
        Size = 11
      end
      item
        Name = 'IDMAIN'
        DataType = ftFloat
      end
      item
        Name = 'JRN_ID'
        DataType = ftFloat
      end
      item
        Name = 'DOC_ID'
        DataType = ftFloat
      end
      item
        Name = 'VAL_ID'
        DataType = ftFloat
      end
      item
        Name = 'PSCHET'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'ENTRY_CTG'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'GL_DIM1'
        DataType = ftFloat
      end
      item
        Name = 'GL_DIM2'
        DataType = ftFloat
      end
      item
        Name = 'mainValuta'
        DataType = ftString
        Size = 3
      end
      item
        Name = 'PriznakZab'
        DataType = ftBoolean
      end>
    ReadOnly = True
    OEMTranslate = False
    Left = 548
    Top = 254
  end
  object StatusMenu: xbPopupMenu
    Left = 377
    Top = 146
    object MenuStatus1: TMenuItem
      Caption = #1063#1077#1088#1085#1086#1074#1080#1082
    end
    object MenuStatus2: TMenuItem
      Caption = #1055#1077#1088#1077#1076#1072#1085
    end
    object MenuStatus3: TMenuItem
      Caption = #1054#1087#1083#1072#1095#1077#1085
    end
  end
  object RFNaznPlat: xbReferCaller
    ColumnsTune = 'TEXT;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
    ListDataSet = DSReasons
    ReferCaption = #1054#1089#1085#1086#1074#1072#1085#1080#1103' '#1087#1083#1072#1090#1077#1078#1072
    ReferWidth = 450
    OnSelect = RFNaznPlat_Select
    Left = 57
    Top = 75
  end
  object MenuDopData: xbPopupMenu
    Left = 512
    Top = 324
    object MenuDopData1: TMenuItem
      Caption = #1053#1072#1083#1086#1075#1086#1074#1099#1077' '#1082#1086#1076#1099'     Ctrl+B'
      OnClick = MenuDopData1_Click
    end
    object miDopRecv: TMenuItem
      Caption = #1044#1086#1087' '#1088#1077#1082#1074#1080#1079#1080#1090#1099'        Alt+F5'
      OnClick = miDopRecv_Click
    end
    object miPodpis: TMenuItem
      Caption = #1055#1086#1076#1087#1080#1089#1080'           '
      OnClick = miPodpis_Click
    end
  end
end
frmPayRRBudExp.prg                                                    6816object frmPayRRBudExp: TfrmPayRRBudExp
  Left = 25
  Top = 25
  Width = 400
  Height = 184
  ActiveControl = larAnal
  Anchors = []
  Caption = #1056#1072#1089#1093#1086#1076#1099' '#1073#1102#1076#1078#1077#1090#1072
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  WindowState = wsNormal
  OnActivate = Form_Activate
  OnClose = Form_Close
  OnCloseQuery = Form_CloseQuery
  OnCreate = Form_Create
  OnShow = Form_Show
  DesignSize = (
    392
    150)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 8
    Top = 8
    Width = 376
    Height = 106
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    object TabSheet1: TTabSheet
      Caption = #1054#1073#1097#1077#1077
      object larAnal: xbLabelEditAnalitRefer
        Left = 8
        Top = 8
        Width = 360
        Height = 21
        BorderColor = clWindowText
        Caption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
        CaptionAlignment = taLeftJustify
        DataField = 'EXP_DIM'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 0
        LabelWidth = 80
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'EXP_DIM'
        EnabledEdit = False
        VisibleButton = True
        UseStandartHint = True
        FindFieldType = tfCharacterString
        ReferCaption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
        TableName = 'PAY\DIM_TUNE'
        xReferId = 0
        IsHarbourRefer = True
        MakeChecking = True
      end
      object lecSum: xbLabelEditCalc
        Left = 8
        Top = 32
        Width = 170
        Height = 21
        BorderColor = clWindowText
        Caption = #1057#1091#1084#1084#1072
        CaptionAlignment = taLeftJustify
        DataField = 'SUM_BA'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 1
        LabelWidth = 80
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        VisibleButton = False
      end
      object lePrim: xbLabelEdit
        Left = 8
        Top = 56
        Width = 360
        Height = 21
        BorderColor = clWindowText
        Caption = #1055#1088#1080#1084#1077#1095#1072#1085#1080#1077
        CaptionAlignment = taLeftJustify
        DataField = 'PRIM'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 3
        LabelWidth = 80
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leYear: xbLabelEdit
        Left = 248
        Top = 32
        Width = 117
        Height = 21
        BorderColor = clWindowText
        Caption = #1043#1086#1076
        CaptionAlignment = taLeftJustify
        DataField = 'EX_YEAR'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        EditMask = '0000'
        DisplayFormat = '0000'
        TabOrder = 2
        LabelWidth = 40
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        MaxLength = 4
        Text = '    '
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
    end
  end
  object btnOK: xbButton
    Left = 225
    Top = 122
    Width = 75
    Height = 21
    Hint = #1057#1086#1093#1088#1072#1085#1077#1085#1080#1077' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (F10)'
    Caption = #1054#1050
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 2
    ModalResult = 1
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btnCANCEL: xbButton
    Left = 312
    Top = 122
    Width = 75
    Height = 21
    Hint = #1042#1099#1093#1086#1076' '#1080#1079' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (Esc)'
    Caption = #1054#1090#1084#1077#1085#1072
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 3
    ModalResult = 2
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btDopRecv: xbButton
    Left = 113
    Top = 122
    Width = 100
    Height = 21
    Hint = #1044#1086#1087#1086#1083#1085#1080#1090#1077#1083#1100#1085#1099#1077' '#1088#1077#1082#1074#1080#1079#1080#1090#1099' (Alt+F5)'
    Caption = #1044#1086#1087'. '#1088#1077#1082#1074#1080#1079#1080#1090#1099
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 1
    OnClick = btDopRecv_Click
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_BUD_EXP'
    Active = False
    Left = 261
    Top = 8
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <>
    OEMTranslate = False
    AfterEdit = DS_AfterEdit
    Left = 336
    Top = 8
  end
  object ADS: xbADSDataSource
    DataSet = DS
    Left = 299
    Top = 9
  end
  object DSDIMTUNE: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'PAY\dim_tune'
    OEMTranslate = False
    IndexName = 'TAG_CODE'
    Left = 116
    Top = 8
  end
end
frmPayUvedLim.prg                                                    28193object frmPayUvedLim: TfrmPayUvedLim
  Left = 25
  Top = 25
  Width = 680
  Height = 505
  ActiveControl = leDocNum
  Anchors = []
  Caption = #1059#1074#1077#1076#1086#1084#1083#1077#1085#1080#1077' '#1086' '#1083#1080#1084#1080#1090#1072#1093
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  WindowState = wsNormal
  OnCloseQuery = Form_CloseQuery
  OnCreate = Form_Create
  DesignSize = (
    672
    471)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 8
    Top = 8
    Width = 658
    Height = 432
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    object TabSheet1: TTabSheet
      Caption = #1054#1073#1097#1077#1077
      DesignSize = (
        656
        410)
      object lcbPTp: xbLabelCombo
        Left = 8
        Top = 8
        Width = 220
        Height = 21
        ParentBackGround = True
        Caption = #1042#1080#1076' '#1087#1083#1072#1090#1077#1078#1072
        TabOrder = 0
        LabelWidth = 120
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Sorted = False
        EditColor = clWindow
        DisabledColor = clInactiveBorder
        DisabledFontColor = clBlack
        BorderColor = clWindowText
        AutoComplete = False
        Style = csDropDownList
        CharCase = ecNormal
        DropDownCount = 0
        ItemHeight = 0
        MaxLength = 0
        Items.Strings = (
          #1087#1086#1095#1090#1086#1081
          #1090#1077#1083#1077#1075#1088#1072#1092#1086#1084
          #1101#1083#1077#1082#1090#1088#1086#1085#1085#1086)
        ItemIndex = -1
        Visible = False
        UseStandartHint = True
        OnSelect = lcbPTp_Select
      end
      object lerMvTpCode: xbLabelEditRefer
        Left = 8
        Top = 56
        Width = 376
        Height = 21
        BorderColor = clWindowText
        Caption = #1042#1080#1076' '#1076#1074#1080#1078#1077#1085#1080#1103
        CaptionAlignment = taLeftJustify
        DataField = 'MV_NAME'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 6
        LabelWidth = 136
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnChange = lerMvTpCode_Change
        OnExit = lerMvTpCode_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'MV_CODE'
        BeforeButtonClick = lerMvTpCode_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'MV_CODE;-1;50;1;-1;'#1050#1086#1076'|MV_NAME;-1;200;1;-1;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldName = 'MV_NAME'
        FindFieldType = tfCharacterString
        ListDataSet = DSMvTp
        OutFieldsArray = 'MV_CODE;PRT_TP'
        PutFieldsArray = 'MV_CODE;PRT_TP'
        ReferCaption = #1042#1080#1076#1099' '#1076#1074#1080#1078#1077#1085#1080#1103' '#1076#1077#1085#1077#1078#1085#1099#1093' '#1089#1088#1077#1076#1089#1090#1074
        TypeFindFieldName = 'MV_NAME'
        xReferId = 0
        IsHarbourRefer = True
        OnSelect = lerMvTpCode_Select
      end
      object bFrame1: xbFrame
        Left = 8
        Top = 84
        Width = 640
        Height = 152
        TabOrder = 7
        Anchors = [akLeft, akTop, akRight]
        DesignSize = (
          640
          152)
        object lbPartName: xbLabel
          Left = 296
          Top = 9
          Width = 335
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPlatName'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'FINOBJ_PART_ORGNAME'
          DataSource = ADS
        end
        object lbPolName: xbLabel
          Left = 296
          Top = 57
          Width = 335
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPolName'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'PART_ORGNAME'
          DataSource = ADS
        end
        object lbGlavName: xbLabel
          Left = 296
          Top = 33
          Width = 335
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbGlavName'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'PART_ORGNAME'
          DataSource = ADSDocCmp
        end
        object lbPolBankName1: xbLabel
          Left = 416
          Top = 81
          Width = 220
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPolBankName1'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'PRTACNT_BANK_NAME'
          DataSource = ADSDocCmp
        end
        object lePlatCode: xbLabelEdit
          Left = 6
          Top = 6
          Width = 280
          Height = 21
          BorderColor = clWindowText
          Caption = #1056#1072#1089#1087#1086#1088#1103#1076#1080#1090#1077#1083#1100
          CaptionAlignment = taLeftJustify
          DataField = 'FINOBJ_COD_BUD_P'
          DataSource = ADS
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 0
          LabelWidth = 130
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object lerGlavCode: xbLabelEditRefer
          Left = 6
          Top = 30
          Width = 280
          Height = 21
          BorderColor = clWindowText
          Caption = #1043#1083#1072#1074#1085#1099#1081' '#1088#1072#1089#1087#1086#1088#1103#1076#1080#1090#1077#1083#1100
          CaptionAlignment = taLeftJustify
          DataField = 'PART_COD_BUD_P'
          DataSource = ADSDocCmp
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 1
          LabelWidth = 130
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          OnEnter = lerGlavCode_Enter
          OnExit = lerGlavCode_Exit
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'R_ID'
          BeforeButtonClick = lerGlavCode_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 'CODE;-1;100;1;0;'#1050#1086#1076'|SORTNAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
          FindFieldName = 'COD_BUD_P'
          FindFieldType = tfCharacterString
          OutFieldsArray = 'PART_ID'
          PutFieldsArray = 'R_ID'
          ReferCaption = #1057#1087#1080#1089#1086#1082
          ReferWidth = 450
          TypeFindFieldName = 'COD_BUD_P'
          xReferId = 0
          IsHarbourRefer = True
        end
        object lerPolCode: xbLabelEditRefer
          Left = 6
          Top = 54
          Width = 280
          Height = 21
          BorderColor = clWindowText
          Caption = #1055#1088#1077#1076#1087#1088#1080#1103#1090#1080#1077
          CaptionAlignment = taLeftJustify
          DataField = 'PART_COD_BUD_P'
          DataSource = ADS
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 2
          LabelWidth = 130
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          OnEnter = lerPolCode_Enter
          OnExit = lerPolCode_Exit
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'PRT_ID'
          BeforeButtonClick = lerPolCode_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 'CODE;-1;100;1;0;'#1050#1086#1076'|SORTNAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
          FindFieldName = 'COD_BUD_P'
          FindFieldType = tfCharacterString
          OutFieldsArray = 'PART_ID'
          PutFieldsArray = 'PRT_ID'
          ReferCaption = #1057#1087#1080#1089#1086#1082
          ReferWidth = 450
          TypeFindFieldName = 'COD_BUD_P'
          xReferId = 0
          IsHarbourRefer = True
          OnSelect = lerPolCode_Select
        end
        object lerPolAcnt1: xbLabelEditRefer
          Left = 6
          Top = 78
          Width = 280
          Height = 21
          BorderColor = clWindowText
          Caption = #1057#1095#1077#1090
          CaptionAlignment = taLeftJustify
          DataField = 'PRTACNT_NUM'
          DataSource = ADSDocCmp
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 3
          LabelWidth = 130
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'P_ACNT_ID'
          BeforeButtonClick = lerPolAcnt1_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 
            'Accnt;-1;130;1;-1;'#1057#1095#1077#1090'|GetBankName;-1;200;1;-1;'#1041#1072#1085#1082'|Comment;-1;1' +
            '70;1;-1;'#1050#1086#1084#1084#1077#1085#1090#1072#1088#1080#1081
          FindFieldName = 'ACCNT'
          FindFieldType = tfCharacterString
          ListDataSet = DSPolAcnt1
          OutFieldsArray = 'REC_ID'
          PutFieldsArray = 'P_ACNT_ID'
          ReferCaption = #1057#1095#1077#1090' '#1074' '#1073#1072#1085#1082#1077
          TypeFindFieldName = 'ACCNT'
          xReferId = 0
          IsHarbourRefer = True
          OnSelect = lerPolAcnt1_Select
        end
        object lerNaznPlat: xbLabelEditRefer
          Left = 6
          Top = 102
          Width = 400
          Height = 21
          BorderColor = clWindowText
          Caption = #1055#1088#1080#1083#1086#1078#1077#1085#1080#1077
          CaptionAlignment = taLeftJustify
          DataField = 'COMMENT'
          DataSource = ADS
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 4
          LabelWidth = 130
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          OnKeyDown = lerNaznPlat_KeyDown
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'COMMENT'
          BeforeButtonClick = lerNaznPlat_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 'TEXT;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
          FindFieldType = tfCharacterString
          ListDataSet = DSReasons
          OutFieldsArray = 'TEXT'
          PutFieldsArray = 'COMMENT'
          ReferCaption = #1054#1089#1085#1086#1074#1072#1085#1080#1103' '#1087#1083#1072#1090#1077#1078#1072
          ReferWidth = 450
          xReferId = 0
          IsHarbourRefer = True
        end
        object leSpc: xbLabelEdit
          Left = 6
          Top = 126
          Width = 400
          Height = 21
          BorderColor = clWindowText
          Caption = #1057#1087#1077#1094'. '#1091#1082#1072#1079#1072#1085#1080#1103
          CaptionAlignment = taLeftJustify
          DataField = 'SPC'
          DataSource = ADSDocCmp
          ButtonsColor = clBlack
          EnabledColor = clWhite
          TabOrder = 5
          LabelWidth = 130
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object lePolBankCode1: xbLabelEdit
          Left = 296
          Top = 78
          Width = 110
          Height = 21
          BorderColor = clWindowText
          Caption = #1074' '#1054#1060#1050
          CaptionAlignment = taLeftJustify
          DataField = 'PRTACNT_BANK_CODE'
          DataSource = ADSDocCmp
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 6
          LabelWidth = 40
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
      end
      object lcbStatus: xbLabelCombo
        Left = 254
        Top = 32
        Width = 130
        Height = 21
        ParentBackGround = True
        Caption = #1057#1090#1072#1090#1091#1089
        Enabled = False
        TabOrder = 5
        LabelWidth = 40
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Sorted = False
        EditColor = clWindow
        DisabledColor = clInactiveBorder
        DisabledFontColor = clBlack
        BorderColor = clWindowText
        AutoComplete = False
        Style = csDropDownList
        CharCase = ecNormal
        DropDownCount = 0
        ItemHeight = 0
        MaxLength = 0
        Items.Strings = (
          #1095#1077#1088#1085#1086#1074#1080#1082
          #1086#1087#1083#1072#1095#1077#1085
          #1087#1077#1088#1077#1076#1072#1085)
        ItemIndex = -1
        UseStandartHint = True
      end
      object leDocVid: xbLabelEdit
        Left = 8
        Top = 8
        Width = 236
        Height = 21
        BorderColor = clWindowText
        Caption = #1044#1086#1082#1091#1084#1077#1085#1090':     '#1074#1080#1076'    '
        CaptionAlignment = taLeftJustify
        DataField = 'DOC_CODE'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 1
        LabelWidth = 136
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leDocNum: xbLabelEdit
        Left = 254
        Top = 8
        Width = 130
        Height = 21
        BorderColor = clWindowText
        Caption = #1085#1086#1084#1077#1088'    '
        CaptionAlignment = taLeftJustify
        DataField = 'DOC_NUM'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 2
        LabelWidth = 40
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leDocDate: xbLabelEdit
        Left = 394
        Top = 8
        Width = 120
        Height = 21
        BorderColor = clWindowText
        Caption = #1076#1072#1090#1072'    '
        CaptionAlignment = taLeftJustify
        DataField = 'DOC_DATE'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 3
        LabelWidth = 30
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object lePayDate: xbLabelEdit
        Left = 8
        Top = 32
        Width = 236
        Height = 21
        BorderColor = clWindowText
        Caption = #1044#1072#1090#1072' '#1074#1074#1086#1076#1072' '#1074' '#1076#1077#1081#1089#1090#1074#1080#1077
        CaptionAlignment = taLeftJustify
        DataField = 'PAY_DATE'
        DataSource = ADSDocCmp
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 4
        LabelWidth = 136
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object bFrame2: xbFrame
        Left = 8
        Top = 245
        Width = 640
        Height = 159
        TabOrder = 8
        Anchors = [akLeft, akTop, akRight, akBottom]
        OnClick = bFrame2_Click
        DesignSize = (
          640
          159)
        object GridBudExp: xbGrid
          Left = 0
          Top = 0
          Width = 640
          Height = 142
          Align = alTop
          Anchors = [akLeft, akTop, akRight, akBottom]
          AutoFitColWidths = True
          DataSource = ADSBudExp
          Flat = True
          FooterColor = clWindow
          FooterFont.Charset = DEFAULT_CHARSET
          FooterFont.Color = clWindowText
          FooterFont.Height = -11
          FooterFont.Name = 'MS Sans Serif'
          FooterFont.Style = []
          Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgConfirmDelete]
          ReadOnly = True
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          UseMultiTitle = True
          VertScrollBar.VisibleMode = sbAlwaysShowEh
          OnDblClick = GridBudExp_DblClick
          OnKeyPress = GridBudExp_KeyPress
          IdGrid = '{0ADB6FEC-04A1-4595-B470-2EB05CA1C2BB}'
          Columns = <
            item
              EditButtons = <>
              FieldName = 'EXP_DIM'
              Footers = <>
              Title.Caption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
              Width = 305
            end
            item
              Alignment = taRightJustify
              EditButtons = <>
              FieldName = 'SUM_LBO_Y'
              Footers = <>
              Title.Caption = #1051#1080#1084#1080#1090#1099'|'#1089' '#1085#1072#1095#1072#1083#1072' '#1075#1086#1076#1072
              Width = 150
            end
            item
              Alignment = taRightJustify
              EditButtons = <>
              FieldName = 'SUM_LBO'
              Footers = <>
              Title.Caption = #1051#1080#1084#1080#1090#1099'|'#1090#1077#1082#1091#1097#1077#1077' '#1080#1079#1084#1077#1085#1077#1085#1080#1077
              Width = 151
            end>
        end
        object GridItogBudExp: xbGrid
          Left = 0
          Top = 141
          Width = 640
          Height = 18
          TabStop = False
          Anchors = [akLeft, akRight, akBottom]
          AutoFitColWidths = True
          ColorActiveCursor = clWindow
          ColorActiveCursorFont = clWindowText
          DataSource = ADSItogBudExp
          Enabled = False
          FixedColor = clWindow
          Flat = True
          FooterColor = clWindow
          FooterFont.Charset = DEFAULT_CHARSET
          FooterFont.Color = clWindowText
          FooterFont.Height = -11
          FooterFont.Name = 'MS Sans Serif'
          FooterFont.Style = []
          FrozenCols = 3
          HorzScrollBar.Visible = False
          Options = [dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgConfirmDelete]
          OptionsEh = [dghFixed3D, dghClearSelection]
          ReadOnly = True
          RowOddColor = clWindow
          TabOrder = 1
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          UseMultiTitle = True
          VertScrollBar.VisibleMode = sbAlwaysShowEh
          IdGrid = '{56F1C9DF-641D-47C0-B704-59B8C0F784B8}'
          Columns = <
            item
              EditButtons = <>
              FieldName = 'EXP_DIM'
              Footers = <>
              Title.Caption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
              Width = 305
            end
            item
              Alignment = taRightJustify
              EditButtons = <>
              FieldName = 'SUM_LBO_Y'
              Footers = <>
              Title.Caption = #1057' '#1085#1072#1095#1072#1083#1072' '#1075#1086#1076#1072'|'#1083#1080#1084#1080#1090#1099
              Width = 150
            end
            item
              Alignment = taRightJustify
              EditButtons = <>
              FieldName = 'SUM_LBO'
              Footers = <>
              Title.Caption = #1058#1077#1082#1091#1097#1077#1077' '#1080#1079#1084#1077#1085#1077#1085#1080#1077'|'#1083#1080#1084#1080#1090#1099
              Width = 150
            end
            item
              AutoFitColWidth = False
              EditButtons = <>
              FieldName = 'EMPTY_COL'
              Footers = <>
              Width = 0
            end>
        end
      end
    end
  end
  object btnOK: xbButton
    Left = 508
    Top = 449
    Width = 75
    Height = 21
    Hint = #1057#1086#1093#1088#1072#1085#1077#1085#1080#1077' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (F10)'
    Caption = #1054#1050
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 2
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btnCANCEL: xbButton
    Left = 591
    Top = 449
    Width = 75
    Height = 21
    Hint = #1042#1099#1093#1086#1076' '#1080#1079' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (Esc)'
    Caption = #1054#1090#1084#1077#1085#1072
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 3
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object pbDopData: xbPopupButton
    Left = 400
    Top = 449
    Width = 100
    Height = 21
    Caption = #1044#1086#1087'. '#1076#1072#1085#1085#1099#1077
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = MenuDopData
    RoundedButton = True
    TabOrder = 1
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <>
    OEMTranslate = False
    Left = 109
    Top = 3
  end
  object ADS: xbADSDataSource
    DataSet = DS
    Left = 145
    Top = 3
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_FIN_DOC'
    Active = False
    Left = 72
    Top = 3
  end
  object BOPolAcnt1: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPartnerAccnt'
    Active = False
    Left = 61
    Top = 214
  end
  object DSPolAcnt1: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOPolAcnt1
    FieldDefs = <>
    OEMTranslate = False
    IndexName = 'TAG_RSCH'
    Left = 61
    Top = 267
  end
  object BODocCmp: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_DOC_CMP'
    Active = False
    Left = 472
    Top = 269
  end
  object DSDocCmp: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BODocCmp
    FieldDefs = <>
    OEMTranslate = False
    Left = 474
    Top = 319
  end
  object ADSDocCmp: xbADSDataSource
    DataSet = DSDocCmp
    Left = 477
    Top = 375
  end
  object BOMvTp: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_MOVE_TP'
    Active = False
    Left = 354
    Top = 88
  end
  object DSMvTp: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOMvTp
    FieldDefs = <>
    OEMTranslate = False
    Left = 415
    Top = 89
  end
  object BOReasons: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_REASONS'
    Active = False
    Left = 538
    Top = 34
  end
  object DSReasons: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOReasons
    FieldDefs = <>
    OEMTranslate = False
    Left = 539
    Top = 76
  end
  object BOPolAcnt2: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPartnerAccnt'
    Active = False
    Left = 349
    Top = 143
  end
  object DSPolAcnt2: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOPolAcnt2
    FieldDefs = <>
    OEMTranslate = False
    IndexName = 'TAG_RSCH'
    AfterRefresh = DS_AfterRefresh
    Left = 413
    Top = 143
  end
  object BOBudExp: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_BUD_EXP'
    Active = False
    Left = 223
    Top = 348
  end
  object DSBudExp: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOBudExp
    FieldDefs = <>
    ReadOnly = True
    OEMTranslate = False
    Left = 299
    Top = 347
  end
  object ADSBudExp: xbADSDataSource
    DataSet = DSBudExp
    Left = 379
    Top = 348
  end
  object DSItogBudExp: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    ReadOnly = True
    OEMTranslate = False
    Left = 56
    Top = 337
  end
  object ADSItogBudExp: xbADSDataSource
    DataSet = DSItogBudExp
    Left = 137
    Top = 337
  end
  object MenuDopData: xbPopupMenu
    Left = 545
    Top = 194
    object miDopRecv: TMenuItem
      Caption = #1044#1086#1087' '#1088#1077#1082#1074#1080#1079#1080#1090#1099'        Alt+F5'
      OnClick = miDopRecv_Click
    end
  end
end
frmPayULBudExp.prg                                                    5546object frmPayULBudExp: TfrmPayULBudExp
  Left = 25
  Top = 25
  Width = 390
  Height = 184
  ActiveControl = larAnal
  Anchors = []
  Caption = #1056#1072#1089#1093#1086#1076#1099' '#1073#1102#1076#1078#1077#1090#1072
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  WindowState = wsNormal
  OnActivate = Form_Activate
  OnClose = Form_Close
  OnCloseQuery = Form_CloseQuery
  OnCreate = Form_Create
  DesignSize = (
    382
    150)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 8
    Top = 8
    Width = 366
    Height = 106
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    object TabSheet1: TTabSheet
      Caption = #1054#1073#1097#1077#1077
      object larAnal: xbLabelEditAnalitRefer
        Left = 8
        Top = 8
        Width = 350
        Height = 21
        BorderColor = clWindowText
        Caption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
        CaptionAlignment = taLeftJustify
        DataField = 'EXP_DIM'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 0
        LabelWidth = 170
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'EXP_DIM'
        EnabledEdit = False
        VisibleButton = True
        UseStandartHint = True
        FindFieldType = tfCharacterString
        ReferCaption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
        TableName = 'PAY\DIM_TUNE'
        xReferId = 0
        IsHarbourRefer = True
        MakeChecking = True
      end
      object lecSumLboY: xbLabelEditCalc
        Left = 8
        Top = 32
        Width = 260
        Height = 21
        BorderColor = clWindowText
        Caption = #1051#1080#1084#1080#1090' '#1041#1054':   c '#1085#1072#1095#1072#1083#1072' '#1075#1086#1076#1072
        CaptionAlignment = taLeftJustify
        DataField = 'SUM_LBO_Y'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 1
        LabelWidth = 170
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        VisibleButton = False
      end
      object lecSumLbo: xbLabelEditCalc
        Left = 8
        Top = 56
        Width = 260
        Height = 21
        BorderColor = clWindowText
        Caption = '                     '#1090#1077#1082#1091#1097#1077#1077' '#1080#1079#1084#1077#1085#1077#1085#1080#1077
        CaptionAlignment = taLeftJustify
        DataField = 'SUM_LBO'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 2
        LabelWidth = 170
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        VisibleButton = False
      end
    end
  end
  object btnOK: xbButton
    Left = 215
    Top = 122
    Width = 75
    Height = 21
    Hint = #1057#1086#1093#1088#1072#1085#1077#1085#1080#1077' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (F10)'
    Caption = #1054#1050
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 1
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btnCANCEL: xbButton
    Left = 302
    Top = 122
    Width = 75
    Height = 21
    Hint = #1042#1099#1093#1086#1076' '#1080#1079' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (Esc)'
    Caption = #1054#1090#1084#1077#1085#1072
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 2
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_BUD_EXP'
    Active = False
    Left = 261
    Top = 8
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <>
    OEMTranslate = False
    AfterEdit = DS_AfterEdit
    Left = 336
    Top = 8
  end
  object ADS: xbADSDataSource
    DataSet = DS
    Left = 299
    Top = 9
  end
  object DSDIMTUNE: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'PAY\dim_tune'
    OEMTranslate = False
    IndexName = 'TAG_CODE'
    Left = 116
    Top = 8
  end
end
frmPayPoluchNal.prg                                                  56414object frmPayPoluchNal: TfrmPayPoluchNal
  Left = 25
  Top = 25
  Width = 720
  Height = 462
  ActiveControl = leDopNum
  Anchors = []
  Caption = #1047#1072#1103#1074#1082#1072' '#1085#1072' '#1087#1086#1083#1091#1095#1077#1085#1080#1077' '#1085#1072#1083#1080#1095#1085#1099#1093
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  WindowState = wsNormal
  OnCloseQuery = Form_CloseQuery
  OnCreate = Form_Create
  OnShow = Form_Show
  DesignSize = (
    712
    428)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 8
    Top = 8
    Width = 698
    Height = 394
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    OnChange = bPageControl1_Change
    object TabSheet1: TTabSheet
      Caption = #1054#1073#1097#1077#1077
      DesignSize = (
        696
        372)
      object lbPolName: xbLabel
        Left = 304
        Top = 286
        Width = 345
        Height = 17
        Anchors = [akLeft, akTop, akRight]
        Caption = 'lbPolName'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
        DataField = 'FIO'
        DataSource = ADSDocCmp
      end
      object lcbPTp: xbLabelCombo
        Left = 463
        Top = 217
        Width = 170
        Height = 21
        ParentBackGround = True
        Caption = #1042#1080#1076' '#1087#1083#1072#1090#1077#1078#1072
        Enabled = False
        TabOrder = 14
        LabelWidth = 80
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Sorted = False
        EditColor = clWindow
        DisabledColor = clInactiveBorder
        DisabledFontColor = clBlack
        BorderColor = clWindowText
        AutoComplete = False
        Style = csDropDownList
        CharCase = ecNormal
        DropDownCount = 0
        ItemHeight = 0
        MaxLength = 0
        Items.Strings = (
          #1087#1086#1095#1090#1086#1081
          #1090#1077#1083#1077#1075#1088#1072#1092#1086#1084
          #1101#1083#1077#1082#1090#1088#1086#1085#1085#1086)
        ItemIndex = -1
        Visible = False
        UseStandartHint = True
        OnSelect = lcbPTp_Select
      end
      object lerMvTpCode: xbLabelEditRefer
        Left = 8
        Top = 48
        Width = 386
        Height = 21
        BorderColor = clWindowText
        Caption = #1042#1080#1076' '#1076#1074#1080#1078#1077#1085#1080#1103
        CaptionAlignment = taLeftJustify
        DataField = 'MV_NAME'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 7
        LabelWidth = 156
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnEnter = lerMvTpCode_Enter
        OnExit = lerMvTpCode_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'MV_CODE'
        BeforeButtonClick = lerMvTpCode_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'MV_CODE;-1;50;1;-1;'#1050#1086#1076'|MV_NAME;-1;200;1;-1;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldName = 'MV_NAME'
        FindFieldType = tfCharacterString
        ListDataSet = DSMvTp
        OutFieldsArray = 'MV_CODE;PRT_TP;DIR'
        PutFieldsArray = 'MV_CODE;PRT_TP;DIR'
        ReferCaption = #1042#1080#1076#1099' '#1076#1074#1080#1078#1077#1085#1080#1103' '#1076#1077#1085#1077#1078#1085#1099#1093' '#1089#1088#1077#1076#1089#1090#1074
        TypeFindFieldName = 'MV_NAME'
        xReferId = 0
        IsHarbourRefer = True
        OnSelect = lerMvTpCode_Select
      end
      object bFrame1: xbFrame
        Left = 8
        Top = 93
        Width = 680
        Height = 93
        TabOrder = 10
        Anchors = [akLeft, akTop, akRight]
        DesignSize = (
          680
          93)
        object lbPlatName: xbLabel
          Left = 296
          Top = 6
          Width = 375
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPlatName'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'FINOBJ_PART_SHORTNAME'
          DataSource = ADS
        end
        object lbGlavName: xbLabel
          Left = 296
          Top = 72
          Width = 375
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbGlavName'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'PART_ORGNAME'
          DataSource = ADSDocCmp
        end
        object lbPlatBankName1: xbLabel
          Left = 416
          Top = 28
          Width = 260
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPlatBankName1'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          OnClick = lbPlatBankName1_Click
          DataField = 'OWNACNT_BANK_NAME'
          DataSource = ADSDocCmp
        end
        object lbFO: xbLabel
          Left = 296
          Top = 50
          Width = 220
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbFO'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'FO_SHORTNAME'
          DataSource = ADSDocCmp
        end
        object lePlatCode: xbLabelEdit
          Left = 6
          Top = 3
          Width = 280
          Height = 21
          BorderColor = clWindowText
          Caption = #1055#1088#1077#1076#1087#1088#1080#1103#1090#1080#1077
          CaptionAlignment = taLeftJustify
          DataField = 'FINOBJ_COD_BUD_P'
          DataSource = ADS
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 0
          LabelWidth = 130
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object lerGlavCode: xbLabelEditRefer
          Left = 6
          Top = 69
          Width = 280
          Height = 21
          BorderColor = clWindowText
          Caption = #1043#1083#1072#1074#1085#1099#1081' '#1088#1072#1089#1087#1086#1088#1103#1076#1080#1090#1077#1083#1100
          CaptionAlignment = taLeftJustify
          DataField = 'PART_COD_BUD_P'
          DataSource = ADSDocCmp
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 5
          LabelWidth = 130
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          OnEnter = lerGlavCode_Enter
          OnExit = lerGlavCode_Exit
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'R_ID'
          BeforeButtonClick = lerGlavCode_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 'CODE;-1;100;1;0;'#1050#1086#1076'|SORTNAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
          FindFieldName = 'COD_BUD_P'
          FindFieldType = tfCharacterString
          OutFieldsArray = 'PART_ID'
          PutFieldsArray = 'R_ID'
          ReferCaption = #1057#1087#1080#1089#1086#1082
          ReferWidth = 450
          TypeFindFieldName = 'COD_BUD_P'
          xReferId = 0
          IsHarbourRefer = True
        end
        object lerBudLev: xbLabelEditRefer
          Left = 487
          Top = 47
          Width = 140
          Height = 21
          BorderColor = clWindowText
          Caption = #1041#1102#1076#1078#1077#1090
          CaptionAlignment = taLeftJustify
          DataField = 'BUD_LEV'
          DataSource = ADSDocCmp
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 4
          LabelWidth = 50
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          OnEnter = lerGlavCode_Enter
          OnExit = lerGlavCode_Exit
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'BUD_LEV'
          BeforeButtonClick = lerGlavCode_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 'CODE;-1;100;1;0;'#1050#1086#1076'|NAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
          FindFieldName = 'BUD_LEV'
          FindFieldType = tfCharacterString
          ListDataSet = DSBudLev
          OutFieldsArray = 'CODE'
          PutFieldsArray = 'BUD_LEV'
          ReferCaption = #1057#1087#1080#1089#1086#1082
          ReferWidth = 450
          TypeFindFieldName = 'BUD_LEV'
          xReferId = 0
          IsHarbourRefer = True
        end
        object lePlatAcnt1: xbLabelEdit
          Left = 6
          Top = 25
          Width = 280
          Height = 21
          BorderColor = clWindowText
          Caption = #1051#1080#1094#1077#1074#1086#1081' '#1089#1095#1077#1090
          CaptionAlignment = taLeftJustify
          DataField = 'OWNACNT_NUM'
          DataSource = ADSDocCmp
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 1
          LabelWidth = 130
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object lerPlatBankCode1: xbLabelEdit
          Left = 296
          Top = 25
          Width = 110
          Height = 21
          BorderColor = clWindowText
          Caption = #1074' '#1054#1060#1050'     '
          CaptionAlignment = taLeftJustify
          DataField = 'OWNACNT_COD_BUD_P'
          DataSource = ADSDocCmp
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 2
          LabelWidth = 40
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object lerFO: xbLabelEditRefer
          Left = 6
          Top = 47
          Width = 280
          Height = 21
          BorderColor = clWindowText
          Caption = #1060#1080#1085'. '#1086#1088#1075#1072#1085
          CaptionAlignment = taLeftJustify
          DataField = 'FO_COD_BUD_P'
          DataSource = ADSDocCmp
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 3
          LabelWidth = 130
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'FO_ID'
          BeforeButtonClick = lerFO_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 'CODE;-1;100;1;0;'#1050#1086#1076'|SORTNAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
          FindFieldName = 'COD_BUD_P'
          FindFieldType = tfCharacterString
          OutFieldsArray = 'PART_ID'
          PutFieldsArray = 'FO_ID'
          ReferCaption = #1057#1087#1080#1089#1086#1082
          ReferWidth = 450
          TypeFindFieldName = 'COD_BUD_P'
          xReferId = 0
          IsHarbourRefer = True
        end
      end
      object lcbStatus: xbLabelCombo
        Left = 254
        Top = 26
        Width = 140
        Height = 21
        ParentBackGround = True
        Caption = #1057#1090#1072#1090#1091#1089
        Enabled = False
        TabOrder = 5
        LabelWidth = 40
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Sorted = False
        EditColor = clWindow
        DisabledColor = clInactiveBorder
        DisabledFontColor = clBlack
        BorderColor = clWindowText
        AutoComplete = False
        Style = csDropDownList
        CharCase = ecNormal
        DropDownCount = 0
        ItemHeight = 0
        MaxLength = 0
        Items.Strings = (
          #1095#1077#1088#1085#1086#1074#1080#1082
          #1087#1077#1088#1077#1076#1072#1085
          #1086#1087#1083#1072#1095#1077#1085)
        ItemIndex = -1
        UseStandartHint = True
      end
      object leDocVid: xbLabelEdit
        Left = 8
        Top = 4
        Width = 236
        Height = 21
        BorderColor = clWindowText
        Caption = #1044#1086#1082#1091#1084#1077#1085#1090':                  '#1074#1080#1076'    '
        CaptionExtender = ceNone
        CaptionAlignment = taLeftJustify
        DataField = 'DOC_CODE'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 0
        LabelWidth = 156
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leDocNum: xbLabelEdit
        Left = 402
        Top = 4
        Width = 60
        Height = 21
        BorderColor = clWindowText
        Caption = #1085#1086#1084#1077#1088'    '
        CaptionAlignment = taLeftJustify
        DataField = 'DOC_NUM'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 2
        LabelWidth = 0
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leDocDate: xbLabelEdit
        Left = 473
        Top = 4
        Width = 120
        Height = 21
        BorderColor = clWindowText
        Caption = #1076#1072#1090#1072'    '
        CaptionAlignment = taLeftJustify
        DataField = 'DOC_DATE'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 3
        LabelWidth = 30
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object lePayDate: xbLabelEdit
        Left = 8
        Top = 26
        Width = 236
        Height = 21
        BorderColor = clWindowText
        Caption = #1055#1088#1077#1076#1077#1083#1100#1085#1072#1103' '#1076#1072#1090#1072' '#1080#1089#1087#1086#1083#1085#1077#1085#1080#1103
        CaptionAlignment = taLeftJustify
        DataField = 'PAY_DATE'
        DataSource = ADSDocCmp
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 4
        LabelWidth = 156
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnExit = lePayDate_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leOperDate: xbLabelEdit
        Left = 423
        Top = 26
        Width = 170
        Height = 21
        BorderColor = clWindowText
        Caption = #1044#1072#1090#1072' '#1086#1087#1077#1088#1072#1094#1080#1080
        CaptionAlignment = taLeftJustify
        DataField = 'OPER_DATE'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 6
        LabelWidth = 80
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnExit = leOperDate_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leDopNum: xbLabelEdit
        Left = 254
        Top = 4
        Width = 140
        Height = 21
        BorderColor = clWindowText
        Caption = #1085#1086#1084#1077#1088'    '
        CaptionAlignment = taLeftJustify
        DataField = 'DOP_NUM'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 1
        LabelWidth = 40
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leRegNum: xbLabelEdit
        Left = 8
        Top = 70
        Width = 236
        Height = 21
        BorderColor = clWindowText
        Caption = #1056#1077#1075#1080#1089#1090#1088#1072#1094#1080#1103' '#1074' '#1054#1060#1050':    '#1085#1086#1084#1077#1088'     '
        CaptionExtender = ceNone
        CaptionAlignment = taLeftJustify
        DataField = 'REG_NUM'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 8
        LabelWidth = 156
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        MaxLength = 13
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leRegDate: xbLabelEdit
        Left = 254
        Top = 70
        Width = 140
        Height = 21
        BorderColor = clWindowText
        Caption = #1076#1072#1090#1072
        CaptionExtender = ceNone
        CaptionAlignment = taLeftJustify
        DataField = 'REG_DATE'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 9
        LabelWidth = 40
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnExit = leRegDate_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object bFrame3: xbFrame
        Left = 8
        Top = 188
        Width = 680
        Height = 27
        TabOrder = 11
        Anchors = [akLeft, akTop, akRight]
        object lerBORegNum: xbLabelEditRefer
          Left = 246
          Top = 3
          Width = 170
          Height = 21
          BorderColor = clWindowText
          Caption = #1041#1054' '#1088#1077#1075'. '#1085#1086#1084#1077#1088
          CaptionAlignment = taLeftJustify
          DataField = 'BO_REG_NUM'
          DataSource = ADS
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 1
          LabelWidth = 0
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'BO_REG_NUM'
          BeforeButtonClick = lerBORegNum_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 
            'REG_NUM;-1;100;1;-1;'#1056#1077#1075'. '#1085#1086#1084#1077#1088'|REG_DATE;-1;100;1;-1;'#1044#1072#1090#1072' '#1088#1077#1075#1080#1089#1090#1088 +
            #1072#1094#1080#1080
          FindFieldName = 'REG_NUM'
          FindFieldType = tfCharacterString
          ListDataSet = DSFinPlnSpr
          OutFieldsArray = 'REG_NUM'
          PutFieldsArray = 'BO_REG_NUM'
          ReferCaption = #1044#1086#1082#1091#1084#1077#1085#1090#1099'-'#1086#1089#1085#1086#1074#1072#1085#1080#1103
          ReferWidth = 550
          TypeFindFieldName = 'REG_NUM'
          xReferId = 0
          IsHarbourRefer = True
        end
        object cbNoList: xbCheckBox
          Left = 6
          Top = 3
          Width = 220
          Height = 21
          Caption = #1041#1054' '#1088#1077#1075'. '#1085#1086#1084#1077#1088' . . . . . . . . '#1085#1077#1090' '#1074' '#1088#1077#1077#1089#1090#1088#1077
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          TabStop = True
          OnClick = cbNoList_Click
          ValueChecked = '1'
          ValueUnchecked = '0'
          DataField = 'NO_LIST'
          DataSource = ADS
        end
      end
      object lecSumma: xbLabelEditCalc
        Left = 8
        Top = 217
        Width = 286
        Height = 21
        BorderColor = clWindowText
        Caption = #1057#1091#1084#1084#1072
        CaptionAlignment = taLeftJustify
        DataField = 'SUM'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        Enabled = False
        TabOrder = 12
        LabelWidth = 186
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        OnEnter = lecSumma_Enter
        OnExit = lecSumma_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        VisibleButton = False
        OnSelect = lecSumma_Select
      end
      object leChSer: xbLabelEdit
        Left = 8
        Top = 239
        Width = 286
        Height = 21
        BorderColor = clWindowText
        Caption = #1044#1077#1085#1077#1078#1085#1099#1081' '#1095#1077#1082':         '#1089#1077#1088#1080#1103
        CaptionExtender = ceNone
        CaptionAlignment = taLeftJustify
        DataField = 'CH_SER'
        DataSource = ADSDocCmp
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 15
        LabelWidth = 186
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leChNum: xbLabelEdit
        Left = 304
        Top = 239
        Width = 130
        Height = 21
        BorderColor = clWindowText
        Caption = #1085#1086#1084#1077#1088'    '
        CaptionExtender = ceNone
        CaptionAlignment = taLeftJustify
        DataField = 'CH_NUM'
        DataSource = ADSDocCmp
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 16
        LabelWidth = 40
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leChDate: xbLabelEdit
        Left = 437
        Top = 239
        Width = 95
        Height = 21
        BorderColor = clWindowText
        Caption = ' '#1076#1072#1090#1072
        CaptionExtender = ceNone
        CaptionAlignment = taLeftJustify
        DataField = 'CH_DATE'
        DataSource = ADSDocCmp
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 17
        LabelWidth = 30
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object lerPolCode: xbLabelEditRefer
        Left = 8
        Top = 283
        Width = 286
        Height = 21
        BorderColor = clWindowText
        Caption = #1055#1086#1083#1091#1095#1072#1090#1077#1083#1100
        CaptionAlignment = taLeftJustify
        DataField = 'TABN'
        DataSource = ADSDocCmp
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 19
        LabelWidth = 186
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'TABN'
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 
          'CODE_CLEAR;-1;50;1;-1;'#1058#1072#1073'.'#8470'|SHORTNAME;-1;120;1;-1;'#1060#1072#1084#1080#1083#1080#1103'|name1;' +
          '-1;100;1;-1;'#1048#1084#1103'|Name2;-1;150;1;-1;'#1054#1090#1095#1077#1089#1090#1074#1086
        FindFieldName = 'CODE'
        FindFieldType = tfCharacterString
        ListDataSet = dsTabN
        OutFieldsArray = 'CODE'
        PutFieldsArray = 'TABN'
        ReferCaption = #1057#1087#1080#1089#1086#1082
        ReferWidth = 450
        TypeFindFieldName = 'CODE'
        xReferId = 0
        IsHarbourRefer = True
        OnSelect = lerPolCode_Select
      end
      object lePaspTp: xbLabelEdit
        Left = 8
        Top = 327
        Width = 286
        Height = 21
        BorderColor = clWindowText
        Caption = #1044#1086#1082#1091#1084#1077#1085#1090
        CaptionAlignment = taLeftJustify
        DataField = 'PASP_TP'
        DataSource = ADSDocCmp
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 21
        LabelWidth = 186
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object lePaspNum: xbLabelEdit
        Left = 304
        Top = 327
        Width = 130
        Height = 21
        BorderColor = clWindowText
        Caption = #1085#1086#1084#1077#1088'    '
        CaptionAlignment = taLeftJustify
        DataField = 'PASP_NUM'
        DataSource = ADSDocCmp
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 22
        LabelWidth = 40
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object lePaspOVD: xbLabelEdit
        Left = 154
        Top = 349
        Width = 280
        Height = 21
        BorderColor = clWindowText
        Caption = ' '#1074#1099#1076#1072#1085
        CaptionExtender = ceNone
        CaptionAlignment = taLeftJustify
        DataField = 'PASP_OVD'
        DataSource = ADSDocCmp
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 23
        LabelWidth = 40
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object lePaspDate: xbLabelEdit
        Left = 437
        Top = 349
        Width = 95
        Height = 21
        BorderColor = clWindowText
        Caption = ' '#1076#1072#1090#1072
        CaptionExtender = ceNone
        CaptionAlignment = taLeftJustify
        DataField = 'PASP_DATE'
        DataSource = ADSDocCmp
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 24
        LabelWidth = 30
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leChEnd: xbLabelEdit
        Left = 114
        Top = 261
        Width = 180
        Height = 21
        BorderColor = clWindowText
        Caption = #1089#1088#1086#1082' '#1076#1077#1081#1089#1090#1074#1080#1103
        CaptionExtender = ceNone
        CaptionAlignment = taLeftJustify
        DataField = 'CH_END'
        DataSource = ADSDocCmp
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 18
        LabelWidth = 80
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnEnter = leChEnd_Enter
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object btChKas: xbButton
        Left = 344
        Top = 217
        Width = 90
        Height = 21
        Caption = #1050#1072#1089#1089#1086#1074#1099#1081' '#1087#1083#1072#1085
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        RoundedButton = True
        TabOrder = 13
        OnClick = btChKas_Click
        ButtonColor = clBlack
      end
      object lePost: xbLabelEdit
        Left = 134
        Top = 305
        Width = 300
        Height = 21
        BorderColor = clWindowText
        Caption = #1076#1086#1083#1078#1085#1086#1089#1090#1100
        CaptionAlignment = taLeftJustify
        DataField = 'POST'
        DataSource = ADSDocCmp
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 20
        LabelWidth = 60
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leBnkNum: xbLabelEdit
        Left = 408
        Top = 70
        Width = 185
        Height = 21
        BorderColor = clWindowText
        Caption = #1044#1086#1082'.'#1073#1072#1085#1082#1072': '#1085#1086#1084#1077#1088'     '
        CaptionAlignment = taLeftJustify
        DataField = 'BNK_NUM'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 25
        LabelWidth = 95
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leBnkDate: xbLabelEdit
        Left = 598
        Top = 70
        Width = 90
        Height = 21
        BorderColor = clWindowText
        Caption = ' '#1076#1072#1090#1072'    '
        CaptionExtender = ceNone
        CaptionAlignment = taLeftJustify
        DataField = 'BNK_DATE'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 26
        LabelWidth = 30
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnExit = leRegDate_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
    end
    object TabSheet2: TTabSheet
      Caption = #1056#1072#1089#1096#1080#1092#1088#1086#1074#1082#1072
      DesignSize = (
        696
        372)
      object bFrame2: xbFrame
        Left = 8
        Top = 8
        Width = 680
        Height = 358
        TabOrder = 0
        Anchors = [akLeft, akTop, akRight, akBottom]
        OnClick = bFrame2_Click
        object GridBudExp: xbGrid
          Left = 0
          Top = 0
          Width = 680
          Height = 345
          Align = alTop
          Anchors = [akLeft, akTop, akRight, akBottom]
          AutoFitColWidths = True
          DataSource = ADSBudExp
          Flat = True
          FooterColor = clWindow
          FooterFont.Charset = DEFAULT_CHARSET
          FooterFont.Color = clWindowText
          FooterFont.Height = -11
          FooterFont.Name = 'MS Sans Serif'
          FooterFont.Style = []
          Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgConfirmDelete]
          ReadOnly = True
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          UseMultiTitle = True
          VertScrollBar.VisibleMode = sbAlwaysShowEh
          OnDblClick = GridBudExpFin_DblClick
          OnKeyPress = GridBudExpFin_KeyPress
          IdGrid = '{69C46EAE-CBAD-4262-8ABA-874D07B9857F}'
          Columns = <
            item
              EditButtons = <>
              FieldName = 'FIN_TP'
              Footers = <>
              Title.Caption = #1048#1060
              Width = 42
            end
            item
              EditButtons = <>
              FieldName = 'EXP_DIM'
              Footers = <>
              Title.Caption = #1040#1085#1072#1083#1080#1090#1080#1082#1072' '#1087#1083#1072#1090#1077#1083#1100#1097#1080#1082#1072
              Width = 229
            end
            item
              Alignment = taRightJustify
              EditButtons = <>
              FieldName = 'SUM_KR'
              Footers = <>
              Title.Caption = #1057#1091#1084#1084#1072
              Width = 104
            end
            item
              EditButtons = <>
              FieldName = 'PRIM'
              Footers = <>
              Title.Caption = #1053#1072#1079#1085#1072#1095#1077#1085#1080#1077
              Width = 254
            end
            item
              Alignment = taCenter
              EditButtons = <>
              FieldName = 'VIS_STRTP'
              Footers = <>
              Title.Caption = ' '
              Width = 15
            end>
        end
        object GridItogBudExp: xbGrid
          Left = 0
          Top = 341
          Width = 680
          Height = 17
          TabStop = False
          Align = alBottom
          AutoFitColWidths = True
          ColorActiveCursor = clWindow
          ColorActiveCursorFont = clWindowText
          DataSource = ADSItogBudExp
          Enabled = False
          FixedColor = clWindow
          Flat = True
          FooterColor = clWindow
          FooterFont.Charset = DEFAULT_CHARSET
          FooterFont.Color = clWindowText
          FooterFont.Height = -11
          FooterFont.Name = 'MS Sans Serif'
          FooterFont.Style = []
          FrozenCols = 4
          HorzScrollBar.Visible = False
          Options = [dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgConfirmDelete]
          OptionsEh = [dghFixed3D, dghClearSelection]
          ReadOnly = True
          RowOddColor = clWindow
          TabOrder = 1
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          UseMultiTitle = True
          VertScrollBar.VisibleMode = sbAlwaysShowEh
          IdGrid = '{2445D210-A061-443C-B000-0D2CA07EE128}'
          Columns = <
            item
              EditButtons = <>
              FieldName = 'FIN_TP'
              Footers = <>
              Width = 43
            end
            item
              Alignment = taRightJustify
              EditButtons = <>
              FieldName = 'EXP_DIM'
              Footers = <>
              Width = 235
            end
            item
              Alignment = taRightJustify
              EditButtons = <>
              FieldName = 'SUM_KR'
              Footers = <>
              Width = 107
            end
            item
              EditButtons = <>
              FieldName = 'PRIM'
              Footers = <>
              Width = 259
            end
            item
              AutoFitColWidth = False
              EditButtons = <>
              FieldName = 'EMPTY_COL'
              Footers = <>
              Width = 0
            end>
        end
      end
    end
    object TabSheet3: TTabSheet
      Caption = #1055#1088#1086#1074#1086#1076#1082#1080
      DesignSize = (
        696
        372)
      object txtopert: xbLabel
        Left = 261
        Top = 9
        Width = 302
        Height = 17
        Caption = 'txtopert'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
        Layout = tlCenter
        DataField = 'TYPEOP_NAME'
        DataSource = ADS
      end
      object lblDt: xbLabel
        Left = 6
        Top = 342
        Width = 684
        Height = 16
        Anchors = [akLeft, akRight, akBottom]
        Caption = '1'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
      end
      object lblKt: xbLabel
        Left = 6
        Top = 356
        Width = 684
        Height = 16
        Anchors = [akLeft, akRight, akBottom]
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
      end
      object rfOPerT: xbLabelEditRefer
        Left = 6
        Top = 6
        Width = 250
        Height = 21
        BorderColor = clWindowText
        Caption = #1058#1080#1087#1086#1074#1072#1103' '#1086#1087#1077#1088#1072#1094#1080#1103
        CaptionAlignment = taLeftJustify
        DataField = 'TYPEOP_CODE'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 0
        LabelWidth = 124
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'TYPE_OP'
        OnClearButtonClick = rfOPerT_ClearButtonClick
        VisibleButton = True
        UseStandartHint = True
        FindFieldName = 'code'
        FindFieldType = tfCharacterString
        OutFieldsArray = 'REC_ID'
        PutFieldsArray = 'TYPE_OP'
        ReferCaption = #1057#1087#1080#1089#1086#1082' '#1090#1080#1087#1086#1074#1099#1093' '#1086#1087#1077#1088#1072#1094#1080#1081
        TypeFindFieldName = 'code'
        xReferId = 0
        IsHarbourRefer = False
      end
      object bGrProv: xbGrid
        Left = 6
        Top = 31
        Width = 684
        Height = 309
        Anchors = [akLeft, akTop, akRight, akBottom]
        AutoFitColWidths = True
        DataSource = adsMain
        Flat = True
        FooterColor = clWindow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -11
        FooterFont.Name = 'MS Sans Serif'
        FooterFont.Style = []
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
        ReadOnly = True
        TabOrder = 1
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        UseMultiTitle = True
        VTitleMargin = 4
        OnDblClick = bGrid2_DblClick
        OnKeyPress = bGrid2_KeyPress
        IdGrid = '{A38D282F-9736-4FC3-B9B9-A83DF297FD74}'
        Columns = <
          item
            Checkboxes = True
            EditButtons = <>
            FieldName = 'X_ISMARK_'
            Footers = <>
            Title.Caption = ' '
            Width = 22
          end
          item
            EditButtons = <>
            FieldName = 'DT_SCHET'
            Footers = <>
            Title.Caption = #1057#1095#1077#1090'|'#1044#1077#1073#1077#1090
            Width = 80
          end
          item
            EditButtons = <>
            FieldName = 'KT_SCHET'
            Footers = <>
            Title.Caption = #1057#1095#1077#1090'|'#1050#1088#1077#1076#1080#1090
            Width = 80
          end
          item
            EditButtons = <>
            FieldName = 'NAMEOPER'
            Footers = <>
            Title.Caption = #1057#1086#1076#1077#1088#1078#1072#1085#1080#1077
            Width = 323
          end
          item
            EditButtons = <>
            FieldName = 'SUMMA'
            Footers = <>
            Title.Caption = #1057#1091#1084#1084#1072
            Width = 120
          end>
      end
    end
  end
  object btnOK: xbButton
    Left = 548
    Top = 406
    Width = 75
    Height = 21
    Hint = #1057#1086#1093#1088#1072#1085#1077#1085#1080#1077' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (F10)'
    Caption = #1054#1050
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 5
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btnCANCEL: xbButton
    Left = 631
    Top = 406
    Width = 75
    Height = 21
    Hint = #1042#1099#1093#1086#1076' '#1080#1079' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (Esc)'
    Caption = #1054#1090#1084#1077#1085#1072
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 6
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object pOperation: xbPopupButton
    Left = 465
    Top = 406
    Width = 75
    Height = 21
    Caption = #1054#1087#1077#1088#1072#1094#1080#1080
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = MenuOperation
    RoundedButton = True
    TabOrder = 4
    OnClick = pOperation_Click
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btRaschet: xbPopupButton
    Left = 274
    Top = 406
    Width = 75
    Height = 21
    Caption = #1056#1072#1089#1095#1077#1090#1099
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = MenuRaschet
    RoundedButton = True
    TabOrder = 2
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object pbDopData: xbPopupButton
    Left = 357
    Top = 406
    Width = 100
    Height = 21
    Caption = #1044#1086#1087'. '#1076#1072#1085#1085#1099#1077
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = MenuDopData
    RoundedButton = True
    TabOrder = 3
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object bDocDim: xbButton
    Left = 191
    Top = 406
    Width = 75
    Height = 21
    Hint = #1042#1074#1086#1076' Ctrl-D'
    Caption = #1048#1079#1084#1077#1088#1077#1085#1080#1103
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 1
    OnClick = bPlDoc_Click
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <>
    OEMTranslate = False
    Left = 109
    Top = 3
  end
  object ADS: xbADSDataSource
    DataSet = DS
    Left = 145
    Top = 3
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_FIN_DOC'
    Active = False
    Left = 72
    Top = 3
  end
  object BODocCmp: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_DOC_CMP'
    Active = False
    Left = 602
    Top = 92
  end
  object DSDocCmp: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BODocCmp
    FieldDefs = <>
    OEMTranslate = False
    Left = 604
    Top = 138
  end
  object ADSDocCmp: xbADSDataSource
    DataSet = DSDocCmp
    Left = 607
    Top = 194
  end
  object BOMvTp: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_MOVE_TP'
    Active = False
    Left = 362
    Top = 87
  end
  object DSMvTp: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOMvTp
    FieldDefs = <>
    OEMTranslate = False
    Left = 415
    Top = 89
  end
  object BOReasons: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_REASONS'
    Active = False
    Left = 475
    Top = 92
  end
  object DSReasons: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOReasons
    FieldDefs = <>
    OEMTranslate = False
    Left = 534
    Top = 92
  end
  object BOBudExp: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_BUD_EXP'
    Active = False
    Left = 300
    Top = 180
  end
  object DSBudExp: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOBudExp
    FieldDefs = <>
    ReadOnly = True
    OEMTranslate = False
    Left = 380
    Top = 174
  end
  object ADSBudExp: xbADSDataSource
    DataSet = DSBudExp
    Left = 467
    Top = 173
  end
  object DSItogBudExp: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    ReadOnly = True
    OEMTranslate = False
    Left = 382
    Top = 223
  end
  object ADSItogBudExp: xbADSDataSource
    DataSet = DSItogBudExp
    Left = 472
    Top = 222
  end
  object BOBudLev: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_BUD_LEV'
    Active = False
    Left = 533
    Top = 48
  end
  object DSBudLev: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOBudLev
    FieldDefs = <>
    OEMTranslate = False
    Left = 586
    Top = 48
  end
  object MenuOperation: xbPopupMenu
    Left = 610
    Top = 245
    object pStatus: TMenuItem
      Caption = #1057#1090#1072#1090#1091#1089'                                             Alt-S'
      object pStatus1: TMenuItem
        Caption = #1063#1077#1088#1085#1086#1074#1080#1082
      end
      object pStatus2: TMenuItem
        Caption = #1055#1077#1088#1077#1076#1072#1085
      end
      object pStatus3: TMenuItem
        Caption = #1054#1087#1083#1072#1095#1077#1085
      end
    end
    object miCopyProv: TMenuItem
      Caption = #1050#1086#1087#1080#1088#1086#1074#1072#1090#1100' '#1087#1088#1086#1074#1086#1076#1082#1091'                       F5'
      OnClick = miCopyProv_Click
    end
    object miCopyBudExp: TMenuItem
      Caption = #1050#1086#1087#1080#1088#1086#1074#1072#1090#1100' '#1089#1090#1088#1086#1082#1091' '#1088#1072#1089#1096#1080#1092#1088#1086#1074#1082#1080'   F5'
      OnClick = miCopyBudExp_Click
    end
  end
  object adsMain: xbADSDataSource
    DataSet = DSMAIN
    Left = 544
    Top = 198
  end
  object DSMAIN: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    xbsClassName = 'MAIN'
    BObject = BO
    FieldDefs = <
      item
        Name = 'NNOPER'
        DataType = ftFloat
      end
      item
        Name = 'TASK'
        DataType = ftString
        Size = 2
      end
      item
        Name = 'TaskName'
        DataType = ftString
        Size = 40
      end
      item
        Name = 'JrnName'
        DataType = ftString
        Size = 40
      end
      item
        Name = 'JrnCode'
        DataType = ftString
        Size = 4
      end
      item
        Name = 'DATAOPER'
        DataType = ftDate
      end
      item
        Name = 'NNDOC'
        DataType = ftString
        Size = 6
      end
      item
        Name = 'DT_SCHET'
        DataType = ftString
        Size = 16
      end
      item
        Name = 'DTName'
        DataType = ftString
        Size = 80
      end
      item
        Name = 'DT_CODE'
        DataType = ftString
        Size = 60
      end
      item
        Name = 'KT_SCHET'
        DataType = ftString
        Size = 16
      end
      item
        Name = 'KTName'
        DataType = ftString
        Size = 80
      end
      item
        Name = 'KT_CODE'
        DataType = ftString
        Size = 60
      end
      item
        Name = 'SUMMA'
        DataType = ftFloat
      end
      item
        Name = 'NAMEOPER'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'VALUTA'
        DataType = ftString
        Size = 3
      end
      item
        Name = 'VSUMMA'
        DataType = ftFloat
      end
      item
        Name = 'VCURS'
        DataType = ftFloat
      end
      item
        Name = 'SCLAD'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'STATUS'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'USER_DATE'
        DataType = ftDate
      end
      item
        Name = 'Z_STATUS'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'NNOPER_D'
        DataType = ftFloat
      end
      item
        Name = 'NNOPER_K'
        DataType = ftFloat
      end
      item
        Name = 'N_STATUS'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'CRYPT_CODE'
        DataType = ftString
        Size = 11
      end
      item
        Name = 'IDMAIN'
        DataType = ftFloat
      end
      item
        Name = 'JRN_ID'
        DataType = ftFloat
      end
      item
        Name = 'DOC_ID'
        DataType = ftFloat
      end
      item
        Name = 'VAL_ID'
        DataType = ftFloat
      end
      item
        Name = 'PSCHET'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'ENTRY_CTG'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'GL_DIM1'
        DataType = ftFloat
      end
      item
        Name = 'GL_DIM2'
        DataType = ftFloat
      end
      item
        Name = 'mainValuta'
        DataType = ftString
        Size = 3
      end
      item
        Name = 'PriznakZab'
        DataType = ftBoolean
      end>
    ReadOnly = True
    OEMTranslate = False
    Left = 548
    Top = 244
  end
  object DSFinPlnSpr: TBestDataset
    Tag = 8
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'PAY\FIN_DOC.DBF'
    OEMTranslate = False
    Left = 493
    Top = 306
  end
  object BOPartner: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPartner'
    Active = False
    Left = 533
  end
  object DSPartner: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOPartner
    FieldDefs = <>
    OEMTranslate = False
    Left = 592
    Top = 3
  end
  object MenuRaschet: xbPopupMenu
    Left = 472
    Top = 353
    object miDocOsn: TMenuItem
      Caption = #1044#1086#1082#1091#1084#1077#1085#1090'-'#1086#1089#1085#1086#1074#1072#1085#1080#1077
      OnClick = miDocOsn_Click
    end
    object miBalans: TMenuItem
      Caption = #1041#1072#1083#1072#1085#1089
      OnClick = miBalans_Click
    end
  end
  object MenuDopData: xbPopupMenu
    Left = 554
    Top = 353
    object MenuDopData1: TMenuItem
      Caption = #1053#1072#1083#1086#1075#1086#1074#1099#1077' '#1082#1086#1076#1099'     Ctrl+B'
      OnClick = MenuDopData1_Click
    end
    object miDopRecv: TMenuItem
      Caption = #1044#1086#1087' '#1088#1077#1082#1074#1080#1079#1080#1090#1099'        Alt+F5'
      OnClick = miDopRecv_Click
    end
    object miPodpis: TMenuItem
      Caption = #1055#1086#1076#1087#1080#1089#1080
      OnClick = miPodpis_Click
    end
  end
  object dsTabN: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOTabN
    FieldDefs = <>
    OEMTranslate = False
    Left = 599
    Top = 300
  end
  object StatusMenu: xbPopupMenu
    Left = 348
    Top = 34
    object MenuStatus1: TMenuItem
      Caption = #1063#1077#1088#1085#1086#1074#1080#1082
    end
    object MenuStatus2: TMenuItem
      Caption = #1055#1077#1088#1077#1076#1072#1085
    end
    object MenuStatus3: TMenuItem
      Caption = #1054#1087#1083#1072#1095#1077#1085
    end
  end
  object BOTabN: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPeople'
    Active = False
    Left = 552
    Top = 301
  end
  object DSFinPlnNoList: TBestDataset
    Tag = 8
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'PAY\FIN_DOC.DBF'
    OEMTranslate = False
    Left = 413
    Top = 307
  end
end
frmPayPNBudExp.prg                                                   16379object frmPayPNBudExp: TfrmPayPNBudExp
  Left = 25
  Top = 25
  Width = 460
  Height = 256
  ActiveControl = lerFinTp
  Anchors = []
  Caption = #1056#1072#1089#1096#1080#1092#1088#1086#1074#1082#1072
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  WindowState = wsNormal
  OnActivate = Form_Activate
  OnClose = Form_Close
  OnCloseQuery = Form_CloseQuery
  OnCreate = Form_Create
  OnShow = Form_Show
  DesignSize = (
    452
    222)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 8
    Top = 8
    Width = 436
    Height = 178
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    object TabSheet1: TTabSheet
      Caption = #1054#1073#1097#1077#1077
      DesignSize = (
        434
        156)
      object lbFinTp: xbLabel
        Left = 196
        Top = 35
        Width = 230
        Height = 17
        Anchors = [akLeft, akTop, akRight]
        Caption = ' '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
      end
      object lecSum: xbLabelEditCalc
        Left = 8
        Top = 80
        Width = 180
        Height = 21
        BorderColor = clWindowText
        Caption = #1057#1091#1084#1084#1072
        CaptionAlignment = taLeftJustify
        DataField = 'SUM_KR'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 7
        LabelWidth = 90
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        VisibleButton = False
      end
      object lePrim: xbLabelEdit
        Left = 8
        Top = 104
        Width = 420
        Height = 21
        BorderColor = clWindowText
        Caption = #1053#1072#1079#1085#1072#1095#1077#1085#1080#1077
        CaptionAlignment = taLeftJustify
        DataField = 'PRIM'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 10
        LabelWidth = 90
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leBOYear: xbLabelEdit
        Left = 358
        Top = 80
        Width = 70
        Height = 21
        BorderColor = clWindowText
        Caption = #1043#1086#1076
        CaptionAlignment = taLeftJustify
        DataField = 'EX_YEAR'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        Enabled = False
        EditMask = '0000'
        DisplayFormat = '0000'
        TabOrder = 9
        LabelWidth = 0
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        MaxLength = 4
        Text = '    '
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object btBO: xbButton
        Left = 8
        Top = 8
        Width = 150
        Height = 21
        Caption = #1041#1102#1076#1078#1077#1090#1085#1086#1077' '#1086#1073#1103#1079#1072#1090#1077#1083#1100#1089#1090#1074#1086
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        RoundedButton = True
        ShowHint = True
        TabOrder = 1
        OnClick = btBO_Click
        ButtonColor = clBlack
      end
      object lerFinTp: xbLabelEditRefer
        Left = 8
        Top = 32
        Width = 180
        Height = 21
        BorderColor = clWindowText
        Caption = #1048#1089#1090#1086#1095#1085#1080#1082' '#1092#1080#1085'-'#1103
        CaptionAlignment = taLeftJustify
        DataField = 'FIN_TP'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 0
        LabelWidth = 90
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Required = True
        OnExit = lerFinTp_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'FIN_TP'
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'FIN_TP;-1;100;1;0;'#1050#1086#1076'|FIN_NAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldName = 'FIN_TP'
        FindFieldType = tfCharacterString
        ListDataSet = DSFinTp
        OutFieldsArray = 'FIN_TP'
        PutFieldsArray = 'FIN_TP'
        ReferCaption = #1057#1087#1080#1089#1086#1082
        ReferWidth = 450
        TypeFindFieldName = 'FIN_TP'
        xReferId = 0
        IsHarbourRefer = True
        IsMustEnter = True
        OnSelect = lerFinTp_Select
      end
      object leBOMonth: xbLabelEdit
        Left = 278
        Top = 80
        Width = 68
        Height = 21
        BorderColor = clWindowText
        Caption = #1041#1054
        CaptionAlignment = taLeftJustify
        DataField = 'EX_MON'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        Enabled = False
        EditMask = '00'
        DisplayFormat = '00'
        TabOrder = 8
        LabelWidth = 30
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        MaxLength = 2
        Text = '  '
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object lePrim1: xbLabelEdit
        Left = 8
        Top = 128
        Width = 420
        Height = 21
        BorderColor = clWindowText
        Caption = #1055#1088#1080#1084#1077#1095#1072#1085#1080#1077
        CaptionAlignment = taLeftJustify
        DataField = 'PRIM1'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 11
        LabelWidth = 90
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object lerExpDimTp: xbLabelEditRefer
        Left = 8
        Top = 56
        Width = 180
        Height = 21
        BorderColor = clWindowText
        Caption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
        CaptionAlignment = taLeftJustify
        DataField = 'EXP_DIM_TP'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 2
        LabelWidth = 90
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Required = True
        OnEnter = lerExpDimTp_Enter
        OnExit = lerExpDimTp_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'EXP_DIM_TP'
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'CODE;-1;100;1;0;'#1050#1086#1076'|NAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldName = 'EXP_DIM_TP'
        FindFieldType = tfCharacterString
        ListDataSet = DSExpDimTp
        OutFieldsArray = 'CODE'
        PutFieldsArray = 'EXP_DIM_TP'
        ReferCaption = #1057#1087#1080#1089#1086#1082
        ReferWidth = 450
        TypeFindFieldName = 'EXP_DIM_TP'
        xReferId = 0
        IsHarbourRefer = True
        OnSelect = lerExpDimTp_Select
      end
      object larExpAnalRas: xbLabelEditAnalitRefer
        Left = 197
        Top = 56
        Width = 70
        Height = 21
        BorderColor = clWindowText
        Caption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
        CaptionAlignment = taLeftJustify
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 3
        LabelWidth = 0
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'EXP_DIM'
        EnabledEdit = False
        VisibleButton = True
        UseStandartHint = True
        FindFieldType = tfCharacterString
        ReferCaption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
        TableName = 'PAY\DIM_TUNE'
        xReferId = 0
        IsHarbourRefer = True
        MakeChecking = True
      end
      object larExpAnalDoh: xbLabelEditAnalitRefer
        Left = 270
        Top = 56
        Width = 70
        Height = 21
        BorderColor = clWindowText
        Caption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
        CaptionAlignment = taLeftJustify
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 4
        LabelWidth = 0
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'EXP_DIM'
        EnabledEdit = False
        VisibleButton = True
        UseStandartHint = True
        FindFieldType = tfCharacterString
        ReferCaption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
        TableName = 'PAY\DIM_TUNE'
        xReferId = 0
        IsHarbourRefer = True
        MakeChecking = True
      end
      object larExpAnalDif: xbLabelEditAnalitRefer
        Left = 344
        Top = 56
        Width = 70
        Height = 21
        BorderColor = clWindowText
        Caption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
        CaptionAlignment = taLeftJustify
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 5
        LabelWidth = 0
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'EXP_DIM'
        EnabledEdit = False
        VisibleButton = True
        UseStandartHint = True
        FindFieldType = tfCharacterString
        ReferCaption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
        TableName = 'PAY\DIM_TUNE'
        xReferId = 0
        IsHarbourRefer = True
        MakeChecking = True
      end
      object leExpAnalEmp: xbLabelEdit
        Left = 197
        Top = 80
        Width = 70
        Height = 21
        BorderColor = clWindowText
        Caption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
        CaptionAlignment = taLeftJustify
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 6
        LabelWidth = 0
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
    end
  end
  object btnOK: xbButton
    Left = 285
    Top = 194
    Width = 75
    Height = 21
    Hint = #1057#1086#1093#1088#1072#1085#1077#1085#1080#1077' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (F10)'
    Caption = #1054#1050
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 2
    ModalResult = 1
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btnCANCEL: xbButton
    Left = 372
    Top = 194
    Width = 75
    Height = 21
    Hint = #1042#1099#1093#1086#1076' '#1080#1079' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (Esc)'
    Caption = #1054#1090#1084#1077#1085#1072
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 3
    ModalResult = 2
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btDopRecv: xbButton
    Left = 173
    Top = 194
    Width = 100
    Height = 21
    Hint = #1044#1086#1087#1086#1083#1085#1080#1090#1077#1083#1100#1085#1099#1077' '#1088#1077#1082#1074#1080#1079#1080#1090#1099' (Alt+F5)'
    Caption = #1044#1086#1087'. '#1088#1077#1082#1074#1080#1079#1080#1090#1099
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 1
    OnClick = btDopRecv_Click
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_BUD_EXP'
    Active = False
    Left = 261
    Top = 65533
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <>
    OEMTranslate = False
    AfterEdit = DS_AfterEdit
    Left = 336
    Top = 65533
  end
  object ADS: xbADSDataSource
    DataSet = DS
    Left = 299
    Top = 65534
  end
  object DSDIMTUNE: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'PAY\dim_tune'
    OEMTranslate = False
    IndexName = 'TAG_CODE'
    Left = 203
    Top = 65534
  end
  object RFBO: xbReferCaller
    ColumnsTune = 
      'FIN_TP;-1;50;1;0;'#1048#1060'|EXP_DIM;-1;200;1;0;'#1040#1085#1072#1083#1080#1090#1080#1082#1072'|PRIM;-1;200;1;0' +
      ';'#1055#1088#1077#1076#1084#1077#1090' '#1087#1086' '#1044#1054'|EX_MON;-1;50;1;0;'#1052#1077#1089#1103#1094'|SUM_LBO;-1;100;1;0;'#1057#1091#1084#1084#1072' '#1041 +
      #1054'|OST;-1;100;1;0;'#1054#1089#1090#1072#1090#1086#1082
    ListDataSet = DSBORef
    ReferCaption = #1042#1080#1076#1099' '#1076#1074#1080#1078#1077#1085#1080#1103
    ReferWidth = 550
    OnSelect = RFBO_Select
    Left = 57
    Top = 112
  end
  object DSBORef: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'PAY\MOVE_TP.DBF'
    OEMTranslate = False
    Left = 135
    Top = 112
  end
  object DSFinTp: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'PAY\FIN_TP.DBF'
    OEMTranslate = False
    IndexName = 'TAG_TP'
    Left = 131
    Top = 65535
  end
  object DSExpDimTp: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'PAY\DopAn_TP.DBF'
    OEMTranslate = False
    IndexName = 'TAG_CODE'
    Left = 389
    Top = 2
  end
end
frmPayVipBnkRee.prg                                                  10409object frmVipBnkRee: TfrmVipBnkRee
  Left = 25
  Top = 25
  Width = 650
  Height = 404
  ActiveControl = bGrid1
  Anchors = []
  BiDiMode = bdRightToLeft
  Caption = #1042#1099#1087#1080#1089#1082#1080' '#1073#1072#1085#1082#1072
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  ParentBiDiMode = False
  Visible = True
  WindowState = wsNormal
  OnClose = Form_Close
  OnCreate = Form_Create
  OnKeyDown = Form_KeyDown
  OnKeyPress = Form_KeyPress
  DesignSize = (
    642
    370)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 8
    Top = 8
    Width = 626
    Height = 331
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    object TabSheet1: TTabSheet
      Caption = #1056#1077#1077#1089#1090#1088
      DesignSize = (
        624
        309)
      object lbObjName: xbLabel
        Left = 144
        Top = 12
        Width = 200
        Height = 17
        Anchors = [akLeft, akTop, akRight]
        Caption = 'lbObjName'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
      end
      object refFinObj: xbLabelEditRefer
        Left = 8
        Top = 8
        Width = 130
        Height = 20
        BorderColor = clWindowText
        Caption = #1054#1073#1098#1077#1082#1090' '#1091#1095#1077#1090#1072
        CaptionExtender = ceNone
        CaptionAlignment = taLeftJustify
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 0
        LabelWidth = 80
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnEnter = refFinObj_Enter
        OnExit = refFinObj_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2;Alt+Down'
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'OBJ_CODE;-1;100;1;0;'#1050#1086#1076'|OBJ_NAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldType = tfCharacterString
        ListDataSet = dsFinObj
        ReferCaption = #1057#1087#1088#1072#1074#1086#1095#1085#1080#1082' '#1086#1073#1098#1077#1082#1090#1086#1074' '#1091#1095#1077#1090#1072
        ReferHeight = 300
        ReferWidth = 300
        xReferId = 0
        IsHarbourRefer = True
        OnSelect = refFinObj_Select
        OnCancel = refFinObj_Cancel
      end
      object bGrid1: xbGrid
        Left = 8
        Top = 35
        Width = 608
        Height = 267
        Anchors = [akLeft, akTop, akRight, akBottom]
        AutoFitColWidths = True
        DataSource = ADS
        Flat = True
        FooterColor = clWindow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -11
        FooterFont.Name = 'MS Sans Serif'
        FooterFont.Style = []
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgAlwaysShowSelection, dgConfirmDelete]
        OptionsEh = [dghFixed3D, dghClearSelection]
        ReadOnly = True
        TabOrder = 1
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        UseMultiTitle = True
        OnDblClick = bGrid1_DblClick
        OnKeyPress = bGrid1_KeyPress
        IdGrid = '{A7DC2538-8291-494A-A9BD-67C985EEAF1F}'
        Columns = <
          item
            EditButtons = <>
            FieldName = 'VAL_CODE'
            Footers = <>
            Title.Caption = #1042#1072#1083#1102#1090#1072
            Width = 34
          end
          item
            Alignment = taCenter
            EditButtons = <>
            FieldName = 'OBJ_DT'
            Footers = <>
            Title.Caption = #1044#1072#1090#1072
            Width = 51
          end
          item
            EditButtons = <>
            FieldName = 'RST_BEG_C'
            Footers = <>
            Title.Caption = #1053#1072#1095#1072#1083#1100#1085#1086#1077' '#1089#1072#1083#1100#1076#1086
            Width = 62
          end
          item
            EditButtons = <>
            FieldName = 'SUM_IN_C'
            Footers = <>
            Title.Caption = #1055#1088#1080#1093#1086#1076
            Width = 62
          end
          item
            EditButtons = <>
            FieldName = 'SUM_OUT_C'
            Footers = <>
            Title.Caption = #1056#1072#1089#1093#1086#1076
            Width = 62
          end
          item
            EditButtons = <>
            FieldName = 'RST_END_C'
            Footers = <>
            Title.Caption = #1050#1086#1085#1077#1095#1085#1086#1077' '#1089#1072#1083#1100#1076#1086
            Width = 62
          end
          item
            EditButtons = <>
            FieldName = 'BEG_LBO'
            Footers = <>
            Title.Caption = #1053#1072#1095#1072#1083#1100#1085#1086#1077' '#1089#1072#1083#1100#1076#1086
            Width = 62
          end
          item
            EditButtons = <>
            FieldName = 'IN_LBO'
            Footers = <>
            Title.Caption = #1055#1088#1080#1093#1086#1076
            Width = 62
          end
          item
            EditButtons = <>
            FieldName = 'OUT_KR'
            Footers = <>
            Title.Caption = #1056#1072#1089#1093#1086#1076
            Width = 62
          end
          item
            EditButtons = <>
            FieldName = 'END_LBO'
            Footers = <>
            Title.Caption = #1050#1086#1085#1077#1095#1085#1086#1077' '#1089#1072#1083#1100#1076#1086
            Width = 65
          end>
      end
    end
  end
  object pMenuOperation: xbPopupButton
    Left = 559
    Top = 347
    Width = 75
    Height = 21
    Caption = #1054#1087#1077#1088#1072#1094#1080#1080
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = MenuOperation
    RoundedButton = True
    TabOrder = 1
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btRashBud: xbButton
    Left = 451
    Top = 347
    Width = 100
    Height = 21
    Hint = ' '#1053#1072#1076#1073#1072#1074#1082#1080' (Ctrl+N)'
    Caption = #1056#1072#1089#1093#1086#1076#1099' '#1073#1102#1076#1078#1077#1090#1072
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 2
    OnClick = btRashBud_Click
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_fin_card'
    Active = False
    Left = 39
    Top = 108
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <
      item
        Name = 'LIST_ID'
        DataType = ftString
        Size = 22
      end
      item
        Name = 'BOOK_CODE'
        DataType = ftString
        Size = 2
      end
      item
        Name = 'CTG'
        DataType = ftFloat
      end
      item
        Name = 'BOOK_PER'
        DataType = ftDate
      end
      item
        Name = 'LIST_DATE'
        DataType = ftDate
      end
      item
        Name = 'LIST_NUM'
        DataType = ftString
        Size = 6
      end
      item
        Name = 'OP_CODE'
        DataType = ftString
        Size = 22
      end
      item
        Name = 'OPNAME'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'STATUS'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'RECALC'
        DataType = ftBoolean
      end
      item
        Name = 'LST_ACT'
        DataType = ftString
        Size = 17
      end
      item
        Name = 'USER_CODE'
        DataType = ftString
        Size = 6
      end
      item
        Name = 'STATUSNAME'
        DataType = ftString
        Size = 10
      end
      item
        Name = 'CTGNAME'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'TYPE_PER'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'Typepername'
        DataType = ftString
        Size = 25
      end>
    ReadOnly = True
    OEMTranslate = False
    Left = 81
    Top = 108
  end
  object ADS: xbADSDataSource
    DataSet = DS
    Left = 122
    Top = 109
  end
  object adsFinObj: xbADSDataSource
    DataSet = dsFinObj
    Left = 112
    Top = 177
  end
  object dsFinObj: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'PAY\FIN_OBJ.DBF'
    OEMTranslate = False
    Left = 41
    Top = 177
  end
  object adsDocType: xbADSDataSource
    DataSet = dsDocType
    Left = 111
    Top = 241
  end
  object dsDocType: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'PAY\DOC_TYPE.DBF'
    OEMTranslate = False
    Left = 39
    Top = 241
  end
  object MenuOperation: xbPopupMenu
    Left = 557
    Top = 268
    object miEditBegRest: TMenuItem
      Caption = #1050#1086#1088#1088#1077#1082#1090#1080#1088#1086#1074#1072#1090#1100' '#1085#1072#1095'. '#1086#1089#1090#1072#1090#1082#1080'           Alt+F4'
      OnClick = miEditBegRest_Click
    end
    object miRecalcRest: TMenuItem
      Caption = #1055#1077#1088#1077#1089#1095#1080#1090#1072#1090#1100' '#1086#1089#1090#1072#1090#1082#1080' '#1087#1086' '#1074#1099#1087#1080#1089#1082#1072#1084'    Alt+R'
      OnClick = miRecalcRest_Click
    end
  end
end
frmPayVipBnkRub.prg                                                  18472object frmPayVipBnkRub: TfrmPayVipBnkRub
  Left = 25
  Top = 25
  Width = 650
  Height = 435
  ActiveControl = bGrid1
  Anchors = []
  BiDiMode = bdRightToLeft
  Caption = #1044#1086#1082#1091#1084#1077#1085#1090#1099' '#1074#1099#1087#1080#1089#1082#1080
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  ParentBiDiMode = False
  Visible = True
  WindowState = wsNormal
  OnClose = Form_Close
  OnCreate = Form_Create
  OnResize = Form_Resize
  OnShow = Form_Show
  DesignSize = (
    642
    401)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 8
    Top = 8
    Width = 626
    Height = 362
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    object TabSheet1: TTabSheet
      Caption = #1056#1077#1077#1089#1090#1088
      DesignSize = (
        624
        340)
      object bGrid1: xbGrid
        Left = 8
        Top = 59
        Width = 608
        Height = 203
        Anchors = [akLeft, akTop, akRight, akBottom]
        AutoFitColWidths = True
        DataSource = ADS
        Flat = True
        FooterColor = clWindow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -11
        FooterFont.Name = 'MS Sans Serif'
        FooterFont.Style = []
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgAlwaysShowSelection, dgConfirmDelete]
        OptionsEh = [dghFixed3D, dghClearSelection]
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        UseMultiTitle = True
        OnDblClick = bGrid1_DblClick
        OnKeyPress = bGrid1_KeyPress
        IdGrid = '{6EDC04F7-38F6-49C1-BE30-EA0AE875D794}'
        Columns = <
          item
            EditButtons = <>
            FieldName = 'DOC_CODE'
            Footers = <>
            Title.Caption = #1044#1086#1082#1091#1084#1077#1085#1090'|'#1074#1080#1076
            Width = 30
          end
          item
            EditButtons = <>
            FieldName = 'DOC_NUM'
            Footers = <>
            Title.Caption = #1044#1086#1082#1091#1084#1077#1085#1090'|'#1085#1086#1084#1077#1088
            Width = 90
          end
          item
            EditButtons = <>
            FieldName = 'DOC_DATE'
            Footers = <>
            Title.Caption = #1044#1086#1082#1091#1084#1077#1085#1090'|'#1076#1072#1090#1072
            Width = 60
          end
          item
            EditButtons = <>
            FieldName = 'VAR_FIELD2'
            Footers = <>
            Title.Caption = #1055#1072#1088#1090#1085#1077#1088'|'#1082#1086#1076
            Width = 58
          end
          item
            EditButtons = <>
            FieldName = 'VAR_FIELD1'
            Footers = <>
            Title.Caption = #1055#1072#1088#1090#1085#1077#1088'|'#1085#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
            Width = 170
          end
          item
            EditButtons = <>
            FieldName = 'SUM_IN'
            Footers = <>
            Title.Caption = #1042' '#1086#1089#1085#1086#1074#1085#1086#1081' '#1074#1072#1083#1102#1090#1077'|'#1087#1088#1080#1093#1086#1076
            Width = 90
          end
          item
            EditButtons = <>
            FieldName = 'SUM_OUT'
            Footers = <>
            Title.Caption = #1042' '#1086#1089#1085#1086#1074#1085#1086#1081' '#1074#1072#1083#1102#1090#1077'|'#1088#1072#1089#1093#1086#1076
            Width = 89
          end>
      end
      object lecBegSaldoIn: xbLabelEditCalc
        Left = 8
        Top = 32
        Width = 400
        Height = 21
        BorderColor = clWindowText
        Caption = #1042#1093#1086#1076#1103#1097#1080#1081' '#1086#1089#1090#1072#1090#1086#1082
        CaptionAlignment = taLeftJustify
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        Enabled = False
        TabOrder = 1
        LabelWidth = 300
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        VisibleButton = False
      end
      object leBegDate: xbLabelEdit
        Left = 8
        Top = 8
        Width = 170
        Height = 21
        BorderColor = clWindowText
        Caption = #1044#1072#1090#1072' '#1085#1072#1095#1072#1083#1072
        CaptionAlignment = taLeftJustify
        DataField = 'PRV_DT'
        DataSource = ADSVipBnk
        ButtonsColor = clBlack
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 2
        LabelWidth = 100
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object lecBegSaldoOut: xbLabelEditCalc
        Left = 441
        Top = 32
        Width = 100
        Height = 21
        BorderColor = clWindowText
        Caption = #1042#1093#1086#1076#1103#1097#1080#1081' '#1086#1089#1090#1072#1090#1086#1082
        CaptionAlignment = taLeftJustify
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        Enabled = False
        TabOrder = 3
        LabelWidth = 0
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        VisibleButton = False
      end
      object lecSumIn: xbLabelEditCalc
        Left = 8
        Top = 268
        Width = 400
        Height = 21
        Anchors = [akLeft, akBottom]
        BorderColor = clWindowText
        Caption = #1048#1090#1086#1075#1086' '#1086#1073#1086#1088#1086#1090#1099
        CaptionAlignment = taLeftJustify
        DataField = 'SUM_IN'
        DataSource = ADSVipBnk
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        Enabled = False
        TabOrder = 4
        LabelWidth = 300
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        VisibleButton = False
      end
      object lecSumOut: xbLabelEditCalc
        Left = 441
        Top = 268
        Width = 100
        Height = 21
        Anchors = [akLeft, akBottom]
        BorderColor = clWindowText
        Caption = #1042#1093#1086#1076#1103#1097#1080#1081' '#1086#1089#1090#1072#1090#1086#1082
        CaptionAlignment = taLeftJustify
        DataField = 'SUM_OUT'
        DataSource = ADSVipBnk
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        Enabled = False
        TabOrder = 5
        LabelWidth = 0
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        VisibleButton = False
      end
      object lecEndSaldoIn: xbLabelEditCalc
        Left = 8
        Top = 292
        Width = 400
        Height = 21
        Anchors = [akLeft, akBottom]
        BorderColor = clWindowText
        Caption = #1048#1089#1093#1086#1076#1103#1097#1080#1081' '#1086#1089#1090#1072#1090#1086#1082
        CaptionAlignment = taLeftJustify
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        Enabled = False
        TabOrder = 6
        LabelWidth = 300
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        VisibleButton = False
      end
      object lecEndSaldoOut: xbLabelEditCalc
        Left = 441
        Top = 292
        Width = 100
        Height = 21
        Anchors = [akLeft, akBottom]
        BorderColor = clWindowText
        Caption = #1042#1093#1086#1076#1103#1097#1080#1081' '#1086#1089#1090#1072#1090#1086#1082
        CaptionAlignment = taLeftJustify
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        Enabled = False
        TabOrder = 7
        LabelWidth = 0
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        VisibleButton = False
      end
      object leEndDate: xbLabelEdit
        Left = 8
        Top = 316
        Width = 170
        Height = 21
        Anchors = [akLeft, akBottom]
        BorderColor = clWindowText
        Caption = #1044#1072#1090#1072' '#1086#1082#1086#1085#1095#1072#1085#1080#1103
        CaptionAlignment = taLeftJustify
        DataField = 'OBJ_DT'
        DataSource = ADSVipBnk
        ButtonsColor = clBlack
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 8
        LabelWidth = 100
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
    end
  end
  object pMenuOperation: xbPopupButton
    Left = 476
    Top = 378
    Width = 75
    Height = 21
    Caption = #1054#1087#1077#1088#1072#1094#1080#1080
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = MenuOperation
    RoundedButton = True
    TabOrder = 3
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btRaschet: xbPopupButton
    Left = 310
    Top = 378
    Width = 75
    Height = 21
    Caption = #1056#1072#1089#1095#1077#1090#1099
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = MenuRaschet
    RoundedButton = True
    TabOrder = 1
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btSchFact: xbButton
    Left = 393
    Top = 378
    Width = 75
    Height = 21
    Hint = #1057#1095#1077#1090#1072'-'#1092#1072#1082#1090#1091#1088#1099
    Caption = #1060#1072#1082#1090#1091#1088#1072
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 2
    OnClick = btSchFact_Click
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object bpFunction: xbPopupButton
    Left = 559
    Top = 378
    Width = 75
    Height = 21
    Caption = #1060#1091#1085#1082#1094#1080#1080
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = bpnFunction
    RoundedButton = True
    TabOrder = 4
    OnClick = bpFunction_Click
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_fin_doc'
    Active = False
    Left = 42
    Top = 153
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <
      item
        Name = 'LIST_ID'
        DataType = ftString
        Size = 22
      end
      item
        Name = 'BOOK_CODE'
        DataType = ftString
        Size = 2
      end
      item
        Name = 'CTG'
        DataType = ftFloat
      end
      item
        Name = 'BOOK_PER'
        DataType = ftDate
      end
      item
        Name = 'LIST_DATE'
        DataType = ftDate
      end
      item
        Name = 'LIST_NUM'
        DataType = ftString
        Size = 6
      end
      item
        Name = 'OP_CODE'
        DataType = ftString
        Size = 22
      end
      item
        Name = 'OPNAME'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'STATUS'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'RECALC'
        DataType = ftBoolean
      end
      item
        Name = 'LST_ACT'
        DataType = ftString
        Size = 17
      end
      item
        Name = 'USER_CODE'
        DataType = ftString
        Size = 6
      end
      item
        Name = 'STATUSNAME'
        DataType = ftString
        Size = 10
      end
      item
        Name = 'CTGNAME'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'TYPE_PER'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'Typepername'
        DataType = ftString
        Size = 25
      end>
    ReadOnly = True
    OEMTranslate = False
    Left = 84
    Top = 152
  end
  object ADS: xbADSDataSource
    DataSet = DS
    Left = 121
    Top = 152
  end
  object BODocCmp: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_DOC_CMP'
    Active = False
    Left = 204
    Top = 157
  end
  object DSDocCmp: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BODocCmp
    FieldDefs = <>
    OEMTranslate = False
    Left = 273
    Top = 156
  end
  object ADSDocCmp: xbADSDataSource
    DataSet = DSDocCmp
    Left = 341
    Top = 154
  end
  object BOVipBnk: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_fin_card'
    Active = False
    Left = 44
    Top = 237
  end
  object DSVipBnk: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOVipBnk
    FieldDefs = <
      item
        Name = 'LIST_ID'
        DataType = ftString
        Size = 22
      end
      item
        Name = 'BOOK_CODE'
        DataType = ftString
        Size = 2
      end
      item
        Name = 'CTG'
        DataType = ftFloat
      end
      item
        Name = 'BOOK_PER'
        DataType = ftDate
      end
      item
        Name = 'LIST_DATE'
        DataType = ftDate
      end
      item
        Name = 'LIST_NUM'
        DataType = ftString
        Size = 6
      end
      item
        Name = 'OP_CODE'
        DataType = ftString
        Size = 22
      end
      item
        Name = 'OPNAME'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'STATUS'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'RECALC'
        DataType = ftBoolean
      end
      item
        Name = 'LST_ACT'
        DataType = ftString
        Size = 17
      end
      item
        Name = 'USER_CODE'
        DataType = ftString
        Size = 6
      end
      item
        Name = 'STATUSNAME'
        DataType = ftString
        Size = 10
      end
      item
        Name = 'CTGNAME'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'TYPE_PER'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'Typepername'
        DataType = ftString
        Size = 25
      end>
    ReadOnly = True
    OEMTranslate = False
    Left = 98
    Top = 237
  end
  object ADSVipBnk: xbADSDataSource
    DataSet = DSVipBnk
    Left = 159
    Top = 236
  end
  object MenuOperation: xbPopupMenu
    Left = 556
    Top = 268
    object miGroupReg: TMenuItem
      Caption = #1043#1088#1091#1087#1087#1086#1074#1072#1103' '#1088#1077#1075#1080#1089#1090#1088#1072#1094#1080#1103
      OnClick = miGroupReg_Click
    end
  end
  object RFMoveTp: xbReferCaller
    ColumnsTune = 'MV_CODE;-1;50;1;0;'#1050#1086#1076'|MV_NAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
    ListDataSet = DSMoveTpRef
    ReferCaption = #1042#1080#1076#1099' '#1076#1074#1080#1078#1077#1085#1080#1103
    ReferHeight = 380
    ReferWidth = 450
    OnSelect = RFMoveTp_Select
    ReferParentWindowState = False
    Left = 240
    Top = 233
  end
  object DSMoveTpRef: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'PAY\MOVE_TP.DBF'
    OEMTranslate = False
    Left = 318
    Top = 233
  end
  object MenuRaschet: xbPopupMenu
    Left = 454
    Top = 268
    object miDocOsn: TMenuItem
      Caption = #1044#1086#1082#1091#1084#1077#1085#1090'-'#1086#1089#1085#1086#1074#1072#1085#1080#1077
    end
    object miBalans: TMenuItem
      Caption = #1041#1072#1083#1072#1085#1089
    end
  end
  object bpnFunction: xbPopupMenu
    Left = 387
    Top = 208
  end
end
frmPayVipBnkAdd.prg                                                   9445object frmPayVipBnkAdd: TfrmPayVipBnkAdd
  Left = 25
  Top = 25
  Width = 330
  Height = 208
  Anchors = []
  Caption = #1053#1086#1074#1072#1103' '#1074#1099#1087#1080#1089#1082#1072
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  WindowState = wsNormal
  OnActivate = Form_Activate
  OnClose = Form_Close
  OnCloseQuery = Form_CloseQuery
  OnCreate = Form_Create
  DesignSize = (
    322
    174)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 8
    Top = 8
    Width = 306
    Height = 130
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    object TabSheet1: TTabSheet
      Caption = #1053#1072#1095#1072#1083#1100#1085#1099#1081' '#1086#1089#1090#1072#1090#1086#1082
      object lecRtBeg: xbLabelEditCalc
        Left = 188
        Top = 32
        Width = 110
        Height = 21
        BorderColor = clWindowText
        Caption = #1050#1091#1088#1089
        CaptionAlignment = taLeftJustify
        DataField = 'RT_BEG'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 2
        LabelWidth = 30
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        VisibleButton = False
      end
      object lecRtEnd: xbLabelEditCalc
        Left = 188
        Top = 56
        Width = 110
        Height = 21
        BorderColor = clWindowText
        Caption = #1050#1091#1088#1089
        CaptionAlignment = taLeftJustify
        DataField = 'RT_END'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 4
        LabelWidth = 30
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        VisibleButton = False
      end
      object lerVal: xbLabelEditRefer
        Left = 8
        Top = 8
        Width = 170
        Height = 21
        BorderColor = clWindowText
        Caption = #1042#1072#1083#1102#1090#1072
        CaptionAlignment = taLeftJustify
        DataField = 'VAL_CODE'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 0
        LabelWidth = 90
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'VAL_CODE'
        BeforeButtonClick = lerVal_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'CODE;-1;50;1;-1;'#1050#1086#1076'|NAME;-1;200;1;-1;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldName = 'CODE'
        FindFieldType = tfCharacterString
        ListDataSet = DSVal
        OutFieldsArray = 'CODE'
        PutFieldsArray = 'VAL_CODE'
        ReferCaption = #1057#1087#1088#1072#1074#1086#1095#1085#1080#1082' '#1074#1072#1083#1102#1090
        TypeFindFieldName = 'CODE'
        xReferId = 0
        IsHarbourRefer = True
        OnSelect = lerVal_Select
      end
      object lecRstBegC: xbLabelEditCalc
        Left = 8
        Top = 80
        Width = 290
        Height = 21
        BorderColor = clWindowText
        Caption = #1053#1072#1095#1072#1083#1100#1085#1086#1077' '#1089#1072#1083#1100#1076#1086' '#1074' '#1074#1072#1083#1102#1090#1077
        CaptionAlignment = taLeftJustify
        DataField = 'RST_BEG_C'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 5
        LabelWidth = 210
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        VisibleButton = False
      end
      object leBegDate: xbLabelEditCalend
        Left = 8
        Top = 32
        Width = 170
        Height = 21
        BorderColor = clWindowText
        Caption = #1044#1072#1090#1072' '#1085#1072#1095#1072#1083#1072
        CaptionAlignment = taLeftJustify
        DataField = 'PRV_DT'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        EditMask = '!99/99/0000;1; '
        TabOrder = 1
        LabelWidth = 90
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        MaxLength = 10
        Text = '  /  /    '
        OnBeforeExit = leBegDate_BeforeExit
        OnExit = leBegDate_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2;Alt+Down'
        ClearFields = 'PRV_DT'
        VisibleButton = False
      end
      object leEndDate: xbLabelEditCalend
        Left = 8
        Top = 56
        Width = 170
        Height = 21
        BorderColor = clWindowText
        Caption = #1044#1072#1090#1072' '#1086#1082#1086#1085#1095#1072#1085#1080#1103
        CaptionAlignment = taLeftJustify
        DataField = 'OBJ_DT'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        EditMask = '!99/99/0000;1; '
        TabOrder = 3
        LabelWidth = 90
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        MaxLength = 10
        Text = '  /  /    '
        OnBeforeExit = leEndDate_BeforeExit
        OnExit = leEndDate_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2;Alt+Down'
        ClearFields = 'OBJ_DT'
        VisibleButton = False
      end
    end
  end
  object btnOK: xbButton
    Left = 155
    Top = 146
    Width = 75
    Height = 21
    Hint = #1057#1086#1093#1088#1072#1085#1077#1085#1080#1077' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (F10)'
    Caption = #1054#1050
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 1
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btnCANCEL: xbButton
    Left = 242
    Top = 146
    Width = 75
    Height = 21
    Hint = #1042#1099#1093#1086#1076' '#1080#1079' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (Esc)'
    Caption = #1054#1090#1084#1077#1085#1072
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 2
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_FIN_CARD'
    Active = False
    Left = 79
    Top = 2
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <>
    OEMTranslate = False
    AfterEdit = DS_AfterEdit
    Left = 156
  end
  object ADS: xbADSDataSource
    DataSet = DS
    Left = 119
    Top = 1
  end
  object BOVal: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsValuta'
    Active = False
    Left = 212
    Top = 5
  end
  object DSVal: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOVal
    FieldDefs = <>
    OEMTranslate = False
    Left = 255
    Top = 5
  end
  object BOSeek: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_FIN_CARD'
    Active = False
    Left = 18
    Top = 124
  end
  object DSSeek: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOSeek
    FieldDefs = <>
    OEMTranslate = False
    AfterEdit = DS_AfterEdit
    Left = 69
    Top = 126
  end
  object DSPeriod: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'Period'
    OEMTranslate = False
    IndexName = 'TAG_YEAR'
    Left = 120
    Top = 125
  end
  object DSVCurs: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'VCurs'
    OEMTranslate = False
    IndexName = 'VALUTA'
    Left = 246
    Top = 56
  end
end
frmPayVipBnkVal.prg                                                  29006object frmPayVipBnkVal: TfrmPayVipBnkVal
  Left = 25
  Top = 25
  Width = 650
  Height = 435
  ActiveControl = bGrid1
  Anchors = []
  BiDiMode = bdRightToLeft
  Caption = #1044#1086#1082#1091#1084#1077#1085#1090#1099' '#1074#1099#1087#1080#1089#1082#1080
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  ParentBiDiMode = False
  Visible = True
  WindowState = wsNormal
  OnClose = Form_Close
  OnCreate = Form_Create
  OnResize = Form_Resize
  OnShow = Form_Show
  DesignSize = (
    642
    401)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 8
    Top = 8
    Width = 626
    Height = 362
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    object TabSheet1: TTabSheet
      Caption = #1056#1077#1077#1089#1090#1088
      DesignSize = (
        624
        340)
      object lbPartName: xbLabel
        Left = 187
        Top = 247
        Width = 350
        Height = 17
        Anchors = [akLeft, akRight, akBottom]
        Caption = 'lbPartName'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
        DataField = 'VAR_FIELD1'
        DataSource = ADS
      end
      object bGrid1: xbGrid
        Left = 8
        Top = 59
        Width = 608
        Height = 179
        Anchors = [akLeft, akTop, akRight, akBottom]
        AutoFitColWidths = True
        DataSource = ADS
        Flat = True
        FooterColor = clWindow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -11
        FooterFont.Name = 'MS Sans Serif'
        FooterFont.Style = []
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgAlwaysShowSelection, dgConfirmDelete]
        OptionsEh = [dghFixed3D, dghClearSelection]
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        UseMultiTitle = True
        OnDblClick = bGrid1_DblClick
        OnKeyPress = bGrid1_KeyPress
        IdGrid = '{3B4AF025-45B0-43E6-83A6-E5ED979CBAA5}'
        Columns = <
          item
            EditButtons = <>
            FieldName = 'DOC_CODE'
            Footers = <>
            Title.Caption = #1044#1086#1082#1091#1084#1077#1085#1090'|'#1074#1080#1076
            Width = 37
          end
          item
            EditButtons = <>
            FieldName = 'DOC_NUM'
            Footers = <>
            Title.Caption = #1044#1086#1082#1091#1084#1077#1085#1090'|'#1085#1086#1084#1077#1088
            Width = 90
          end
          item
            EditButtons = <>
            FieldName = 'DOC_DATE'
            Footers = <>
            Title.Caption = #1044#1086#1082#1091#1084#1077#1085#1090'|'#1076#1072#1090#1072
            Width = 60
          end
          item
            EditButtons = <>
            FieldName = 'SUM_IN_C'
            Footers = <>
            Title.Caption = #1042' '#1074#1072#1083#1102#1090#1077'|'#1087#1088#1080#1093#1086#1076
            Width = 100
          end
          item
            EditButtons = <>
            FieldName = 'SUM_OUT_C'
            Footers = <>
            Title.Caption = #1042' '#1074#1072#1083#1102#1090#1077'|'#1088#1072#1089#1093#1086#1076
            Width = 100
          end
          item
            EditButtons = <>
            FieldName = 'SUM_IN'
            Footers = <>
            Title.Caption = #1042' '#1086#1089#1085#1086#1074#1085#1086#1081' '#1074#1072#1083#1102#1090#1077'|'#1087#1088#1080#1093#1086#1076
            Width = 100
          end
          item
            EditButtons = <>
            FieldName = 'SUM_OUT'
            Footers = <>
            Title.Caption = #1042' '#1086#1089#1085#1086#1074#1085#1086#1081' '#1074#1072#1083#1102#1090#1077'|'#1088#1072#1089#1093#1086#1076
            Width = 100
          end>
      end
      object lecBegSaldoInC: xbLabelEditCalc
        Left = 8
        Top = 32
        Width = 300
        Height = 21
        BorderColor = clWindowText
        Caption = #1042#1093#1086#1076#1103#1097#1080#1081' '#1086#1089#1090#1072#1090#1086#1082
        CaptionAlignment = taLeftJustify
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        Enabled = False
        TabOrder = 1
        LabelWidth = 200
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        OnEnter = lecBegSaldoInC_Enter
        OnExit = lecBegSaldoInC_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        VisibleButton = False
        OnSelect = lecBegSaldoInC_Select
      end
      object leBegDate: xbLabelEdit
        Left = 8
        Top = 8
        Width = 170
        Height = 21
        BorderColor = clWindowText
        Caption = #1044#1072#1090#1072' '#1085#1072#1095#1072#1083#1072
        CaptionAlignment = taLeftJustify
        DataField = 'PRV_DT'
        DataSource = ADSVipBnk
        ButtonsColor = clBlack
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 2
        LabelWidth = 100
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object lecBegSaldoOutC: xbLabelEditCalc
        Left = 308
        Top = 32
        Width = 100
        Height = 21
        BorderColor = clWindowText
        Caption = #1042#1093#1086#1076#1103#1097#1080#1081' '#1086#1089#1090#1072#1090#1086#1082
        CaptionAlignment = taLeftJustify
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        Enabled = False
        TabOrder = 3
        LabelWidth = 0
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        OnEnter = lecBegSaldoInC_Enter
        OnExit = lecBegSaldoInC_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        VisibleButton = False
        OnSelect = lecBegSaldoInC_Select
      end
      object lecSumInC: xbLabelEditCalc
        Left = 8
        Top = 268
        Width = 300
        Height = 21
        Anchors = [akLeft, akBottom]
        BorderColor = clWindowText
        Caption = #1048#1090#1086#1075#1086' '#1086#1073#1086#1088#1086#1090#1099
        CaptionAlignment = taLeftJustify
        DataField = 'SUM_IN_C'
        DataSource = ADSVipBnk
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        Enabled = False
        TabOrder = 4
        LabelWidth = 200
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        OnEnter = lecBegSaldoInC_Enter
        OnExit = lecBegSaldoInC_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        VisibleButton = False
        OnSelect = lecBegSaldoInC_Select
      end
      object lecSumOutC: xbLabelEditCalc
        Left = 308
        Top = 268
        Width = 100
        Height = 21
        Anchors = [akLeft, akBottom]
        BorderColor = clWindowText
        Caption = #1042#1093#1086#1076#1103#1097#1080#1081' '#1086#1089#1090#1072#1090#1086#1082
        CaptionAlignment = taLeftJustify
        DataField = 'SUM_OUT_C'
        DataSource = ADSVipBnk
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        Enabled = False
        TabOrder = 5
        LabelWidth = 0
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        OnEnter = lecBegSaldoInC_Enter
        OnExit = lecBegSaldoInC_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        VisibleButton = False
        OnSelect = lecBegSaldoInC_Select
      end
      object lecEndSaldoInC: xbLabelEditCalc
        Left = 8
        Top = 292
        Width = 300
        Height = 21
        Anchors = [akLeft, akBottom]
        BorderColor = clWindowText
        Caption = #1048#1089#1093#1086#1076#1103#1097#1080#1081' '#1086#1089#1090#1072#1090#1086#1082
        CaptionAlignment = taLeftJustify
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        Enabled = False
        TabOrder = 6
        LabelWidth = 200
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        OnEnter = lecBegSaldoInC_Enter
        OnExit = lecBegSaldoInC_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        VisibleButton = False
        OnSelect = lecBegSaldoInC_Select
      end
      object lecEndSaldoOutC: xbLabelEditCalc
        Left = 308
        Top = 292
        Width = 100
        Height = 21
        Anchors = [akLeft, akBottom]
        BorderColor = clWindowText
        Caption = #1042#1093#1086#1076#1103#1097#1080#1081' '#1086#1089#1090#1072#1090#1086#1082
        CaptionAlignment = taLeftJustify
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        Enabled = False
        TabOrder = 7
        LabelWidth = 0
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        OnEnter = lecBegSaldoInC_Enter
        OnExit = lecBegSaldoInC_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        VisibleButton = False
        OnSelect = lecBegSaldoInC_Select
      end
      object leEndDate: xbLabelEdit
        Left = 8
        Top = 316
        Width = 170
        Height = 21
        Anchors = [akLeft, akBottom]
        BorderColor = clWindowText
        Caption = #1044#1072#1090#1072' '#1086#1082#1086#1085#1095#1072#1085#1080#1103
        CaptionAlignment = taLeftJustify
        DataField = 'OBJ_DT'
        DataSource = ADSVipBnk
        ButtonsColor = clBlack
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 8
        LabelWidth = 100
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object lePartCode: xbLabelEdit
        Left = 8
        Top = 244
        Width = 170
        Height = 21
        Anchors = [akLeft, akBottom]
        BorderColor = clWindowText
        Caption = #1055#1072#1088#1090#1085#1077#1088
        CaptionAlignment = taLeftJustify
        DataField = 'VAR_FIELD2'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 9
        LabelWidth = 100
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object lecBegSaldoIn: xbLabelEditCalc
        Left = 408
        Top = 32
        Width = 100
        Height = 21
        BorderColor = clWindowText
        Caption = #1042#1093#1086#1076#1103#1097#1080#1081' '#1086#1089#1090#1072#1090#1086#1082
        CaptionAlignment = taLeftJustify
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        Enabled = False
        TabOrder = 10
        LabelWidth = 0
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        OnEnter = lecBegSaldoInC_Enter
        OnExit = lecBegSaldoInC_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        VisibleButton = False
        OnSelect = lecBegSaldoInC_Select
      end
      object lecBegSaldoOut: xbLabelEditCalc
        Left = 508
        Top = 32
        Width = 100
        Height = 21
        BorderColor = clWindowText
        Caption = #1042#1093#1086#1076#1103#1097#1080#1081' '#1086#1089#1090#1072#1090#1086#1082
        CaptionAlignment = taLeftJustify
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        Enabled = False
        TabOrder = 11
        LabelWidth = 0
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        OnEnter = lecBegSaldoInC_Enter
        OnExit = lecBegSaldoInC_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        VisibleButton = False
        OnSelect = lecBegSaldoInC_Select
      end
      object lecSumIn: xbLabelEditCalc
        Left = 408
        Top = 268
        Width = 100
        Height = 21
        Anchors = [akLeft, akBottom]
        BorderColor = clWindowText
        Caption = #1042#1093#1086#1076#1103#1097#1080#1081' '#1086#1089#1090#1072#1090#1086#1082
        CaptionAlignment = taLeftJustify
        DataField = 'SUM_IN'
        DataSource = ADSVipBnk
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        Enabled = False
        TabOrder = 12
        LabelWidth = 0
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        OnEnter = lecBegSaldoInC_Enter
        OnExit = lecBegSaldoInC_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        VisibleButton = False
        OnSelect = lecBegSaldoInC_Select
      end
      object lecSumOut: xbLabelEditCalc
        Left = 508
        Top = 268
        Width = 100
        Height = 21
        Anchors = [akLeft, akBottom]
        BorderColor = clWindowText
        Caption = #1042#1093#1086#1076#1103#1097#1080#1081' '#1086#1089#1090#1072#1090#1086#1082
        CaptionAlignment = taLeftJustify
        DataField = 'SUM_OUT'
        DataSource = ADSVipBnk
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        Enabled = False
        TabOrder = 13
        LabelWidth = 0
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        OnEnter = lecBegSaldoInC_Enter
        OnExit = lecBegSaldoInC_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        VisibleButton = False
        OnSelect = lecBegSaldoInC_Select
      end
      object lecEndSaldoIn: xbLabelEditCalc
        Left = 408
        Top = 292
        Width = 100
        Height = 21
        Anchors = [akLeft, akBottom]
        BorderColor = clWindowText
        Caption = #1042#1093#1086#1076#1103#1097#1080#1081' '#1086#1089#1090#1072#1090#1086#1082
        CaptionAlignment = taLeftJustify
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        Enabled = False
        TabOrder = 14
        LabelWidth = 0
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        OnEnter = lecBegSaldoInC_Enter
        OnExit = lecBegSaldoInC_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        VisibleButton = False
        OnSelect = lecBegSaldoInC_Select
      end
      object lecEndSaldoOut: xbLabelEditCalc
        Left = 508
        Top = 292
        Width = 100
        Height = 21
        Anchors = [akLeft, akBottom]
        BorderColor = clWindowText
        Caption = #1042#1093#1086#1076#1103#1097#1080#1081' '#1086#1089#1090#1072#1090#1086#1082
        CaptionAlignment = taLeftJustify
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        Enabled = False
        TabOrder = 15
        LabelWidth = 0
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        OnEnter = lecBegSaldoInC_Enter
        OnExit = lecBegSaldoInC_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        VisibleButton = False
        OnSelect = lecBegSaldoInC_Select
      end
      object leRtBeg: xbLabelEdit
        Left = 187
        Top = 8
        Width = 110
        Height = 21
        BorderColor = clWindowText
        Caption = #1050#1091#1088#1089
        CaptionAlignment = taLeftJustify
        DataField = 'RT_BEG'
        DataSource = ADSVipBnk
        ButtonsColor = clBlack
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 16
        LabelWidth = 30
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leValCode: xbLabelEdit
        Left = 307
        Top = 8
        Width = 188
        Height = 21
        BorderColor = clWindowText
        Caption = #1042#1072#1083#1102#1090#1072
        CaptionAlignment = taLeftJustify
        DataField = 'VAL_CODE'
        DataSource = ADSVipBnk
        ButtonsColor = clBlack
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 17
        LabelWidth = 108
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leRtEnd: xbLabelEdit
        Left = 187
        Top = 316
        Width = 110
        Height = 21
        Anchors = [akLeft, akBottom]
        BorderColor = clWindowText
        Caption = #1050#1091#1088#1089
        CaptionAlignment = taLeftJustify
        DataField = 'RT_END'
        DataSource = ADSVipBnk
        ButtonsColor = clBlack
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 18
        LabelWidth = 30
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leSumRev: xbLabelEdit
        Left = 307
        Top = 316
        Width = 188
        Height = 21
        Anchors = [akLeft, akBottom]
        BorderColor = clWindowText
        Caption = #1050#1091#1088#1089#1086#1074#1072#1103' '#1088#1072#1079#1085#1080#1094#1072
        CaptionAlignment = taLeftJustify
        DataField = 'SUM_REV'
        DataSource = ADSVipBnk
        ButtonsColor = clBlack
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 19
        LabelWidth = 108
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
    end
  end
  object pMenuOperation: xbPopupButton
    Left = 476
    Top = 378
    Width = 75
    Height = 21
    Caption = #1054#1087#1077#1088#1072#1094#1080#1080
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = MenuOperation
    RoundedButton = True
    TabOrder = 2
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btRaschet: xbPopupButton
    Left = 393
    Top = 378
    Width = 75
    Height = 21
    Caption = #1056#1072#1089#1095#1077#1090#1099
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = MenuRaschet
    RoundedButton = True
    TabOrder = 1
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object bpFunction: xbPopupButton
    Left = 559
    Top = 378
    Width = 75
    Height = 21
    Caption = #1060#1091#1085#1082#1094#1080#1080
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = bpnFunction
    RoundedButton = True
    TabOrder = 3
    OnClick = bpFunction_Click
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_fin_doc'
    Active = False
    Left = 42
    Top = 153
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <
      item
        Name = 'LIST_ID'
        DataType = ftString
        Size = 22
      end
      item
        Name = 'BOOK_CODE'
        DataType = ftString
        Size = 2
      end
      item
        Name = 'CTG'
        DataType = ftFloat
      end
      item
        Name = 'BOOK_PER'
        DataType = ftDate
      end
      item
        Name = 'LIST_DATE'
        DataType = ftDate
      end
      item
        Name = 'LIST_NUM'
        DataType = ftString
        Size = 6
      end
      item
        Name = 'OP_CODE'
        DataType = ftString
        Size = 22
      end
      item
        Name = 'OPNAME'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'STATUS'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'RECALC'
        DataType = ftBoolean
      end
      item
        Name = 'LST_ACT'
        DataType = ftString
        Size = 17
      end
      item
        Name = 'USER_CODE'
        DataType = ftString
        Size = 6
      end
      item
        Name = 'STATUSNAME'
        DataType = ftString
        Size = 10
      end
      item
        Name = 'CTGNAME'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'TYPE_PER'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'Typepername'
        DataType = ftString
        Size = 25
      end>
    ReadOnly = True
    OEMTranslate = False
    Left = 84
    Top = 152
  end
  object ADS: xbADSDataSource
    DataSet = DS
    Left = 121
    Top = 152
  end
  object BODocCmp: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_DOC_CMP'
    Active = False
    Left = 204
    Top = 157
  end
  object DSDocCmp: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BODocCmp
    FieldDefs = <>
    OEMTranslate = False
    Left = 273
    Top = 156
  end
  object ADSDocCmp: xbADSDataSource
    DataSet = DSDocCmp
    Left = 341
    Top = 154
  end
  object BOVipBnk: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_fin_card'
    Active = False
    Left = 44
    Top = 237
  end
  object DSVipBnk: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOVipBnk
    FieldDefs = <
      item
        Name = 'LIST_ID'
        DataType = ftString
        Size = 22
      end
      item
        Name = 'BOOK_CODE'
        DataType = ftString
        Size = 2
      end
      item
        Name = 'CTG'
        DataType = ftFloat
      end
      item
        Name = 'BOOK_PER'
        DataType = ftDate
      end
      item
        Name = 'LIST_DATE'
        DataType = ftDate
      end
      item
        Name = 'LIST_NUM'
        DataType = ftString
        Size = 6
      end
      item
        Name = 'OP_CODE'
        DataType = ftString
        Size = 22
      end
      item
        Name = 'OPNAME'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'STATUS'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'RECALC'
        DataType = ftBoolean
      end
      item
        Name = 'LST_ACT'
        DataType = ftString
        Size = 17
      end
      item
        Name = 'USER_CODE'
        DataType = ftString
        Size = 6
      end
      item
        Name = 'STATUSNAME'
        DataType = ftString
        Size = 10
      end
      item
        Name = 'CTGNAME'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'TYPE_PER'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'Typepername'
        DataType = ftString
        Size = 25
      end>
    ReadOnly = True
    OEMTranslate = False
    Left = 98
    Top = 237
  end
  object ADSVipBnk: xbADSDataSource
    DataSet = DSVipBnk
    Left = 159
    Top = 236
  end
  object MenuOperation: xbPopupMenu
    Left = 557
    Top = 282
    object miGroupReg: TMenuItem
      Caption = #1043#1088#1091#1087#1087#1086#1074#1072#1103' '#1088#1077#1075#1080#1089#1090#1088#1072#1094#1080#1103
      OnClick = miGroupReg_Click
    end
  end
  object RFMoveTp: xbReferCaller
    ColumnsTune = 'MV_CODE;-1;50;1;0;'#1050#1086#1076'|MV_NAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
    ListDataSet = DSMoveTpRef
    ReferCaption = #1042#1080#1076#1099' '#1076#1074#1080#1078#1077#1085#1080#1103
    ReferHeight = 380
    ReferWidth = 450
    OnSelect = RFMoveTp_Select
    ReferParentWindowState = False
    Left = 240
    Top = 233
  end
  object DSMoveTpRef: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'PAY\MOVE_TP.DBF'
    OEMTranslate = False
    Left = 318
    Top = 233
  end
  object MenuRaschet: xbPopupMenu
    Left = 454
    Top = 268
    object miDocOsn: TMenuItem
      Caption = #1044#1086#1082#1091#1084#1077#1085#1090'-'#1086#1089#1085#1086#1074#1072#1085#1080#1077
      OnClick = miDocOsn_Click
    end
    object miBalans: TMenuItem
      Caption = #1041#1072#1083#1072#1085#1089
      OnClick = miBalans_Click
    end
  end
  object bpnFunction: xbPopupMenu
    Left = 413
    Top = 210
  end
end
frmPayFinDocReg.prg                                                   8520object frmPayFinDocReg: TfrmPayFinDocReg
  Left = 25
  Top = 25
  Width = 650
  Height = 434
  ActiveControl = bGrid1
  Anchors = []
  BiDiMode = bdRightToLeft
  Caption = #1056#1077#1075#1080#1089#1090#1088#1072#1094#1080#1103' '#1074#1099#1087#1080#1089#1072#1085#1085#1099#1093' '#1076#1086#1082#1091#1084#1077#1085#1090#1086#1074
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  ParentBiDiMode = False
  Visible = True
  WindowState = wsNormal
  OnClose = Form_Close
  OnCreate = Form_Create
  DesignSize = (
    642
    400)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 8
    Top = 8
    Width = 626
    Height = 361
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    object TabSheet1: TTabSheet
      Caption = #1056#1077#1077#1089#1090#1088
      DesignSize = (
        624
        339)
      object bGrid1: xbGrid
        Left = 8
        Top = 8
        Width = 608
        Height = 324
        Anchors = [akLeft, akTop, akRight, akBottom]
        AutoFitColWidths = True
        DataSource = ADS
        Flat = True
        FooterColor = clWindow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -11
        FooterFont.Name = 'MS Sans Serif'
        FooterFont.Style = []
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgAlwaysShowSelection, dgConfirmDelete]
        OptionsEh = [dghFixed3D, dghClearSelection]
        PopupMenu = MenuOperation
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        UseMultiTitle = True
        OnCellClick = bGrid1_CellClick
        OnKeyDown = bGrid1_KeyDown
        IdGrid = '{940751FC-5AF1-410C-8E7D-522715F26C00}'
        Columns = <
          item
            EditButtons = <>
            FieldName = 'X_ISMARK_'
            Footers = <>
            PopupMenu = MenuOperation
            Title.Caption = '   '
            Width = 22
          end
          item
            EditButtons = <>
            FieldName = 'MV_CODE'
            Footers = <>
            PopupMenu = MenuOperation
            Title.Caption = #1042#1080#1076' '#1076#1074#1080#1078#1077#1085#1080#1103
            Width = 58
          end
          item
            EditButtons = <>
            FieldName = 'DOC_CODE'
            Footers = <>
            PopupMenu = MenuOperation
            Title.Caption = #1044#1086#1082#1091#1084#1077#1085#1090'|'#1074#1080#1076
            Width = 40
          end
          item
            EditButtons = <>
            FieldName = 'DOC_NUM'
            Footers = <>
            PopupMenu = MenuOperation
            Title.Caption = #1044#1086#1082#1091#1084#1077#1085#1090'|'#1085#1086#1084#1077#1088
            Width = 90
          end
          item
            EditButtons = <>
            FieldName = 'DOC_DATE'
            Footers = <>
            PopupMenu = MenuOperation
            Title.Caption = #1044#1086#1082#1091#1084#1077#1085#1090'|'#1076#1072#1090#1072
            Width = 72
          end
          item
            EditButtons = <>
            FieldName = 'VAR_FIELD1'
            Footers = <>
            PopupMenu = MenuOperation
            Title.Caption = #1055#1072#1088#1090#1085#1077#1088
            Width = 170
          end
          item
            EditButtons = <>
            FieldName = 'CURR'
            Footers = <>
            PopupMenu = MenuOperation
            Title.Caption = #1042#1072#1083#1102#1090#1072
            Width = 45
          end
          item
            EditButtons = <>
            FieldName = 'SUM_C'
            Footers = <>
            PopupMenu = MenuOperation
            Title.Caption = #1057#1091#1084#1084#1072
            Width = 89
          end>
      end
    end
  end
  object btnOK: xbButton
    Left = 476
    Top = 378
    Width = 75
    Height = 21
    Hint = #1057#1086#1093#1088#1072#1085#1077#1085#1080#1077' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (F10)'
    Caption = #1042#1099#1073#1088#1072#1090#1100
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 1
    OnClick = btnOK_Click
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btnCANCEL: xbButton
    Left = 559
    Top = 378
    Width = 75
    Height = 21
    Hint = #1042#1099#1093#1086#1076' '#1080#1079' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (Esc)'
    Caption = #1054#1090#1084#1077#1085#1072
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 2
    OnClick = btnCANCEL_Click
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_fin_doc'
    Active = False
    Left = 38
    Top = 107
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <
      item
        Name = 'LIST_ID'
        DataType = ftString
        Size = 22
      end
      item
        Name = 'BOOK_CODE'
        DataType = ftString
        Size = 2
      end
      item
        Name = 'CTG'
        DataType = ftFloat
      end
      item
        Name = 'BOOK_PER'
        DataType = ftDate
      end
      item
        Name = 'LIST_DATE'
        DataType = ftDate
      end
      item
        Name = 'LIST_NUM'
        DataType = ftString
        Size = 6
      end
      item
        Name = 'OP_CODE'
        DataType = ftString
        Size = 22
      end
      item
        Name = 'OPNAME'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'STATUS'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'RECALC'
        DataType = ftBoolean
      end
      item
        Name = 'LST_ACT'
        DataType = ftString
        Size = 17
      end
      item
        Name = 'USER_CODE'
        DataType = ftString
        Size = 6
      end
      item
        Name = 'STATUSNAME'
        DataType = ftString
        Size = 10
      end
      item
        Name = 'CTGNAME'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'TYPE_PER'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'Typepername'
        DataType = ftString
        Size = 25
      end>
    ReadOnly = True
    OEMTranslate = False
    Left = 81
    Top = 108
  end
  object ADS: xbADSDataSource
    DataSet = DS
    Left = 122
    Top = 109
  end
  object BODocCmp: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_DOC_CMP'
    Active = False
    Left = 203
    Top = 115
  end
  object DSDocCmp: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BODocCmp
    FieldDefs = <>
    OEMTranslate = False
    Left = 274
    Top = 116
  end
  object ADSDocCmp: xbADSDataSource
    DataSet = DSDocCmp
    Left = 345
    Top = 115
  end
  object MenuOperation: xbPopupMenu
    AutoPopup = True
    Left = 438
    Top = 112
    object pMarkIns: TMenuItem
      Caption = #1054#1090#1084#1077#1090#1080#1090#1100'/'#1089#1085#1103#1090#1100' '#1086#1090#1084#1077#1090#1082#1091'    Ins  '
      OnClick = pMarkIns_Click
    end
    object pPlusAll: TMenuItem
      Caption = #1054#1090#1084#1077#1090#1080#1090#1100' '#1074#1089#1077'                       + '
      OnClick = pPlusAll_Click
    end
    object pMinusAll: TMenuItem
      Caption = #1057#1085#1103#1090#1100' '#1074#1089#1077' '#1086#1090#1084#1077#1090#1082#1080'               -   '
      OnClick = pMinusAll_Click
    end
  end
end
frmPayDocVip.prg                                                     51741object frmPayDocVip: TfrmPayDocVip
  Left = 25
  Top = 25
  Width = 680
  Height = 438
  ActiveControl = ledOperDate
  Anchors = []
  Caption = #1044#1086#1082#1091#1084#1077#1085#1090' '#1074#1099#1087#1080#1089#1082#1080
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  WindowState = wsNormal
  OnCloseQuery = Form_CloseQuery
  OnCreate = Form_Create
  OnDestroy = Form_Destroy
  OnShow = Form_Show
  DesignSize = (
    672
    404)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 8
    Top = 8
    Width = 658
    Height = 365
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    OnChange = bPageControl1_Change
    object TabSheet1: TTabSheet
      Caption = #1054#1073#1097#1077#1077
      DesignSize = (
        656
        343)
      object lbPplObjName: xbLabel
        Left = 218
        Top = 176
        Width = 400
        Height = 17
        Anchors = [akLeft, akTop, akRight]
        Caption = 'lbPplObjName'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
        DataField = 'PPLOBJ_NAME'
        DataSource = ADS
      end
      object lbNaznPlat: xbLabel
        Left = 8
        Top = 269
        Width = 135
        Height = 17
        Caption = #1053#1072#1079#1085#1072#1095#1077#1085#1080#1077' . . . . . . . . . . . . . . . . . . . .'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
      end
      object lerMvTpCode: xbLabelEditRefer
        Left = 8
        Top = 32
        Width = 338
        Height = 21
        BorderColor = clWindowText
        Caption = #1042#1080#1076' '#1076#1074#1080#1078#1077#1085#1080#1103
        CaptionAlignment = taLeftJustify
        DataField = 'MV_NAME'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 2
        LabelWidth = 110
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnExit = lerMvTpCode_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'MV_CODE'
        EnabledEdit = False
        EnabledButton = False
        BeforeButtonClick = lerMvTpCode_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'MV_CODE;-1;50;1;-1;'#1050#1086#1076'|MV_NAME;-1;200;1;-1;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldName = 'MV_NAME'
        FindFieldType = tfCharacterString
        ListDataSet = DSMvTp
        OutFieldsArray = 'MV_CODE;PRT_TP'
        PutFieldsArray = 'MV_CODE;PRT_TP'
        ReferCaption = #1042#1080#1076#1099' '#1076#1074#1080#1078#1077#1085#1080#1103' '#1076#1077#1085#1077#1078#1085#1099#1093' '#1089#1088#1077#1076#1089#1090#1074
        TypeFindFieldName = 'MV_NAME'
        xReferId = 0
        IsHarbourRefer = True
        OnSelect = lerMvTpCode_Select
      end
      object FramePartner: xbFrame
        Left = 8
        Top = 109
        Width = 640
        Height = 56
        TabOrder = 12
        Anchors = [akLeft, akTop, akRight]
        DesignSize = (
          640
          56)
        object lbObjName: xbLabel
          Left = 200
          Top = 9
          Width = 400
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPlatName'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'FINOBJ_NAME'
          DataSource = ADS
        end
        object lbPartName: xbLabel
          Left = 200
          Top = 33
          Width = 400
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPartName'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'PART_ORGNAME'
          DataSource = ADS
        end
        object leObjCode: xbLabelEdit
          Left = 6
          Top = 6
          Width = 184
          Height = 21
          BorderColor = clWindowText
          Caption = #1054#1073#1098#1077#1082#1090' '#1091#1095#1077#1090#1072
          CaptionAlignment = taLeftJustify
          DataField = 'FINOBJ_CODE'
          DataSource = ADS
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 0
          LabelWidth = 104
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object lerPartCode: xbLabelEditRefer
          Left = 6
          Top = 30
          Width = 184
          Height = 21
          BorderColor = clWindowText
          Caption = #1055#1072#1088#1090#1085#1077#1088
          CaptionAlignment = taLeftJustify
          DataField = 'PART_CODE'
          DataSource = ADS
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 1
          LabelWidth = 104
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          OnEnter = lerPartCode_Enter
          OnExit = lerPartCode_Exit
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'PRT_ID'
          BeforeButtonClick = lerPartCode_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 'CODE;-1;100;1;0;'#1050#1086#1076'|SORTNAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
          FindFieldName = 'CODE'
          FindFieldType = tfCharacterString
          ListDataSet = DSPartner
          OutFieldsArray = 'PART_ID'
          PutFieldsArray = 'PRT_ID'
          ReferCaption = #1057#1087#1080#1089#1086#1082
          ReferWidth = 450
          TypeFindFieldName = 'CODE'
          xReferId = 0
          IsHarbourRefer = True
          OnSelect = lerPartCode_Select
        end
      end
      object lcbStatus: xbLabelCombo
        Left = 206
        Top = 8
        Width = 140
        Height = 21
        ParentBackGround = True
        Caption = #1057#1090#1072#1090#1091#1089
        Enabled = False
        TabOrder = 1
        LabelWidth = 40
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Sorted = False
        EditColor = clWindow
        DisabledColor = clInactiveBorder
        DisabledFontColor = clBlack
        BorderColor = clWindowText
        AutoComplete = False
        Style = csDropDownList
        CharCase = ecNormal
        DropDownCount = 0
        ItemHeight = 0
        MaxLength = 0
        Items.Strings = (
          #1095#1077#1088#1085#1086#1074#1080#1082
          #1087#1077#1088#1077#1076#1072#1085
          #1086#1087#1083#1072#1095#1077#1085)
        ItemIndex = -1
        UseStandartHint = True
      end
      object leDocNum: xbLabelEdit
        Left = 354
        Top = 56
        Width = 100
        Height = 21
        BorderColor = clWindowText
        Caption = #1085#1086#1084#1077#1088'    '
        CaptionAlignment = taLeftJustify
        DataField = 'DOC_NUM'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 6
        LabelWidth = 0
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnEnter = leDocNum_Enter
        OnExit = leDocNum_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object lerVal: xbLabelEditRefer
        Left = 8
        Top = 80
        Width = 190
        Height = 21
        BorderColor = clWindowText
        Caption = #1042#1072#1083#1102#1090#1072
        CaptionAlignment = taLeftJustify
        DataField = 'CURR'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 8
        LabelWidth = 110
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'CURR'
        EnabledEdit = False
        EnabledButton = False
        BeforeButtonClick = lerVal_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'CODE;-1;50;1;-1;'#1050#1086#1076'|NAME;-1;200;1;-1;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldName = 'CODE'
        FindFieldType = tfCharacterString
        ListDataSet = DSVal
        OutFieldsArray = 'CODE'
        PutFieldsArray = 'CURR'
        ReferCaption = #1057#1087#1088#1072#1074#1086#1095#1085#1080#1082' '#1074#1072#1083#1102#1090
        TypeFindFieldName = 'CODE'
        xReferId = 0
        IsHarbourRefer = True
      end
      object lecSumma: xbLabelEditCalc
        Left = 463
        Top = 80
        Width = 185
        Height = 21
        BorderColor = clWindowText
        Caption = #1057#1091#1084#1084#1072' '#1074' '#1086#1089#1085'. '#1074#1072#1083'.'
        CaptionAlignment = taLeftJustify
        DataField = 'SUM'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        TabOrder = 11
        LabelWidth = 95
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        VisibleButton = False
      end
      object lerNalModelCode: xbLabelEditRefer
        Left = 8
        Top = 315
        Width = 599
        Height = 21
        BorderColor = clWindowText
        Caption = #1053#1072#1083#1086#1075#1086#1074#1072#1103' '#1084#1086#1076#1077#1083#1100
        CaptionAlignment = taLeftJustify
        DataField = 'TAXMOD_NAME'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 20
        LabelWidth = 110
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnEnter = lerNalModelCode_Enter
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'TAX_MOD_ID'
        BeforeButtonClick = lerNalModelCode_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'MD_CODE;-1;50;1;-1;'#1050#1086#1076'|MD_NAME;-1;200;1;-1;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldName = 'MD_NAME'
        FindFieldType = tfCharacterString
        ListDataSet = DSTaxMod
        OutFieldsArray = 'MOD_ID'
        PutFieldsArray = 'TAX_MOD_ID'
        ReferCaption = #1053#1072#1083#1086#1075#1086#1074#1099#1077' '#1084#1086#1076#1077#1083#1080
        TypeFindFieldName = 'MD_NAME'
        xReferId = 0
        IsHarbourRefer = True
        OnSelect = lerNalModelCode_Select
      end
      object ledOperDate: xbLabelEditCalend
        Left = 8
        Top = 8
        Width = 190
        Height = 21
        BorderColor = clWindowText
        Caption = #1044#1072#1090#1072' '#1086#1087#1077#1088#1072#1094#1080#1080
        CaptionAlignment = taLeftJustify
        DataField = 'OPER_DATE'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        EditMask = '!99/99/0000;1; '
        TabOrder = 0
        LabelWidth = 110
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        MaxLength = 10
        Text = '  /  /    '
        OnEnter = ledOperDate_Enter
        OnExit = ledOperDate_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2;Alt+Down'
        ClearFields = 'OPER_DATE'
        VisibleButton = False
      end
      object ledDocDate: xbLabelEditCalend
        Left = 518
        Top = 56
        Width = 130
        Height = 21
        BorderColor = clWindowText
        Caption = '   '#1076#1072#1090#1072'        '
        CaptionAlignment = taLeftJustify
        DataField = 'DOC_DATE'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        EditMask = '!99/99/0000;1; '
        TabOrder = 7
        LabelWidth = 40
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        MaxLength = 10
        Text = '  /  /    '
        OnExit = ledDocDate_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2;Alt+Down'
        VisibleButton = False
      end
      object lecCurs: xbLabelEditCalc
        Left = 354
        Top = 80
        Width = 100
        Height = 21
        BorderColor = clWindowText
        Caption = '   '#1050#1091#1088#1089
        CaptionAlignment = taLeftJustify
        DataField = 'RATE'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        TabOrder = 10
        LabelWidth = 40
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        OnEnter = lecCurs_Enter
        OnExit = lecCurs_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        VisibleButton = False
      end
      object lecSummaC: xbLabelEditCalc
        Left = 206
        Top = 80
        Width = 140
        Height = 21
        BorderColor = clWindowText
        Caption = #1057#1091#1084#1084#1072
        CaptionAlignment = taLeftJustify
        DataField = 'SUM_C'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        TabOrder = 9
        LabelWidth = 40
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        OnEnter = lecSummaC_Enter
        OnExit = lecSummaC_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        VisibleButton = False
      end
      object lerDocOsnVid: xbLabelEditRefer
        Left = 8
        Top = 173
        Width = 190
        Height = 21
        BorderColor = clWindowText
        Caption = #1044#1086#1082'.-'#1086#1089#1085#1086#1074#1072#1085#1080#1077'   '#1074#1080#1076'   '
        CaptionAlignment = taLeftJustify
        DataField = 'APCARD_CNTYPE'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 13
        LabelWidth = 110
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'ACNT_ID'
        BeforeButtonClick = lerDocOsnVid_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 
          'DOC_VID;-1;40;1;-1;'#1042#1080#1076'|DOC_NUM;-1;60;1;-1;'#1053#1086#1084#1077#1088'|DOC_DATE;-1;60;1' +
          ';-1;'#1044#1072#1090#1072'|CUR;-1;40;1;-1;'#1042#1072#1083#1102#1090#1072'|OST;-1;80;1;-1;'#1054#1089#1090#1072#1090#1086#1082'|CURS;-1;90' +
          ';1;-1;'#1050#1091#1088#1089'|SUMMA;-1;90;1;-1;'#1057#1091#1084#1084#1072' '#1087#1086' '#1082#1091#1088#1089#1091
        FindFieldName = 'CARD_ID'
        FindFieldType = tfCharacterString
        ListDataSet = DSApCardSpr
        OutFieldsArray = 'CARD_ID'
        PutFieldsArray = 'ACNT_ID'
        ReferCaption = #1044#1086#1082#1091#1084#1077#1085#1090#1099'-'#1086#1089#1085#1086#1074#1072#1085#1080#1103
        ReferWidth = 550
        TypeFindFieldName = 'CARD_ID'
        xReferId = 0
        IsHarbourRefer = True
        OnSelect = lerDocOsnVid_Select
      end
      object leDocOsnNum: xbLabelEdit
        Left = 206
        Top = 173
        Width = 120
        Height = 21
        BorderColor = clWindowText
        Caption = ' '#1085#1086#1084#1077#1088'    '
        CaptionAlignment = taLeftJustify
        DataField = 'APCARD_DOC_NUM'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 14
        LabelWidth = 40
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object ledDocOsnDate: xbLabelEditCalend
        Left = 334
        Top = 173
        Width = 120
        Height = 21
        BorderColor = clWindowText
        Caption = '   '#1076#1072#1090#1072'        '
        CaptionAlignment = taLeftJustify
        DataField = 'APCARD_CNJURD'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        Enabled = False
        EditMask = '!99/99/0000;1; '
        TabOrder = 15
        LabelWidth = 40
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        MaxLength = 10
        Text = '  /  /    '
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2;Alt+Down'
        EnabledEdit = False
        VisibleButton = False
      end
      object lcbAcntTp: xbLabelCombo
        Left = 463
        Top = 32
        Width = 185
        Height = 21
        ParentBackGround = True
        Caption = #1058#1080#1087' '#1088#1072#1089#1095#1077#1090#1086#1074
        Enabled = False
        TabOrder = 3
        LabelWidth = 95
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Sorted = False
        EditColor = clWindow
        DisabledColor = clInactiveBorder
        DisabledFontColor = clBlack
        BorderColor = clWindowText
        AutoComplete = False
        Style = csDropDownList
        CharCase = ecNormal
        DropDownCount = 0
        ItemHeight = 0
        MaxLength = 0
        Items.Strings = (
          ''
          #1087#1086#1076#1086#1090#1095#1077#1090
          #1076#1077#1087#1086#1085#1077#1085#1090
          #1087#1088#1086#1095#1080#1077)
        ItemIndex = -1
        UseStandartHint = True
      end
      object lerDocVid: xbLabelEditRefer
        Left = 8
        Top = 56
        Width = 190
        Height = 21
        BorderColor = clWindowText
        Caption = #1044#1086#1082#1091#1084#1077#1085#1090'            '#1074#1080#1076'   '
        CaptionAlignment = taLeftJustify
        DataField = 'DOC_CODE'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 4
        LabelWidth = 110
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'DOC_CODE'
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'TP_CODE;-1;50;1;-1;'#1050#1086#1076'|TP_NAME;-1;150;1;-1;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldName = 'TP_CODE'
        FindFieldType = tfCharacterString
        ListDataSet = DSDocTp
        OutFieldsArray = 'TP_CODE'
        PutFieldsArray = 'DOC_CODE'
        ReferCaption = #1042#1080#1076#1099' '#1076#1086#1082#1091#1084#1077#1085#1090#1086#1074
        TypeFindFieldName = 'TP_CODE'
        xReferId = 0
        IsHarbourRefer = True
      end
      object FrameProd: xbFrame
        Left = 8
        Top = 202
        Width = 640
        Height = 56
        TabOrder = 17
        Anchors = [akLeft, akTop, akRight]
        object lerProdVal: xbLabelEditRefer
          Left = 6
          Top = 6
          Width = 184
          Height = 21
          BorderColor = clWindowText
          Caption = #1055#1088#1086#1076#1072#1078#1072
          CaptionAlignment = taLeftJustify
          DataField = 'FINDOC_CURR'
          DataSource = ADS
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 0
          LabelWidth = 104
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          EnabledEdit = False
          EnabledButton = False
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 'CODE;-1;50;1;-1;'#1050#1086#1076'|NAME;-1;200;1;-1;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
          FindFieldName = 'CODE'
          FindFieldType = tfCharacterString
          ReferCaption = #1057#1087#1088#1072#1074#1086#1095#1085#1080#1082' '#1074#1072#1083#1102#1090
          TypeFindFieldName = 'CODE'
          xReferId = 0
          IsHarbourRefer = True
        end
        object lecProdCurs: xbLabelEditCalc
          Left = 198
          Top = 6
          Width = 120
          Height = 21
          BorderColor = clWindowText
          Caption = #1050#1091#1088#1089
          CaptionAlignment = taLeftJustify
          DataField = 'RATE_CMP'
          DataSource = ADS
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          DisabledFontColor = clBtnText
          TabOrder = 1
          LabelWidth = 40
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          Text = '0'
          OnEnter = lecProdCurs_Enter
          OnExit = lecProdCurs_Exit
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          VisibleButton = False
        end
        object lecProdSumma: xbLabelEditCalc
          Left = 326
          Top = 6
          Width = 120
          Height = 21
          BorderColor = clWindowText
          Caption = #1057#1091#1084#1084#1072
          CaptionAlignment = taLeftJustify
          DataField = 'FINDOC_SUM_C'
          DataSource = ADS
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          DisabledFontColor = clBtnText
          Enabled = False
          TabOrder = 2
          LabelWidth = 40
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          Text = '0'
          OnEnter = lecProdSumma_Enter
          OnExit = lecProdSumma_Exit
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          EnabledEdit = False
          EnabledButton = False
          VisibleButton = False
        end
        object lecProdSummaZach: xbLabelEditCalc
          Left = 455
          Top = 6
          Width = 180
          Height = 21
          BorderColor = clWindowText
          Caption = #1057#1091#1084#1084#1072' '#1079#1072#1095#1080#1089#1083#1077#1085#1080#1103
          CaptionAlignment = taLeftJustify
          DataField = 'SUM_C'
          DataSource = ADS
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          DisabledFontColor = clBtnText
          TabOrder = 3
          LabelWidth = 100
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          Text = '0'
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          VisibleButton = False
        end
        object lerComBankVal: xbLabelEditRefer
          Left = 6
          Top = 30
          Width = 184
          Height = 21
          BorderColor = clWindowText
          Caption = #1050#1086#1084#1080#1089#1089#1080#1103' '#1073#1072#1085#1082#1072
          CaptionAlignment = taLeftJustify
          DataField = 'CURR_CMP'
          DataSource = ADS
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 4
          LabelWidth = 104
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'CURR_CMP'
          BeforeButtonClick = lerComBankVal_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 'CODE;-1;50;1;-1;'#1050#1086#1076'|NAME;-1;200;1;-1;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
          FindFieldName = 'CODE'
          FindFieldType = tfCharacterString
          ListDataSet = DSValCom
          OutFieldsArray = 'CODE'
          PutFieldsArray = 'CURR_CMP'
          ReferCaption = #1057#1087#1088#1072#1074#1086#1095#1085#1080#1082' '#1074#1072#1083#1102#1090
          TypeFindFieldName = 'CODE'
          xReferId = 0
          IsHarbourRefer = True
        end
        object lecComBankSumma: xbLabelEditCalc
          Left = 198
          Top = 30
          Width = 120
          Height = 21
          BorderColor = clWindowText
          Caption = #1057#1091#1084#1084#1072
          CaptionAlignment = taLeftJustify
          DataField = 'SUM_CMP'
          DataSource = ADS
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          DisabledFontColor = clBtnText
          TabOrder = 5
          LabelWidth = 40
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          Text = '0'
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          VisibleButton = False
        end
        object lecCursDiff: xbLabelEditCalc
          Left = 455
          Top = 30
          Width = 180
          Height = 21
          BorderColor = clWindowText
          Caption = #1050#1091#1088#1089#1086#1074#1072#1103' '#1088#1072#1079#1085#1080#1094#1072
          CaptionAlignment = taLeftJustify
          DataField = 'RATE_DIFF'
          DataSource = ADS
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          DisabledFontColor = clBtnText
          Enabled = False
          TabOrder = 6
          LabelWidth = 100
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          Text = '0'
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          EnabledEdit = False
          EnabledButton = False
          VisibleButton = False
        end
      end
      object leDopNum: xbLabelEdit
        Left = 206
        Top = 56
        Width = 140
        Height = 21
        BorderColor = clWindowText
        Caption = #1085#1086#1084#1077#1088'    '
        CaptionAlignment = taLeftJustify
        DataField = 'DOP_NUM'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 5
        LabelWidth = 40
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object memNaznPlat: xbMemo
        Left = 118
        Top = 266
        Width = 470
        Height = 46
        ColorFlat = clBtnFace
        ParentColor = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        MaxLength = 210
        ParentFont = False
        TabOrder = 18
        OnKeyDown = memNaznPlat_KeyDown
        AutoDisplay = False
        BorderStyle = bsNone
        Color = clWhite
        DisabledColor = clInactiveBorder
        DisabledFontColor = 7368816
        DataField = 'COMMENT'
        DataSource = ADS
      end
      object btNaznPlat: xbButton
        Left = 590
        Top = 266
        Width = 21
        Height = 21
        Caption = '...'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        RoundedButton = True
        TabOrder = 19
        ButtonColor = clBlack
      end
      object lecOblLNum: xbLabelEditCalc
        Left = 468
        Top = 173
        Width = 74
        Height = 21
        BorderColor = clWindowText
        Caption = #1101#1090#1072#1087
        CaptionExtender = ceNone
        CaptionAlignment = taLeftJustify
        DataField = 'OBL_LNUM'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        Enabled = False
        EditMask = '000;;'
        TabOrder = 16
        LabelWidth = 30
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        MaxLength = 3
        Text = '   '
        OnEnter = lecSumma_Enter
        OnExit = lecSumma_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'ID_OBL'
        EnabledEdit = False
        EnabledButton = False
        VisibleButton = False
        OnSelect = lecSumma_Select
      end
    end
    object TabSheet2: TTabSheet
      Caption = #1055#1088#1086#1074#1086#1076#1082#1080
      DesignSize = (
        656
        343)
      object txtopert: xbLabel
        Left = 261
        Top = 9
        Width = 302
        Height = 17
        Caption = 'txtopert'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
        Layout = tlCenter
        DataField = 'TYPEOP_NAME'
        DataSource = ADS
      end
      object lblDt: xbLabel
        Left = 6
        Top = 310
        Width = 644
        Height = 16
        Anchors = [akLeft, akRight, akBottom]
        Caption = '1'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
      end
      object lblKt: xbLabel
        Left = 6
        Top = 326
        Width = 644
        Height = 16
        Anchors = [akLeft, akRight, akBottom]
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
      end
      object rfOPerT: xbLabelEditRefer
        Left = 6
        Top = 6
        Width = 250
        Height = 21
        BorderColor = clWindowText
        Caption = #1058#1080#1087#1086#1074#1072#1103' '#1086#1087#1077#1088#1072#1094#1080#1103
        CaptionAlignment = taLeftJustify
        DataField = 'TYPEOP_CODE'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 0
        LabelWidth = 124
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'TYPE_OP'
        OnClearButtonClick = rfOPerT_ClearButtonClick
        VisibleButton = True
        UseStandartHint = True
        FindFieldName = 'code'
        FindFieldType = tfCharacterString
        OutFieldsArray = 'REC_ID'
        PutFieldsArray = 'TYPE_OP'
        ReferCaption = #1057#1087#1080#1089#1086#1082' '#1090#1080#1087#1086#1074#1099#1093' '#1086#1087#1077#1088#1072#1094#1080#1081
        TypeFindFieldName = 'code'
        xReferId = 0
        IsHarbourRefer = False
      end
      object bGrProv: xbGrid
        Left = 6
        Top = 31
        Width = 644
        Height = 277
        Anchors = [akLeft, akTop, akRight, akBottom]
        AutoFitColWidths = True
        DataSource = adsMain
        Flat = True
        FooterColor = clWindow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -11
        FooterFont.Name = 'MS Sans Serif'
        FooterFont.Style = []
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
        ReadOnly = True
        TabOrder = 1
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        UseMultiTitle = True
        VTitleMargin = 4
        OnDblClick = bGrid2_DblClick
        OnKeyPress = bGrid2_KeyPress
        IdGrid = '{A38D282F-9736-4FC3-B9B9-A83DF297FD74}'
        Columns = <
          item
            Checkboxes = True
            EditButtons = <>
            FieldName = 'X_ISMARK_'
            Footers = <>
            Title.Caption = ' '
            Width = 22
          end
          item
            EditButtons = <>
            FieldName = 'DT_SCHET'
            Footers = <>
            Title.Caption = #1057#1095#1077#1090'|'#1044#1077#1073#1077#1090
            Width = 80
          end
          item
            EditButtons = <>
            FieldName = 'KT_SCHET'
            Footers = <>
            Title.Caption = #1057#1095#1077#1090'|'#1050#1088#1077#1076#1080#1090
            Width = 80
          end
          item
            EditButtons = <>
            FieldName = 'NAMEOPER'
            Footers = <>
            Title.Caption = #1057#1086#1076#1077#1088#1078#1072#1085#1080#1077
            Width = 323
          end
          item
            EditButtons = <>
            FieldName = 'SUMMA'
            Footers = <>
            Title.Caption = #1057#1091#1084#1084#1072
            Width = 120
          end>
      end
    end
  end
  object btnOK: xbButton
    Left = 528
    Top = 382
    Width = 65
    Height = 21
    Hint = #1057#1086#1093#1088#1072#1085#1077#1085#1080#1077' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (F10)'
    Caption = #1054#1050
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 5
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btnCANCEL: xbButton
    Left = 601
    Top = 382
    Width = 65
    Height = 21
    Hint = #1042#1099#1093#1086#1076' '#1080#1079' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (Esc)'
    Caption = #1054#1090#1084#1077#1085#1072
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 6
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btNalogi: xbButton
    Left = 277
    Top = 382
    Width = 60
    Height = 21
    Hint = ' '#1053#1072#1083#1086#1075#1080' (Ctrl+N)'
    Caption = #1053#1072#1083#1086#1075#1080
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 3
    OnClick = btNalogi_Click
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object pbDopData: xbPopupButton
    Left = 345
    Top = 382
    Width = 90
    Height = 21
    Caption = #1044#1086#1087'. '#1076#1072#1085#1085#1099#1077
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = MenuDopData
    RoundedButton = True
    TabOrder = 4
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btSchFact: xbButton
    Left = 179
    Top = 382
    Width = 90
    Height = 21
    Hint = ' '#1053#1072#1076#1073#1072#1074#1082#1080' (Ctrl+N)'
    Caption = #1057#1095#1077#1090#1072'-'#1092#1072#1082#1090#1091#1088#1099
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 2
    OnClick = btSchFact_Click
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btRaschet: xbPopupButton
    Left = 96
    Top = 382
    Width = 75
    Height = 21
    Caption = #1056#1072#1089#1095#1077#1090#1099
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = MenuRaschet
    RoundedButton = True
    TabOrder = 1
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object bDocDim: xbButton
    Left = 9
    Top = 382
    Width = 75
    Height = 21
    Hint = #1042#1074#1086#1076' Ctrl-D'
    Caption = #1048#1079#1084#1077#1088#1077#1085#1080#1103
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 7
    OnClick = bPlDoc_Click
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object pOperation: xbPopupButton
    Left = 444
    Top = 382
    Width = 75
    Height = 21
    Caption = #1054#1087#1077#1088#1072#1094#1080#1080
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = MenuOperation
    RoundedButton = True
    TabOrder = 8
    OnClick = pOperation_Click
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <>
    OEMTranslate = False
    Left = 109
    Top = 3
  end
  object ADS: xbADSDataSource
    DataSet = DS
    Left = 145
    Top = 3
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_FIN_DOC'
    Active = False
    Left = 62
    Top = 11
  end
  object MenuDopData: xbPopupMenu
    Left = 497
    Top = 193
    object MenuDopData1: TMenuItem
      Caption = #1053#1072#1083#1086#1075#1086#1074#1099#1077' '#1082#1086#1076#1099'     Ctrl+B'
      OnClick = MenuDopData1_Click
    end
    object MenuDopData2: TMenuItem
      Caption = #1056#1072#1089#1093#1086#1076#1099' '#1073#1102#1076#1078#1077#1090#1072'   Ctrl+R'
      OnClick = MenuDopData2_Click
    end
    object miDopRecv: TMenuItem
      Caption = #1044#1086#1087' '#1088#1077#1082#1074#1080#1079#1080#1090#1099'        Alt+F5'
      OnClick = miDopRecv_Click
    end
  end
  object BODocCmp: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_DOC_CMP'
    Active = False
    Left = 473
    Top = 142
  end
  object DSDocCmp: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BODocCmp
    FieldDefs = <>
    OEMTranslate = False
    Left = 539
    Top = 144
  end
  object ADSDocCmp: xbADSDataSource
    DataSet = DSDocCmp
    Left = 606
    Top = 144
  end
  object BOMvTp: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_MOVE_TP'
    Active = False
    Left = 376
    Top = 36
  end
  object DSMvTp: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOMvTp
    FieldDefs = <>
    OEMTranslate = False
    Left = 429
    Top = 36
  end
  object BOVal: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsValuta'
    Active = False
    Left = 309
    Top = 146
  end
  object DSVal: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOVal
    FieldDefs = <>
    OEMTranslate = False
    Left = 360
    Top = 147
  end
  object BOReasons: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_REASONS'
    Active = False
    Left = 32
    Top = 200
  end
  object DSReasons: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOReasons
    FieldDefs = <>
    OEMTranslate = False
    Left = 29
    Top = 251
  end
  object BOTaxMod: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsTAX_MOD'
    Active = False
    Left = 88
    Top = 200
  end
  object DSTaxMod: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOTaxMod
    FieldDefs = <>
    OEMTranslate = False
    OnUpdateRecord = DSTaxMod_UpdateRecord
    Left = 90
    Top = 251
  end
  object BODocTp: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_DOC_TYPE'
    Active = False
    Left = 227
    Top = 60
  end
  object DSDocTp: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BODocTp
    FieldDefs = <>
    OEMTranslate = False
    Left = 280
    Top = 60
  end
  object BOPartner: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPartner'
    Active = False
    Left = 569
    Top = 193
  end
  object DSPartner: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOPartner
    FieldDefs = <>
    OEMTranslate = False
    Left = 614
    Top = 194
  end
  object DSApCardSpr: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'PPL\PPL_OBJ.DBF'
    OEMTranslate = False
    Left = 281
    Top = 193
  end
  object MenuRaschet: xbPopupMenu
    Left = 415
    Top = 193
    object miDocOsn: TMenuItem
      Caption = #1044#1086#1082#1091#1084#1077#1085#1090'-'#1086#1089#1085#1086#1074#1072#1085#1080#1077
      OnClick = miDocOsn_Click
    end
    object miBalans: TMenuItem
      Caption = #1041#1072#1083#1072#1085#1089
      OnClick = miBalans_Click
    end
  end
  object BOValCom: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsValuta'
    Active = False
    Left = 248
    Top = 249
  end
  object DSValCom: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOValCom
    FieldDefs = <>
    OEMTranslate = False
    Left = 299
    Top = 249
  end
  object DSMAIN: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    xbsClassName = 'MAIN'
    BObject = BO
    FieldDefs = <
      item
        Name = 'NNOPER'
        DataType = ftFloat
      end
      item
        Name = 'TASK'
        DataType = ftString
        Size = 2
      end
      item
        Name = 'TaskName'
        DataType = ftString
        Size = 40
      end
      item
        Name = 'JrnName'
        DataType = ftString
        Size = 40
      end
      item
        Name = 'JrnCode'
        DataType = ftString
        Size = 4
      end
      item
        Name = 'DATAOPER'
        DataType = ftDate
      end
      item
        Name = 'NNDOC'
        DataType = ftString
        Size = 6
      end
      item
        Name = 'DT_SCHET'
        DataType = ftString
        Size = 16
      end
      item
        Name = 'DTName'
        DataType = ftString
        Size = 80
      end
      item
        Name = 'DT_CODE'
        DataType = ftString
        Size = 60
      end
      item
        Name = 'KT_SCHET'
        DataType = ftString
        Size = 16
      end
      item
        Name = 'KTName'
        DataType = ftString
        Size = 80
      end
      item
        Name = 'KT_CODE'
        DataType = ftString
        Size = 60
      end
      item
        Name = 'SUMMA'
        DataType = ftFloat
      end
      item
        Name = 'NAMEOPER'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'VALUTA'
        DataType = ftString
        Size = 3
      end
      item
        Name = 'VSUMMA'
        DataType = ftFloat
      end
      item
        Name = 'VCURS'
        DataType = ftFloat
      end
      item
        Name = 'SCLAD'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'STATUS'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'USER_DATE'
        DataType = ftDate
      end
      item
        Name = 'Z_STATUS'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'NNOPER_D'
        DataType = ftFloat
      end
      item
        Name = 'NNOPER_K'
        DataType = ftFloat
      end
      item
        Name = 'N_STATUS'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'CRYPT_CODE'
        DataType = ftString
        Size = 11
      end
      item
        Name = 'IDMAIN'
        DataType = ftFloat
      end
      item
        Name = 'JRN_ID'
        DataType = ftFloat
      end
      item
        Name = 'DOC_ID'
        DataType = ftFloat
      end
      item
        Name = 'VAL_ID'
        DataType = ftFloat
      end
      item
        Name = 'PSCHET'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'ENTRY_CTG'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'GL_DIM1'
        DataType = ftFloat
      end
      item
        Name = 'GL_DIM2'
        DataType = ftFloat
      end
      item
        Name = 'mainValuta'
        DataType = ftString
        Size = 3
      end
      item
        Name = 'PriznakZab'
        DataType = ftBoolean
      end>
    ReadOnly = True
    OEMTranslate = False
    Left = 553
    Top = 267
  end
  object adsMain: xbADSDataSource
    DataSet = DSMAIN
    Left = 502
    Top = 279
  end
  object RFApCardObl: xbReferCaller
    ColumnsTune = 
      'LNUM;-1;50;1;0;'#1053#1086#1084#1077#1088' '#1101#1090#1072#1087#1072'|NAME;-1;170;1;0;'#1057#1086#1076#1077#1088#1078#1072#1085#1080#1077'|DATE_END;-' +
      '1;70;1;0;'#1044#1072#1090#1072'|OST;-1;90;1;0;'#1057#1091#1084#1084#1072
    ListDataSet = DSApCardObl
    ReferCaption = #1069#1090#1072#1087#1099' '#1076#1086#1075#1086#1074#1086#1088#1072
    ReferWidth = 450
    OnSelect = RFApCardObl_Select
    OnCancel = RFApCardObl_Cancel
    Left = 361
    Top = 196
  end
  object DSApCardObl: TBestDataset
    Tag = 8
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'PAY\FIN_DOC.DBF'
    OEMTranslate = False
    Left = 363
    Top = 248
  end
  object RFNaznPlat: xbReferCaller
    ColumnsTune = 'TEXT;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
    ListDataSet = DSReasons
    ReferCaption = #1054#1089#1085#1086#1074#1072#1085#1080#1103' '#1087#1083#1072#1090#1077#1078#1072
    ReferWidth = 450
    OnSelect = RFNaznPlat_Select
    Left = 304
    Top = 306
  end
  object MenuOperation: xbPopupMenu
    Left = 609
    Top = 243
    object miCopyProv: TMenuItem
      Caption = #1050#1086#1087#1080#1088#1086#1074#1072#1090#1100' '#1087#1088#1086#1074#1086#1076#1082#1091'                      F5'
      OnClick = miCopyProv_Click
    end
    object miNaznPlat: TMenuItem
      Caption = #1055#1077#1088#1077#1092#1086#1088#1084#1080#1088#1086#1074#1072#1090#1100' '#1085#1072#1079#1085#1072#1095#1077#1085#1080#1077'  Ctrl+P'
      OnClick = miNaznPlat_Click
    end
  end
end
frmPayVipBnkOFK.prg                                                  59511object frmPayVipBnkOFK: TfrmPayVipBnkOFK
  Left = 25
  Top = 25
  Width = 650
  Height = 435
  ActiveControl = bGrid1
  Anchors = []
  BiDiMode = bdRightToLeft
  Caption = #1044#1086#1082#1091#1084#1077#1085#1090#1099' '#1074#1099#1087#1080#1089#1082#1080
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  ParentBiDiMode = False
  Visible = True
  WindowState = wsNormal
  OnClose = Form_Close
  OnCreate = Form_Create
  OnResize = Form_Resize
  OnShow = Form_Show
  DesignSize = (
    642
    401)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 8
    Top = 8
    Width = 626
    Height = 362
    ActivePage = TabSheet2
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    OnChange = bPageControl1_Change
    object TabSheet1: TTabSheet
      Caption = #1060#1080#1085#1072#1085#1089#1080#1088#1086#1074#1072#1085#1080#1077
      DesignSize = (
        624
        340)
      object bGrid1: xbGrid
        Left = 8
        Top = 83
        Width = 608
        Height = 155
        Anchors = [akLeft, akTop, akRight, akBottom]
        AutoFitColWidths = True
        DataSource = ADS
        Flat = True
        FooterColor = clWindow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -11
        FooterFont.Name = 'MS Sans Serif'
        FooterFont.Style = []
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgAlwaysShowSelection, dgConfirmDelete]
        OptionsEh = [dghFixed3D, dghClearSelection]
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        UseMultiTitle = True
        OnDblClick = bGrid1_DblClick
        OnKeyPress = bGrid1_KeyPress
        IdGrid = '{252EDF7B-E5CC-44F0-88C5-D32E329027F9}'
        Columns = <
          item
            EditButtons = <>
            FieldName = 'DOC_CODE'
            Footers = <>
            Title.Caption = #1044#1086#1082#1091#1084#1077#1085#1090'|'#1074#1080#1076
            Width = 30
          end
          item
            EditButtons = <>
            FieldName = 'DOC_NUM'
            Footers = <>
            Title.Caption = #1044#1086#1082#1091#1084#1077#1085#1090'|'#1085#1086#1084#1077#1088
            Width = 90
          end
          item
            EditButtons = <>
            FieldName = 'DOC_DATE'
            Footers = <>
            Title.Caption = #1044#1086#1082#1091#1084#1077#1085#1090'|'#1076#1072#1090#1072
            Width = 60
          end
          item
            EditButtons = <>
            FieldName = 'SUM_LBO_IN'
            Footers = <>
            Title.Caption = #1051#1080#1084#1080#1090#1099'|'#1087#1088#1080#1093#1086#1076
            Width = 102
          end
          item
            EditButtons = <>
            FieldName = 'SUM_LBO_OUT'
            Footers = <>
            Title.Caption = #1051#1080#1084#1080#1090#1099'|'#1088#1072#1089#1093#1086#1076
            Width = 102
          end
          item
            EditButtons = <>
            FieldName = 'SUM_FIN_IN'
            Footers = <>
            Title.Caption = #1054#1073#1098#1077#1084#1099' '#1092#1080#1085#1072#1085#1089#1080#1088#1086#1074#1072#1085#1080#1103'|'#1087#1088#1080#1093#1086#1076
            Width = 102
          end
          item
            EditButtons = <>
            FieldName = 'SUM_FIN_OUT'
            Footers = <>
            Title.Caption = #1054#1073#1098#1077#1084#1099' '#1092#1080#1085#1072#1085#1089#1080#1088#1086#1074#1072#1085#1080#1103'|'#1088#1072#1089#1093#1086#1076
            Width = 101
          end>
      end
      object lecBegLBO1: xbLabelEditCalc
        Left = 8
        Top = 32
        Width = 230
        Height = 21
        BorderColor = clWindowText
        Caption = #1057' '#1085#1072#1095#1072#1083#1072' '#1075#1086#1076#1072'         '#1083#1080#1084#1080#1090#1099
        CaptionAlignment = taLeftJustify
        DataField = 'BEG_LBO_Y'
        DataSource = ADSVipBnk
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        Enabled = False
        TabOrder = 1
        LabelWidth = 140
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        VisibleButton = False
      end
      object leBegDate1: xbLabelEdit
        Left = 8
        Top = 8
        Width = 230
        Height = 21
        BorderColor = clWindowText
        Caption = #1044#1072#1090#1072' '#1085#1072#1095#1072#1083#1072
        CaptionAlignment = taLeftJustify
        DataField = 'PRV_DT'
        DataSource = ADSVipBnk
        ButtonsColor = clBlack
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 2
        LabelWidth = 140
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object lecBegFin1: xbLabelEditCalc
        Left = 247
        Top = 32
        Width = 180
        Height = 21
        BorderColor = clWindowText
        Caption = #1092#1080#1085#1072#1085#1089#1080#1088#1086#1074#1072#1085#1080#1077
        CaptionAlignment = taLeftJustify
        DataField = 'BEG_FIN_Y'
        DataSource = ADSVipBnk
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        Enabled = False
        TabOrder = 3
        LabelWidth = 90
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        VisibleButton = False
      end
      object lecLBOIn1: xbLabelEditCalc
        Left = 8
        Top = 244
        Width = 240
        Height = 21
        Anchors = [akLeft, akBottom]
        BorderColor = clWindowText
        Caption = #1048#1090#1086#1075#1086' '#1086#1073#1086#1088#1086#1090#1099
        CaptionAlignment = taLeftJustify
        DataField = 'IN_LBO'
        DataSource = ADSVipBnk
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        Enabled = False
        TabOrder = 4
        LabelWidth = 140
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        VisibleButton = False
      end
      object lecLBOOut1: xbLabelEditCalc
        Left = 260
        Top = 244
        Width = 100
        Height = 21
        Anchors = [akLeft, akBottom]
        BorderColor = clWindowText
        Caption = #1042#1093#1086#1076#1103#1097#1080#1081' '#1086#1089#1090#1072#1090#1086#1082
        CaptionAlignment = taLeftJustify
        DataField = 'OUT_LBO'
        DataSource = ADSVipBnk
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        Enabled = False
        TabOrder = 5
        LabelWidth = 0
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        VisibleButton = False
      end
      object leEndDate1: xbLabelEdit
        Left = 8
        Top = 268
        Width = 230
        Height = 21
        Anchors = [akLeft, akBottom]
        BorderColor = clWindowText
        Caption = #1044#1072#1090#1072' '#1086#1082#1086#1085#1095#1072#1085#1080#1103
        CaptionAlignment = taLeftJustify
        DataField = 'OBJ_DT'
        DataSource = ADSVipBnk
        ButtonsColor = clBlack
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 6
        LabelWidth = 140
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object lecBegNotUseLBO1: xbLabelEditCalc
        Left = 8
        Top = 56
        Width = 230
        Height = 21
        BorderColor = clWindowText
        Caption = #1053#1077' '#1080#1089#1087#1086#1083#1100#1079#1086#1074#1072#1085#1086'   '#1083#1080#1084#1080#1090#1099
        CaptionAlignment = taLeftJustify
        DataField = 'BEG_LBO'
        DataSource = ADSVipBnk
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        Enabled = False
        TabOrder = 7
        LabelWidth = 140
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        VisibleButton = False
      end
      object lecBegKR1: xbLabelEditCalc
        Left = 436
        Top = 32
        Width = 180
        Height = 21
        BorderColor = clWindowText
        Caption = #1082#1072#1089#1089#1086#1074#1099#1081' '#1088#1072#1089#1093#1086#1076
        CaptionAlignment = taLeftJustify
        DataField = 'BEG_KR_Y'
        DataSource = ADSVipBnk
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        Enabled = False
        TabOrder = 8
        LabelWidth = 90
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        VisibleButton = False
      end
      object lecBegNotUseFin1: xbLabelEditCalc
        Left = 247
        Top = 56
        Width = 180
        Height = 21
        BorderColor = clWindowText
        Caption = #1092#1080#1085#1072#1085#1089#1080#1088#1086#1074#1072#1085#1080#1077
        CaptionAlignment = taLeftJustify
        DataField = 'BEG_FIN'
        DataSource = ADSVipBnk
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        Enabled = False
        TabOrder = 9
        LabelWidth = 90
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        VisibleButton = False
      end
      object lecEndLBO1: xbLabelEditCalc
        Left = 8
        Top = 292
        Width = 230
        Height = 21
        Anchors = [akLeft, akBottom]
        BorderColor = clWindowText
        Caption = #1057' '#1085#1072#1095#1072#1083#1072' '#1075#1086#1076#1072'         '#1083#1080#1084#1080#1090#1099
        CaptionAlignment = taLeftJustify
        DataField = 'END_LBO_Y'
        DataSource = ADSVipBnk
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        Enabled = False
        TabOrder = 10
        LabelWidth = 140
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        VisibleButton = False
      end
      object lecEndNotUseLBO1: xbLabelEditCalc
        Left = 8
        Top = 316
        Width = 230
        Height = 21
        Anchors = [akLeft, akBottom]
        BorderColor = clWindowText
        Caption = #1053#1077' '#1080#1089#1087#1086#1083#1100#1079#1086#1074#1072#1085#1086'   '#1083#1080#1084#1080#1090#1099
        CaptionAlignment = taLeftJustify
        DataField = 'END_LBO'
        DataSource = ADSVipBnk
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        Enabled = False
        TabOrder = 11
        LabelWidth = 140
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        VisibleButton = False
      end
      object lecEndFin1: xbLabelEditCalc
        Left = 247
        Top = 292
        Width = 180
        Height = 21
        Anchors = [akLeft, akBottom]
        BorderColor = clWindowText
        Caption = #1092#1080#1085#1072#1085#1089#1080#1088#1086#1074#1072#1085#1080#1077
        CaptionAlignment = taLeftJustify
        DataField = 'END_FIN_Y'
        DataSource = ADSVipBnk
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        Enabled = False
        TabOrder = 12
        LabelWidth = 90
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        VisibleButton = False
      end
      object lecEndNotUseFin1: xbLabelEditCalc
        Left = 247
        Top = 316
        Width = 180
        Height = 21
        Anchors = [akLeft, akBottom]
        BorderColor = clWindowText
        Caption = #1092#1080#1085#1072#1085#1089#1080#1088#1086#1074#1072#1085#1080#1077
        CaptionAlignment = taLeftJustify
        DataField = 'END_FIN'
        DataSource = ADSVipBnk
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        Enabled = False
        TabOrder = 13
        LabelWidth = 90
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        VisibleButton = False
      end
      object lecEndKR1: xbLabelEditCalc
        Left = 436
        Top = 292
        Width = 180
        Height = 21
        Anchors = [akLeft, akBottom]
        BorderColor = clWindowText
        Caption = #1082#1072#1089#1089#1086#1074#1099#1081' '#1088#1072#1089#1093#1086#1076
        CaptionAlignment = taLeftJustify
        DataField = 'END_KR_Y'
        DataSource = ADSVipBnk
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        Enabled = False
        TabOrder = 14
        LabelWidth = 90
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        VisibleButton = False
      end
      object lecFinIn1: xbLabelEditCalc
        Left = 370
        Top = 244
        Width = 100
        Height = 21
        Anchors = [akLeft, akBottom]
        BorderColor = clWindowText
        Caption = #1042#1093#1086#1076#1103#1097#1080#1081' '#1086#1089#1090#1072#1090#1086#1082
        CaptionAlignment = taLeftJustify
        DataField = 'IN_FIN'
        DataSource = ADSVipBnk
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        Enabled = False
        TabOrder = 15
        LabelWidth = 0
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        VisibleButton = False
      end
      object lecFinOut1: xbLabelEditCalc
        Left = 490
        Top = 244
        Width = 100
        Height = 21
        Anchors = [akLeft, akBottom]
        BorderColor = clWindowText
        Caption = #1042#1093#1086#1076#1103#1097#1080#1081' '#1086#1089#1090#1072#1090#1086#1082
        CaptionAlignment = taLeftJustify
        DataField = 'OUT_FIN'
        DataSource = ADSVipBnk
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        Enabled = False
        TabOrder = 16
        LabelWidth = 0
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        VisibleButton = False
      end
    end
    object TabSheet2: TTabSheet
      Caption = #1041#1102#1076#1078#1077#1090#1085#1099#1077' '#1086#1073#1103#1079#1103#1090#1077#1083#1100#1089#1090#1074#1072
      DesignSize = (
        624
        340)
      object leBegDate2: xbLabelEdit
        Left = 8
        Top = 8
        Width = 230
        Height = 21
        BorderColor = clWindowText
        Caption = #1044#1072#1090#1072' '#1085#1072#1095#1072#1083#1072
        CaptionAlignment = taLeftJustify
        DataField = 'PRV_DT'
        DataSource = ADSVipBnk
        ButtonsColor = clBlack
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 1
        LabelWidth = 140
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object lecBegLBO2: xbLabelEditCalc
        Left = 8
        Top = 32
        Width = 230
        Height = 21
        BorderColor = clWindowText
        Caption = #1057' '#1085#1072#1095#1072#1083#1072' '#1075#1086#1076#1072'         '#1083#1080#1084#1080#1090#1099
        CaptionAlignment = taLeftJustify
        DataField = 'BEG_LBO_Y'
        DataSource = ADSVipBnk
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        Enabled = False
        TabOrder = 2
        LabelWidth = 140
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        VisibleButton = False
      end
      object lecBegFin2: xbLabelEditCalc
        Left = 247
        Top = 32
        Width = 180
        Height = 21
        BorderColor = clWindowText
        Caption = #1092#1080#1085#1072#1085#1089#1080#1088#1086#1074#1072#1085#1080#1077
        CaptionAlignment = taLeftJustify
        DataField = 'BEG_FIN_Y'
        DataSource = ADSVipBnk
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        Enabled = False
        TabOrder = 3
        LabelWidth = 90
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        VisibleButton = False
      end
      object lecBegKR2: xbLabelEditCalc
        Left = 436
        Top = 32
        Width = 180
        Height = 21
        BorderColor = clWindowText
        Caption = #1082#1072#1089#1089#1086#1074#1099#1081' '#1088#1072#1089#1093#1086#1076
        CaptionAlignment = taLeftJustify
        DataField = 'BEG_KR_Y'
        DataSource = ADSVipBnk
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        Enabled = False
        TabOrder = 4
        LabelWidth = 90
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        VisibleButton = False
      end
      object lecBegNotUseLBO2: xbLabelEditCalc
        Left = 8
        Top = 56
        Width = 230
        Height = 21
        BorderColor = clWindowText
        Caption = #1053#1077' '#1080#1089#1087#1086#1083#1100#1079#1086#1074#1072#1085#1086'   '#1083#1080#1084#1080#1090#1099
        CaptionAlignment = taLeftJustify
        DataField = 'BEG_LBO'
        DataSource = ADSVipBnk
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        Enabled = False
        TabOrder = 5
        LabelWidth = 140
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        VisibleButton = False
      end
      object lecBegNotUseFin2: xbLabelEditCalc
        Left = 247
        Top = 56
        Width = 180
        Height = 21
        BorderColor = clWindowText
        Caption = #1092#1080#1085#1072#1085#1089#1080#1088#1086#1074#1072#1085#1080#1077
        CaptionAlignment = taLeftJustify
        DataField = 'BEG_FIN'
        DataSource = ADSVipBnk
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        Enabled = False
        TabOrder = 6
        LabelWidth = 90
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        VisibleButton = False
      end
      object bGrid2: xbGrid
        Left = 8
        Top = 83
        Width = 608
        Height = 155
        Anchors = [akLeft, akTop, akRight, akBottom]
        AutoFitColWidths = True
        DataSource = ADSFinPln
        Flat = True
        FooterColor = clWindow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -11
        FooterFont.Name = 'MS Sans Serif'
        FooterFont.Style = []
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgAlwaysShowSelection, dgConfirmDelete]
        OptionsEh = [dghFixed3D, dghClearSelection]
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        UseMultiTitle = True
        OnDblClick = bGrid2_DblClick
        OnKeyPress = bGrid2_KeyPress
        IdGrid = '{172033CB-2E22-4D78-A1CD-BD2926EAF23F}'
        Columns = <
          item
            EditButtons = <>
            FieldName = 'DOC_CODE'
            Footers = <>
            Title.Caption = #1044#1086#1082#1091#1084#1077#1085#1090'|'#1074#1080#1076
            Width = 30
          end
          item
            EditButtons = <>
            FieldName = 'DOC_NUM'
            Footers = <>
            Title.Caption = #1044#1086#1082#1091#1084#1077#1085#1090'|'#1085#1086#1084#1077#1088
            Width = 90
          end
          item
            EditButtons = <>
            FieldName = 'DOC_DATE'
            Footers = <>
            Title.Caption = #1044#1086#1082#1091#1084#1077#1085#1090'|'#1076#1072#1090#1072
            Width = 60
          end
          item
            EditButtons = <>
            FieldName = 'PART_CODE'
            Footers = <>
            Title.Caption = #1055#1072#1088#1090#1085#1077#1088'|'#1082#1086#1076
            Width = 70
          end
          item
            EditButtons = <>
            FieldName = 'PART_SHORTNAME'
            Footers = <>
            Title.Caption = #1055#1072#1088#1090#1085#1077#1088'|'#1085#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
            Width = 199
          end
          item
            EditButtons = <>
            FieldName = 'SUM_LBO_SIGN'
            Footers = <>
            Title.Caption = #1055#1088#1080#1085#1103#1090#1086' '#1085#1072' '#1091#1095#1077#1090' '#1073#1102#1076#1078#1077#1090#1085#1099#1093' '#1086#1073#1103#1079#1072#1090#1077#1083#1100#1089#1090#1074
            Width = 139
          end>
      end
      object leEndDate2: xbLabelEdit
        Left = 8
        Top = 268
        Width = 230
        Height = 21
        Anchors = [akLeft, akBottom]
        BorderColor = clWindowText
        Caption = #1044#1072#1090#1072' '#1086#1082#1086#1085#1095#1072#1085#1080#1103
        CaptionAlignment = taLeftJustify
        DataField = 'OBJ_DT'
        DataSource = ADSVipBnk
        ButtonsColor = clBlack
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 8
        LabelWidth = 140
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object lecEndLBO2: xbLabelEditCalc
        Left = 8
        Top = 292
        Width = 230
        Height = 21
        Anchors = [akLeft, akBottom]
        BorderColor = clWindowText
        Caption = #1057' '#1085#1072#1095#1072#1083#1072' '#1075#1086#1076#1072'         '#1083#1080#1084#1080#1090#1099
        CaptionAlignment = taLeftJustify
        DataField = 'END_LBO_Y'
        DataSource = ADSVipBnk
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        Enabled = False
        TabOrder = 9
        LabelWidth = 140
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        VisibleButton = False
      end
      object lecEndFin2: xbLabelEditCalc
        Left = 247
        Top = 292
        Width = 180
        Height = 21
        Anchors = [akLeft, akBottom]
        BorderColor = clWindowText
        Caption = #1092#1080#1085#1072#1085#1089#1080#1088#1086#1074#1072#1085#1080#1077
        CaptionAlignment = taLeftJustify
        DataField = 'END_FIN_Y'
        DataSource = ADSVipBnk
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        Enabled = False
        TabOrder = 10
        LabelWidth = 90
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        VisibleButton = False
      end
      object lecEndKR2: xbLabelEditCalc
        Left = 436
        Top = 292
        Width = 180
        Height = 21
        Anchors = [akLeft, akBottom]
        BorderColor = clWindowText
        Caption = #1082#1072#1089#1089#1086#1074#1099#1081' '#1088#1072#1089#1093#1086#1076
        CaptionAlignment = taLeftJustify
        DataField = 'END_KR_Y'
        DataSource = ADSVipBnk
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        Enabled = False
        TabOrder = 11
        LabelWidth = 90
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        VisibleButton = False
      end
      object lecEndNotUseLBO2: xbLabelEditCalc
        Left = 8
        Top = 316
        Width = 230
        Height = 21
        Anchors = [akLeft, akBottom]
        BorderColor = clWindowText
        Caption = #1053#1077' '#1080#1089#1087#1086#1083#1100#1079#1086#1074#1072#1085#1086'   '#1083#1080#1084#1080#1090#1099
        CaptionAlignment = taLeftJustify
        DataField = 'END_LBO'
        DataSource = ADSVipBnk
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        Enabled = False
        TabOrder = 12
        LabelWidth = 140
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        VisibleButton = False
      end
      object lecEndNotUseFin2: xbLabelEditCalc
        Left = 247
        Top = 316
        Width = 180
        Height = 21
        Anchors = [akLeft, akBottom]
        BorderColor = clWindowText
        Caption = #1092#1080#1085#1072#1085#1089#1080#1088#1086#1074#1072#1085#1080#1077
        CaptionAlignment = taLeftJustify
        DataField = 'END_FIN'
        DataSource = ADSVipBnk
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        Enabled = False
        TabOrder = 13
        LabelWidth = 90
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        VisibleButton = False
      end
      object lecInOutBO2: xbLabelEditCalc
        Left = 8
        Top = 244
        Width = 240
        Height = 21
        Anchors = [akLeft, akBottom]
        BorderColor = clWindowText
        Caption = #1048#1090#1086#1075#1086' '#1086#1073#1086#1088#1086#1090#1099
        CaptionAlignment = taLeftJustify
        DataField = 'INOUT_BO'
        DataSource = ADSVipBnk
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        Enabled = False
        TabOrder = 7
        LabelWidth = 140
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        VisibleButton = False
      end
    end
    object TabSheet3: TTabSheet
      Caption = #1050#1072#1089#1089#1086#1074#1099#1077' '#1088#1072#1089#1093#1086#1076#1099
      DesignSize = (
        624
        340)
      object leBegDate3: xbLabelEdit
        Left = 8
        Top = 8
        Width = 230
        Height = 21
        BorderColor = clWindowText
        Caption = #1044#1072#1090#1072' '#1085#1072#1095#1072#1083#1072
        CaptionAlignment = taLeftJustify
        DataField = 'PRV_DT'
        DataSource = ADSVipBnk
        ButtonsColor = clBlack
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 1
        LabelWidth = 140
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object lecBegLBO3: xbLabelEditCalc
        Left = 8
        Top = 32
        Width = 230
        Height = 21
        BorderColor = clWindowText
        Caption = #1057' '#1085#1072#1095#1072#1083#1072' '#1075#1086#1076#1072'         '#1083#1080#1084#1080#1090#1099
        CaptionAlignment = taLeftJustify
        DataField = 'BEG_LBO_Y'
        DataSource = ADSVipBnk
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        Enabled = False
        TabOrder = 2
        LabelWidth = 140
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        VisibleButton = False
      end
      object lecBegFin3: xbLabelEditCalc
        Left = 247
        Top = 32
        Width = 180
        Height = 21
        BorderColor = clWindowText
        Caption = #1092#1080#1085#1072#1085#1089#1080#1088#1086#1074#1072#1085#1080#1077
        CaptionAlignment = taLeftJustify
        DataField = 'BEG_FIN_Y'
        DataSource = ADSVipBnk
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        Enabled = False
        TabOrder = 3
        LabelWidth = 90
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        VisibleButton = False
      end
      object lecBegKR3: xbLabelEditCalc
        Left = 436
        Top = 32
        Width = 180
        Height = 21
        BorderColor = clWindowText
        Caption = #1082#1072#1089#1089#1086#1074#1099#1081' '#1088#1072#1089#1093#1086#1076
        CaptionAlignment = taLeftJustify
        DataField = 'BEG_KR_Y'
        DataSource = ADSVipBnk
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        Enabled = False
        TabOrder = 4
        LabelWidth = 90
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        VisibleButton = False
      end
      object lecBegNotUseLBO3: xbLabelEditCalc
        Left = 8
        Top = 56
        Width = 230
        Height = 21
        BorderColor = clWindowText
        Caption = #1053#1077' '#1080#1089#1087#1086#1083#1100#1079#1086#1074#1072#1085#1086'   '#1083#1080#1084#1080#1090#1099
        CaptionAlignment = taLeftJustify
        DataField = 'BEG_LBO'
        DataSource = ADSVipBnk
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        Enabled = False
        TabOrder = 5
        LabelWidth = 140
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        VisibleButton = False
      end
      object lecBegNotUseFin3: xbLabelEditCalc
        Left = 247
        Top = 56
        Width = 180
        Height = 21
        BorderColor = clWindowText
        Caption = #1092#1080#1085#1072#1085#1089#1080#1088#1086#1074#1072#1085#1080#1077
        CaptionAlignment = taLeftJustify
        DataField = 'BEG_FIN'
        DataSource = ADSVipBnk
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        Enabled = False
        TabOrder = 6
        LabelWidth = 90
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        VisibleButton = False
      end
      object bGrid3: xbGrid
        Left = 8
        Top = 83
        Width = 608
        Height = 155
        Anchors = [akLeft, akTop, akRight, akBottom]
        AutoFitColWidths = True
        DataSource = ADS3
        Flat = True
        FooterColor = clWindow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -11
        FooterFont.Name = 'MS Sans Serif'
        FooterFont.Style = []
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgAlwaysShowSelection, dgConfirmDelete]
        OptionsEh = [dghFixed3D, dghClearSelection]
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        UseMultiTitle = True
        OnDblClick = bGrid3_DblClick
        OnKeyPress = bGrid3_KeyPress
        IdGrid = '{931B17DE-23CB-4630-9224-F28B1EE76C88}'
        Columns = <
          item
            EditButtons = <>
            FieldName = 'DOC_CODE'
            Footers = <>
            Title.Caption = #1044#1086#1082#1091#1084#1077#1085#1090'|'#1074#1080#1076
            Width = 30
          end
          item
            EditButtons = <>
            FieldName = 'DOC_NUM'
            Footers = <>
            Title.Caption = #1044#1086#1082#1091#1084#1077#1085#1090'|'#1085#1086#1084#1077#1088
            Width = 90
          end
          item
            EditButtons = <>
            FieldName = 'DOC_DATE'
            Footers = <>
            Title.Caption = #1044#1086#1082#1091#1084#1077#1085#1090'|'#1076#1072#1090#1072
            Width = 60
          end
          item
            EditButtons = <>
            FieldName = 'VAR_FIELD2'
            Footers = <>
            Title.Caption = #1055#1072#1088#1090#1085#1077#1088'|'#1082#1086#1076
            Width = 58
          end
          item
            EditButtons = <>
            FieldName = 'VAR_FIELD1'
            Footers = <>
            Title.Caption = #1055#1072#1088#1090#1085#1077#1088'|'#1085#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
            Width = 170
          end
          item
            EditButtons = <>
            FieldName = 'SUM'
            Footers = <>
            Title.Caption = #1050#1072#1089#1089#1086#1074#1099#1081' '#1088#1072#1089#1093#1086#1076'|'#1074#1089#1077#1075#1086
            Width = 90
          end
          item
            EditButtons = <>
            FieldName = 'SUM_LBO'
            Footers = <>
            Title.Caption = #1050#1072#1089#1089#1086#1074#1099#1081' '#1088#1072#1089#1093#1086#1076'|'#1074' '#1090'.'#1095'. '#1074' '#1089#1095#1077#1090' '#1041#1054
            Width = 89
          end>
      end
      object lecSum3: xbLabelEditCalc
        Left = 8
        Top = 244
        Width = 240
        Height = 21
        Anchors = [akLeft, akBottom]
        BorderColor = clWindowText
        Caption = #1048#1090#1086#1075#1086' '#1086#1073#1086#1088#1086#1090#1099
        CaptionAlignment = taLeftJustify
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        Enabled = False
        TabOrder = 7
        LabelWidth = 140
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        VisibleButton = False
      end
      object lecSumLBO3: xbLabelEditCalc
        Left = 260
        Top = 244
        Width = 100
        Height = 21
        Anchors = [akLeft, akBottom]
        BorderColor = clWindowText
        Caption = #1042#1093#1086#1076#1103#1097#1080#1081' '#1086#1089#1090#1072#1090#1086#1082
        CaptionAlignment = taLeftJustify
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        Enabled = False
        TabOrder = 8
        LabelWidth = 0
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        VisibleButton = False
      end
      object leEndDate3: xbLabelEdit
        Left = 8
        Top = 268
        Width = 230
        Height = 21
        Anchors = [akLeft, akBottom]
        BorderColor = clWindowText
        Caption = #1044#1072#1090#1072' '#1086#1082#1086#1085#1095#1072#1085#1080#1103
        CaptionAlignment = taLeftJustify
        DataField = 'OBJ_DT'
        DataSource = ADSVipBnk
        ButtonsColor = clBlack
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 9
        LabelWidth = 140
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object lecEndLBO3: xbLabelEditCalc
        Left = 8
        Top = 292
        Width = 230
        Height = 21
        Anchors = [akLeft, akBottom]
        BorderColor = clWindowText
        Caption = #1057' '#1085#1072#1095#1072#1083#1072' '#1075#1086#1076#1072'         '#1083#1080#1084#1080#1090#1099
        CaptionAlignment = taLeftJustify
        DataField = 'END_LBO_Y'
        DataSource = ADSVipBnk
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        Enabled = False
        TabOrder = 10
        LabelWidth = 140
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        VisibleButton = False
      end
      object lecEndFin3: xbLabelEditCalc
        Left = 247
        Top = 292
        Width = 180
        Height = 21
        Anchors = [akLeft, akBottom]
        BorderColor = clWindowText
        Caption = #1092#1080#1085#1072#1085#1089#1080#1088#1086#1074#1072#1085#1080#1077
        CaptionAlignment = taLeftJustify
        DataField = 'END_FIN_Y'
        DataSource = ADSVipBnk
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        Enabled = False
        TabOrder = 11
        LabelWidth = 90
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        VisibleButton = False
      end
      object lecEndKR3: xbLabelEditCalc
        Left = 436
        Top = 292
        Width = 180
        Height = 21
        Anchors = [akLeft, akBottom]
        BorderColor = clWindowText
        Caption = #1082#1072#1089#1089#1086#1074#1099#1081' '#1088#1072#1089#1093#1086#1076
        CaptionAlignment = taLeftJustify
        DataField = 'END_KR_Y'
        DataSource = ADSVipBnk
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        Enabled = False
        TabOrder = 12
        LabelWidth = 90
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        VisibleButton = False
      end
      object lecEndNotUseLBO3: xbLabelEditCalc
        Left = 8
        Top = 316
        Width = 230
        Height = 21
        Anchors = [akLeft, akBottom]
        BorderColor = clWindowText
        Caption = #1053#1077' '#1080#1089#1087#1086#1083#1100#1079#1086#1074#1072#1085#1086'   '#1083#1080#1084#1080#1090#1099
        CaptionAlignment = taLeftJustify
        DataField = 'END_LBO'
        DataSource = ADSVipBnk
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        Enabled = False
        TabOrder = 13
        LabelWidth = 140
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        VisibleButton = False
      end
      object lecEndNotUseFin3: xbLabelEditCalc
        Left = 247
        Top = 316
        Width = 180
        Height = 21
        Anchors = [akLeft, akBottom]
        BorderColor = clWindowText
        Caption = #1092#1080#1085#1072#1085#1089#1080#1088#1086#1074#1072#1085#1080#1077
        CaptionAlignment = taLeftJustify
        DataField = 'END_FIN'
        DataSource = ADSVipBnk
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        Enabled = False
        TabOrder = 14
        LabelWidth = 90
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        VisibleButton = False
      end
    end
  end
  object pMenuOperation: xbPopupButton
    Left = 559
    Top = 378
    Width = 75
    Height = 21
    Caption = #1054#1087#1077#1088#1072#1094#1080#1080
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = MenuOperation
    RoundedButton = True
    TabOrder = 2
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btRaschet: xbPopupButton
    Left = 451
    Top = 378
    Width = 100
    Height = 21
    Caption = #1056#1072#1089#1095#1077#1090#1099
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = MenuRaschet
    RoundedButton = True
    TabOrder = 1
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btRashBud: xbButton
    Left = 343
    Top = 378
    Width = 100
    Height = 21
    Hint = ' '#1053#1072#1076#1073#1072#1074#1082#1080' (Ctrl+N)'
    Caption = #1056#1072#1089#1093#1086#1076#1099' '#1073#1102#1076#1078#1077#1090#1072
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 3
    OnClick = btRashBud_Click
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_fin_doc'
    Active = False
    Left = 42
    Top = 118
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    Filtered = True
    FieldDefs = <
      item
        Name = 'LIST_ID'
        DataType = ftString
        Size = 22
      end
      item
        Name = 'BOOK_CODE'
        DataType = ftString
        Size = 2
      end
      item
        Name = 'CTG'
        DataType = ftFloat
      end
      item
        Name = 'BOOK_PER'
        DataType = ftDate
      end
      item
        Name = 'LIST_DATE'
        DataType = ftDate
      end
      item
        Name = 'LIST_NUM'
        DataType = ftString
        Size = 6
      end
      item
        Name = 'OP_CODE'
        DataType = ftString
        Size = 22
      end
      item
        Name = 'OPNAME'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'STATUS'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'RECALC'
        DataType = ftBoolean
      end
      item
        Name = 'LST_ACT'
        DataType = ftString
        Size = 17
      end
      item
        Name = 'USER_CODE'
        DataType = ftString
        Size = 6
      end
      item
        Name = 'STATUSNAME'
        DataType = ftString
        Size = 10
      end
      item
        Name = 'CTGNAME'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'TYPE_PER'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'Typepername'
        DataType = ftString
        Size = 25
      end>
    ReadOnly = True
    OEMTranslate = False
    Left = 102
    Top = 118
  end
  object ADS: xbADSDataSource
    DataSet = DS
    Left = 165
    Top = 118
  end
  object BODocCmp: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_DOC_CMP'
    Active = False
    Left = 41
    Top = 174
  end
  object DSDocCmp: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BODocCmp
    FieldDefs = <>
    OEMTranslate = False
    Left = 103
    Top = 174
  end
  object ADSDocCmp: xbADSDataSource
    DataSet = DSDocCmp
    Left = 168
    Top = 174
  end
  object BOVipBnk: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_fin_card'
    Active = False
    Left = 465
    Top = 215
  end
  object DSVipBnk: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOVipBnk
    FieldDefs = <
      item
        Name = 'LIST_ID'
        DataType = ftString
        Size = 22
      end
      item
        Name = 'BOOK_CODE'
        DataType = ftString
        Size = 2
      end
      item
        Name = 'CTG'
        DataType = ftFloat
      end
      item
        Name = 'BOOK_PER'
        DataType = ftDate
      end
      item
        Name = 'LIST_DATE'
        DataType = ftDate
      end
      item
        Name = 'LIST_NUM'
        DataType = ftString
        Size = 6
      end
      item
        Name = 'OP_CODE'
        DataType = ftString
        Size = 22
      end
      item
        Name = 'OPNAME'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'STATUS'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'RECALC'
        DataType = ftBoolean
      end
      item
        Name = 'LST_ACT'
        DataType = ftString
        Size = 17
      end
      item
        Name = 'USER_CODE'
        DataType = ftString
        Size = 6
      end
      item
        Name = 'STATUSNAME'
        DataType = ftString
        Size = 10
      end
      item
        Name = 'CTGNAME'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'TYPE_PER'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'Typepername'
        DataType = ftString
        Size = 25
      end>
    ReadOnly = True
    OEMTranslate = False
    Left = 518
    Top = 215
  end
  object ADSVipBnk: xbADSDataSource
    DataSet = DSVipBnk
    Left = 576
    Top = 214
  end
  object MenuOperation: xbPopupMenu
    Left = 556
    Top = 268
    object miGroupReg: TMenuItem
      Caption = #1043#1088#1091#1087#1087#1086#1074#1072#1103' '#1088#1077#1075#1080#1089#1090#1088#1072#1094#1080#1103
      OnClick = miGroupReg_Click
    end
  end
  object RFMoveTp: xbReferCaller
    ColumnsTune = 'MV_CODE;-1;50;1;0;'#1050#1086#1076'|MV_NAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
    ListDataSet = DSMoveTpRef
    ReferCaption = #1042#1080#1076#1099' '#1076#1074#1080#1078#1077#1085#1080#1103
    ReferHeight = 380
    ReferWidth = 450
    OnSelect = RFMoveTp_Select
    Left = 240
    Top = 233
  end
  object DSMoveTpRef: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'PAY\MOVE_TP.DBF'
    OEMTranslate = False
    Left = 318
    Top = 233
  end
  object MenuRaschet: xbPopupMenu
    Left = 454
    Top = 268
    object miDocOsn: TMenuItem
      Caption = #1044#1086#1082#1091#1084#1077#1085#1090'-'#1086#1089#1085#1086#1074#1072#1085#1080#1077
      OnClick = miDocOsn_Click
    end
    object miBalans: TMenuItem
      Caption = #1041#1072#1083#1072#1085#1089
      OnClick = miBalans_Click
    end
  end
  object BOFinPln: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_FIN_PLN'
    Active = False
    Left = 464
    Top = 163
  end
  object DSFinPln: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOFinPln
    FieldDefs = <>
    OEMTranslate = False
    Left = 516
    Top = 162
  end
  object ADSFinPln: xbADSDataSource
    DataSet = DSFinPln
    Left = 572
    Top = 162
  end
  object BO3: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_fin_doc'
    Active = False
    Left = 242
    Top = 118
  end
  object DS3: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO3
    Filtered = True
    FieldDefs = <
      item
        Name = 'LIST_ID'
        DataType = ftString
        Size = 22
      end
      item
        Name = 'BOOK_CODE'
        DataType = ftString
        Size = 2
      end
      item
        Name = 'CTG'
        DataType = ftFloat
      end
      item
        Name = 'BOOK_PER'
        DataType = ftDate
      end
      item
        Name = 'LIST_DATE'
        DataType = ftDate
      end
      item
        Name = 'LIST_NUM'
        DataType = ftString
        Size = 6
      end
      item
        Name = 'OP_CODE'
        DataType = ftString
        Size = 22
      end
      item
        Name = 'OPNAME'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'STATUS'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'RECALC'
        DataType = ftBoolean
      end
      item
        Name = 'LST_ACT'
        DataType = ftString
        Size = 17
      end
      item
        Name = 'USER_CODE'
        DataType = ftString
        Size = 6
      end
      item
        Name = 'STATUSNAME'
        DataType = ftString
        Size = 10
      end
      item
        Name = 'CTGNAME'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'TYPE_PER'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'Typepername'
        DataType = ftString
        Size = 25
      end>
    ReadOnly = True
    OEMTranslate = False
    Left = 305
    Top = 118
  end
  object ADS3: xbADSDataSource
    DataSet = DS3
    Left = 371
    Top = 118
  end
  object BODocCmp3: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_DOC_CMP'
    Active = False
    Left = 241
    Top = 174
  end
  object DSDocCmp3: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BODocCmp3
    FieldDefs = <>
    OEMTranslate = False
    Left = 306
    Top = 174
  end
  object ADSDocCmp3: xbADSDataSource
    DataSet = DSDocCmp3
    Left = 374
    Top = 174
  end
end
frmPayVipOFKAddRee.prg                                               10551object frmPayVipOFKAddRee: TfrmPayVipOFKAddRee
  Left = 25
  Top = 25
  Width = 560
  Height = 380
  ActiveControl = GridBudExp
  Anchors = []
  Caption = #1053#1086#1074#1072#1103' '#1074#1099#1087#1080#1089#1082#1072
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  WindowState = wsNormal
  OnActivate = Form_Activate
  OnClose = Form_Close
  OnCloseQuery = Form_CloseQuery
  OnCreate = Form_Create
  OnResize = Form_Resize
  OnShow = Form_Show
  DesignSize = (
    552
    346)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 8
    Top = 8
    Width = 536
    Height = 302
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    object TabSheet1: TTabSheet
      Caption = #1054#1073#1097#1077#1077
      DesignSize = (
        534
        280)
      object leBegDate: xbLabelEditCalend
        Left = 8
        Top = 8
        Width = 170
        Height = 21
        BorderColor = clWindowText
        Caption = #1044#1072#1090#1072' '#1085#1072#1095#1072#1083#1072
        CaptionExtender = ceNone
        CaptionAlignment = taLeftJustify
        DataField = 'PRV_DT'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        EditMask = '!99/99/0000;1; '
        TabOrder = 0
        LabelWidth = 90
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        MaxLength = 10
        Text = '  /  /    '
        OnBeforeExit = leBegDate_BeforeExit
        OnExit = leBegDate_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2;Alt+Down'
        ClearFields = 'PRV_DT'
        VisibleButton = False
      end
      object leEndDate: xbLabelEditCalend
        Left = 188
        Top = 8
        Width = 170
        Height = 21
        BorderColor = clWindowText
        Caption = #1044#1072#1090#1072' '#1086#1082#1086#1085#1095#1072#1085#1080#1103
        CaptionExtender = ceNone
        CaptionAlignment = taLeftJustify
        DataField = 'OBJ_DT'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        EditMask = '!99/99/0000;1; '
        TabOrder = 1
        LabelWidth = 90
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        MaxLength = 10
        Text = '  /  /    '
        OnBeforeExit = leEndDate_BeforeExit
        OnExit = leEndDate_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2;Alt+Down'
        ClearFields = 'OBJ_DT'
        VisibleButton = False
      end
      object lecLBO: xbLabelEditCalc
        Left = 8
        Top = 252
        Width = 220
        Height = 21
        Anchors = [akLeft, akBottom]
        BorderColor = clWindowText
        Caption = #1048#1090#1086#1075#1086
        CaptionAlignment = taLeftJustify
        DataField = 'BEG_LBO_Y'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 2
        LabelWidth = 120
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        EnabledButton = False
        VisibleButton = False
      end
      object GridBudExp: xbGrid
        Left = 6
        Top = 35
        Width = 522
        Height = 210
        Anchors = [akLeft, akTop, akRight, akBottom]
        AutoFitColWidths = True
        DataSource = adsBudExp
        Flat = True
        FooterColor = clWindow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -11
        FooterFont.Name = 'MS Sans Serif'
        FooterFont.Style = []
        Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgConfirmDelete]
        ReadOnly = True
        TabOrder = 3
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        UseMultiTitle = True
        OnDblClick = GridBudExp_DblClick
        OnKeyPress = GridBudExp_KeyPress
        IdGrid = '{9C233A14-2B18-40D1-912C-3C756A9DDB1A}'
        Columns = <
          item
            EditButtons = <>
            FieldName = 'EXP_DIM'
            Footers = <>
            Title.Caption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
            Width = 205
          end
          item
            Alignment = taRightJustify
            EditButtons = <>
            FieldName = 'SUM_LBO_Y'
            Footers = <>
            Title.Caption = #1057' '#1085#1072#1095#1072#1083#1072' '#1075#1086#1076#1072'|'#1051#1041#1054
            Width = 100
          end
          item
            Alignment = taRightJustify
            EditButtons = <>
            FieldName = 'SUM_FIN_Y'
            Footers = <>
            Title.Caption = #1057' '#1085#1072#1095#1072#1083#1072' '#1075#1086#1076#1072'|'#1092#1080#1085#1072#1085#1089#1080#1088#1086#1074#1072#1085#1080#1077
            Width = 100
          end
          item
            Alignment = taRightJustify
            EditButtons = <>
            FieldName = 'SUM_KR_Y'
            Footers = <>
            Title.Caption = #1057' '#1085#1072#1095#1072#1083#1072' '#1075#1086#1076#1072'|'#1082#1072#1089#1089#1086#1074#1099#1081' '#1088#1072#1089#1093#1086#1076
            Width = 99
          end>
      end
      object lecFin: xbLabelEditCalc
        Left = 238
        Top = 252
        Width = 100
        Height = 21
        Anchors = [akLeft, akBottom]
        BorderColor = clWindowText
        CaptionAlignment = taLeftJustify
        DataField = 'BEG_FIN_Y'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 4
        LabelWidth = 0
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        EnabledButton = False
        VisibleButton = False
      end
      object lecKR: xbLabelEditCalc
        Left = 350
        Top = 252
        Width = 100
        Height = 21
        Anchors = [akLeft, akBottom]
        BorderColor = clWindowText
        CaptionAlignment = taLeftJustify
        DataField = 'BEG_KR_Y'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 5
        LabelWidth = 0
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        EnabledButton = False
        VisibleButton = False
      end
    end
  end
  object btnOK: xbButton
    Left = 385
    Top = 318
    Width = 75
    Height = 21
    Hint = #1057#1086#1093#1088#1072#1085#1077#1085#1080#1077' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (F10)'
    Caption = #1054#1050
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 1
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btnCANCEL: xbButton
    Left = 472
    Top = 318
    Width = 75
    Height = 21
    Hint = #1042#1099#1093#1086#1076' '#1080#1079' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (Esc)'
    Caption = #1054#1090#1084#1077#1085#1072
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 2
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_FIN_CARD'
    Active = False
    Left = 79
    Top = 2
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <>
    OEMTranslate = False
    AfterEdit = DS_AfterEdit
    Left = 156
  end
  object ADS: xbADSDataSource
    DataSet = DS
    Left = 119
    Top = 1
  end
  object BOBudExp: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_BUD_EXP'
    Active = False
    Left = 169
    Top = 127
  end
  object DSBudExp: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOBudExp
    FieldDefs = <>
    ReadOnly = True
    OEMTranslate = False
    Left = 225
    Top = 127
  end
  object adsBudExp: xbADSDataSource
    DataSet = DSBudExp
    Left = 284
    Top = 127
  end
  object DSPeriod: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'Period'
    OEMTranslate = False
    IndexName = 'TAG_YEAR'
    Left = 432
    Top = 6
  end
  object BOSeek: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_FIN_CARD'
    Active = False
    Left = 29
    Top = 127
  end
  object DSSeek: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOSeek
    FieldDefs = <>
    OEMTranslate = False
    AfterEdit = DS_AfterEdit
    Left = 80
    Top = 127
  end
end
frmPayVipOFKAdd.prg                                                   8615object frmPayVipOFKAdd: TfrmPayVipOFKAdd
  Left = 25
  Top = 25
  Width = 454
  Height = 234
  ActiveControl = larAnal
  Anchors = []
  Caption = #1056#1072#1089#1093#1086#1076#1099' '#1073#1102#1076#1078#1077#1090#1072
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  WindowState = wsNormal
  OnActivate = Form_Activate
  OnClose = Form_Close
  OnCloseQuery = Form_CloseQuery
  OnCreate = Form_Create
  DesignSize = (
    446
    200)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 8
    Top = 8
    Width = 430
    Height = 156
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    object TabSheet1: TTabSheet
      Caption = #1054#1073#1097#1077#1077
      object larAnal: xbLabelEditAnalitRefer
        Left = 8
        Top = 8
        Width = 412
        Height = 21
        BorderColor = clWindowText
        Caption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
        CaptionAlignment = taLeftJustify
        DataField = 'EXP_DIM'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 0
        LabelWidth = 106
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        ClickKeysAlternate = 'F2'
        ClearFields = 'EXP_DIM'
        EnabledEdit = False
        VisibleButton = True
        UseStandartHint = True
        FindFieldType = tfCharacterString
        ReferCaption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
        TableName = 'PAY\DIM_TUNE'
        xReferId = 0
        IsHarbourRefer = True
        MakeChecking = True
      end
      object bFrame2: xbFrame
        Left = 8
        Top = 37
        Width = 202
        Height = 90
        Caption = #1057' '#1085#1072#1095#1072#1083#1072' '#1075#1086#1076#1072
        TabOrder = 1
        object lecLBOY: xbLabelEditCalc
          Left = 7
          Top = 16
          Width = 190
          Height = 21
          BorderColor = clWindowText
          Caption = #1051#1080#1084#1080#1090' '#1041#1054
          CaptionAlignment = taLeftJustify
          DataField = 'SUM_LBO_Y'
          DataSource = ADS
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 0
          LabelWidth = 100
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          Text = '0'
          OnExit = lecLBOY_Exit
          PopupListClickKey = 0
          ClickKeysAlternate = 'F2'
          VisibleButton = False
        end
        object lecFinY: xbLabelEditCalc
          Left = 6
          Top = 40
          Width = 190
          Height = 21
          BorderColor = clWindowText
          Caption = #1060#1080#1085#1072#1085#1089#1080#1088#1086#1074#1072#1085#1080#1077
          CaptionAlignment = taLeftJustify
          DataField = 'SUM_FIN_Y'
          DataSource = ADS
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 1
          LabelWidth = 100
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          Text = '0'
          OnExit = lecFinY_Exit
          PopupListClickKey = 0
          ClickKeysAlternate = 'F2'
          VisibleButton = False
        end
        object lecKRY: xbLabelEditCalc
          Left = 6
          Top = 64
          Width = 190
          Height = 21
          BorderColor = clWindowText
          Caption = #1050#1072#1089#1089#1086#1074#1099#1081' '#1088#1072#1089#1093#1086#1076
          CaptionAlignment = taLeftJustify
          DataField = 'SUM_KR_Y'
          DataSource = ADS
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 2
          LabelWidth = 100
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          Text = '0'
          OnExit = lecKRY_Exit
          PopupListClickKey = 0
          ClickKeysAlternate = 'F2'
          VisibleButton = False
        end
      end
      object bFrame1: xbFrame
        Left = 218
        Top = 37
        Width = 202
        Height = 90
        Caption = #1053#1077' '#1080#1089#1087#1086#1083#1100#1079#1086#1074#1072#1085#1086
        TabOrder = 2
        object lecLBO: xbLabelEditCalc
          Left = 6
          Top = 16
          Width = 190
          Height = 21
          BorderColor = clWindowText
          Caption = #1051#1080#1084#1080#1090' '#1041#1054
          CaptionAlignment = taLeftJustify
          DataField = 'SUM_LBO'
          DataSource = ADS
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 0
          LabelWidth = 100
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          Text = '0'
          PopupListClickKey = 0
          ClickKeysAlternate = 'F2'
          EnabledEdit = False
          EnabledButton = False
          VisibleButton = False
        end
        object lecFin: xbLabelEditCalc
          Left = 6
          Top = 40
          Width = 190
          Height = 21
          BorderColor = clWindowText
          Caption = #1060#1080#1085#1072#1085#1089#1080#1088#1086#1074#1072#1085#1080#1077
          CaptionAlignment = taLeftJustify
          DataField = 'SUM_FIN'
          DataSource = ADS
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 1
          LabelWidth = 100
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          Text = '0'
          PopupListClickKey = 0
          ClickKeysAlternate = 'F2'
          EnabledEdit = False
          EnabledButton = False
          VisibleButton = False
        end
      end
    end
  end
  object btnOK: xbButton
    Left = 279
    Top = 172
    Width = 75
    Height = 21
    Hint = #1057#1086#1093#1088#1072#1085#1077#1085#1080#1077' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (F10)'
    Caption = #1054#1050
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 1
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btnCANCEL: xbButton
    Left = 366
    Top = 172
    Width = 75
    Height = 21
    Hint = #1042#1099#1093#1086#1076' '#1080#1079' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (Esc)'
    Caption = #1054#1090#1084#1077#1085#1072
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 2
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_BUD_EXP'
    Active = False
    Left = 138
    Top = 20
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <>
    OEMTranslate = False
    AfterEdit = DS_AfterEdit
    Left = 215
    Top = 18
  end
  object ADS: xbADSDataSource
    DataSet = DS
    Left = 178
    Top = 19
  end
  object DSDIMTUNE: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'PAY\dim_tune'
    OEMTranslate = False
    IndexName = 'TAG_CODE'
    Left = 295
    Top = 18
  end
end
frmPayDocVipOFK1.prg                                                 20238object frmPayDocVipOFK1: TfrmPayDocVipOFK1
  Left = 25
  Top = 25
  Width = 516
  Height = 296
  ActiveControl = ledOperDate
  Anchors = []
  Caption = #1060#1080#1085#1072#1085#1089#1080#1088#1086#1074#1072#1085#1080#1077
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  WindowState = wsNormal
  OnCloseQuery = Form_CloseQuery
  OnCreate = Form_Create
  DesignSize = (
    508
    262)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 8
    Top = 8
    Width = 494
    Height = 223
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    object TabSheet1: TTabSheet
      Caption = #1054#1073#1097#1077#1077
      DesignSize = (
        492
        201)
      object lerMvTpCode: xbLabelEditRefer
        Left = 8
        Top = 32
        Width = 338
        Height = 21
        BorderColor = clWindowText
        Caption = #1042#1080#1076' '#1076#1074#1080#1078#1077#1085#1080#1103
        CaptionAlignment = taLeftJustify
        DataField = 'MV_NAME'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 2
        LabelWidth = 110
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnChange = lerMvTpCode_Change
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'MV_CODE'
        EnabledEdit = False
        EnabledButton = False
        BeforeButtonClick = lerMvTpCode_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'MV_CODE;-1;50;1;-1;'#1050#1086#1076'|MV_NAME;-1;200;1;-1;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldName = 'MV_NAME'
        FindFieldType = tfCharacterString
        ListDataSet = DSMvTp
        OutFieldsArray = 'MV_CODE;PRT_TP'
        PutFieldsArray = 'MV_CODE;PRT_TP'
        ReferCaption = #1042#1080#1076#1099' '#1076#1074#1080#1078#1077#1085#1080#1103' '#1076#1077#1085#1077#1078#1085#1099#1093' '#1089#1088#1077#1076#1089#1090#1074
        TypeFindFieldName = 'MV_NAME'
        xReferId = 0
        IsHarbourRefer = True
      end
      object FramePartner: xbFrame
        Left = 8
        Top = 85
        Width = 476
        Height = 56
        TabOrder = 6
        Anchors = [akLeft, akTop, akRight]
        DesignSize = (
          476
          56)
        object lbObjName: xbLabel
          Left = 210
          Top = 9
          Width = 256
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPlatName'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'FINOBJ_NAME'
          DataSource = ADS
        end
        object lbPartName: xbLabel
          Left = 210
          Top = 33
          Width = 256
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPartName'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'PART_ORGNAME'
          DataSource = ADS
        end
        object leObjCode: xbLabelEdit
          Left = 6
          Top = 6
          Width = 194
          Height = 21
          BorderColor = clWindowText
          Caption = #1054#1073#1098#1077#1082#1090' '#1091#1095#1077#1090#1072
          CaptionAlignment = taLeftJustify
          DataField = 'FINOBJ_CODE'
          DataSource = ADS
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 0
          LabelWidth = 104
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object lerPartCode: xbLabelEditRefer
          Left = 6
          Top = 30
          Width = 194
          Height = 21
          BorderColor = clWindowText
          Caption = #1055#1072#1088#1090#1085#1077#1088
          CaptionAlignment = taLeftJustify
          DataField = 'PART_CODE'
          DataSource = ADS
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 1
          LabelWidth = 104
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          OnEnter = lerPartCode_Enter
          OnExit = lerPartCode_Exit
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'PRT_ID'
          BeforeButtonClick = lerPartCode_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 'CODE;-1;100;1;0;'#1050#1086#1076'|SORTNAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
          FindFieldName = 'CODE'
          FindFieldType = tfCharacterString
          ListDataSet = DSPartner
          OutFieldsArray = 'PART_ID'
          PutFieldsArray = 'PRT_ID'
          ReferCaption = #1057#1087#1080#1089#1086#1082
          ReferWidth = 450
          TypeFindFieldName = 'CODE'
          xReferId = 0
          IsHarbourRefer = True
          OnSelect = lerPartCode_Select
        end
      end
      object lcbStatus: xbLabelCombo
        Left = 216
        Top = 8
        Width = 130
        Height = 21
        ParentBackGround = True
        Caption = #1057#1090#1072#1090#1091#1089
        Enabled = False
        TabOrder = 1
        LabelWidth = 40
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Sorted = False
        EditColor = clWindow
        DisabledColor = clInactiveBorder
        DisabledFontColor = clBlack
        BorderColor = clWindowText
        AutoComplete = False
        Style = csDropDownList
        CharCase = ecNormal
        DropDownCount = 0
        ItemHeight = 0
        MaxLength = 0
        Items.Strings = (
          #1095#1077#1088#1085#1086#1074#1080#1082
          #1086#1087#1083#1072#1095#1077#1085
          #1087#1077#1088#1077#1076#1072#1085)
        ItemIndex = -1
        UseStandartHint = True
      end
      object leDocNum: xbLabelEdit
        Left = 216
        Top = 56
        Width = 130
        Height = 21
        BorderColor = clWindowText
        Caption = #1085#1086#1084#1077#1088'    '
        CaptionAlignment = taLeftJustify
        DataField = 'DOC_NUM'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 4
        LabelWidth = 40
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object lecSumFin: xbLabelEditCalc
        Left = 284
        Top = 173
        Width = 200
        Height = 21
        BorderColor = clWindowText
        Caption = #1060#1080#1085#1072#1085#1089#1080#1088#1086#1074#1072#1085#1080#1077
        CaptionAlignment = taLeftJustify
        DataField = 'SUM_FIN'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        TabOrder = 9
        LabelWidth = 110
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        VisibleButton = False
      end
      object lerNaznPlat: xbLabelEditRefer
        Left = 8
        Top = 149
        Width = 476
        Height = 21
        BorderColor = clWindowText
        Caption = #1053#1072#1079#1085#1072#1095#1077#1085#1080#1077' '#1087#1083#1072#1090#1077#1078#1072
        CaptionAlignment = taLeftJustify
        DataField = 'COMMENT'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 7
        LabelWidth = 110
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnKeyDown = lerNaznPlat_KeyDown
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'COMMENT'
        BeforeButtonClick = lerNaznPlat_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'TEXT;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldType = tfCharacterString
        ListDataSet = DSReasons
        OutFieldsArray = 'TEXT'
        PutFieldsArray = 'COMMENT'
        ReferCaption = #1054#1089#1085#1086#1074#1072#1085#1080#1103' '#1087#1083#1072#1090#1077#1078#1072
        ReferWidth = 450
        xReferId = 0
        IsHarbourRefer = True
      end
      object ledOperDate: xbLabelEditCalend
        Left = 8
        Top = 8
        Width = 200
        Height = 21
        BorderColor = clWindowText
        Caption = #1044#1072#1090#1072' '#1086#1087#1077#1088#1072#1094#1080#1080
        CaptionAlignment = taLeftJustify
        DataField = 'OPER_DATE'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        EditMask = '!99/99/0000;1; '
        TabOrder = 0
        LabelWidth = 110
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        MaxLength = 10
        Text = '  /  /    '
        OnEnter = ledOperDate_Enter
        OnExit = ledOperDate_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2;Alt+Down'
        ClearFields = 'OPER_DATE'
        VisibleButton = False
      end
      object ledDocDate: xbLabelEditCalend
        Left = 354
        Top = 56
        Width = 130
        Height = 21
        BorderColor = clWindowText
        Caption = '   '#1076#1072#1090#1072'        '
        CaptionAlignment = taLeftJustify
        DataField = 'DOC_DATE'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        EditMask = '!99/99/0000;1; '
        TabOrder = 5
        LabelWidth = 40
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        MaxLength = 10
        Text = '  /  /    '
        OnExit = ledDocDate_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2;Alt+Down'
        VisibleButton = False
      end
      object lecSumLBO: xbLabelEditCalc
        Left = 8
        Top = 173
        Width = 200
        Height = 21
        BorderColor = clWindowText
        Caption = #1051#1080#1084#1080#1090#1099' '#1041#1054
        CaptionAlignment = taLeftJustify
        DataField = 'SUM_LBO'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        TabOrder = 8
        LabelWidth = 110
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        OnEnter = lecSumLBO_Enter
        OnExit = lecSumLBO_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        VisibleButton = False
      end
      object lerDocVid: xbLabelEditRefer
        Left = 8
        Top = 56
        Width = 200
        Height = 21
        BorderColor = clWindowText
        Caption = #1044#1086#1082#1091#1084#1077#1085#1090'            '#1074#1080#1076'   '
        CaptionAlignment = taLeftJustify
        DataField = 'DOC_CODE'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 3
        LabelWidth = 110
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'DOC_CODE'
        BeforeButtonClick = lerDocVid_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'TP_CODE;-1;50;1;-1;'#1050#1086#1076'|TP_NAME;-1;150;1;-1;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldName = 'TP_CODE'
        FindFieldType = tfCharacterString
        ListDataSet = DSDocTp
        OutFieldsArray = 'TP_CODE'
        PutFieldsArray = 'DOC_CODE'
        ReferCaption = #1042#1080#1076#1099' '#1076#1086#1082#1091#1084#1077#1085#1090#1086#1074
        TypeFindFieldName = 'TP_CODE'
        xReferId = 0
        IsHarbourRefer = True
      end
    end
  end
  object btnOK: xbButton
    Left = 344
    Top = 240
    Width = 75
    Height = 21
    Hint = #1057#1086#1093#1088#1072#1085#1077#1085#1080#1077' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (F10)'
    Caption = #1054#1050
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 4
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btnCANCEL: xbButton
    Left = 427
    Top = 240
    Width = 75
    Height = 21
    Hint = #1042#1099#1093#1086#1076' '#1080#1079' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (Esc)'
    Caption = #1054#1090#1084#1077#1085#1072
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 5
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object pbDopData: xbPopupButton
    Left = 236
    Top = 240
    Width = 100
    Height = 21
    Caption = #1044#1086#1087'. '#1076#1072#1085#1085#1099#1077
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = MenuDopData
    RoundedButton = True
    TabOrder = 3
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btSchFact: xbButton
    Left = 128
    Top = 240
    Width = 100
    Height = 21
    Hint = ' '#1053#1072#1076#1073#1072#1074#1082#1080' (Ctrl+N)'
    Caption = #1057#1095#1077#1090#1072'-'#1092#1072#1082#1090#1091#1088#1099
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 2
    OnClick = btSchFact_Click
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btRaschet: xbPopupButton
    Left = 20
    Top = 240
    Width = 100
    Height = 21
    Caption = #1056#1072#1089#1095#1077#1090#1099
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = MenuRaschet
    RoundedButton = True
    TabOrder = 1
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <>
    OEMTranslate = False
    Left = 109
    Top = 3
  end
  object ADS: xbADSDataSource
    DataSet = DS
    Left = 145
    Top = 3
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_FIN_DOC'
    Active = False
    Left = 72
    Top = 3
  end
  object MenuDopData: xbPopupMenu
    Left = 333
    Top = 133
    object MenuStatus1: TMenuItem
      Caption = #1044#1086#1093#1086#1076#1099' '#1073#1102#1076#1078#1077#1090#1072
      OnClick = MenuStatus1_Click
    end
    object MenuStatus2: TMenuItem
      Caption = #1056#1072#1089#1093#1086#1076#1099' '#1073#1102#1076#1078#1077#1090#1072
      OnClick = MenuStatus2_Click
    end
    object miDocRecv: TMenuItem
      Caption = #1044#1086#1087' '#1088#1077#1082#1074#1080#1079#1080#1090#1099'        Alt+F5'
      OnClick = miDocRecv_Click
    end
  end
  object BODocCmp: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_DOC_CMP'
    Active = False
    Left = 303
    Top = 82
  end
  object DSDocCmp: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BODocCmp
    FieldDefs = <>
    OEMTranslate = False
    Left = 369
    Top = 84
  end
  object ADSDocCmp: xbADSDataSource
    DataSet = DSDocCmp
    Left = 436
    Top = 84
  end
  object BOMvTp: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_MOVE_TP'
    Active = False
    Left = 376
    Top = 36
  end
  object DSMvTp: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOMvTp
    FieldDefs = <>
    OEMTranslate = False
    Left = 429
    Top = 36
  end
  object BOReasons: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_REASONS'
    Active = False
    Left = 32
    Top = 111
  end
  object DSReasons: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOReasons
    FieldDefs = <>
    OEMTranslate = False
    Left = 29
    Top = 162
  end
  object BODocTp: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_DOC_TYPE'
    Active = False
    Left = 250
    Top = 34
  end
  object DSDocTp: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BODocTp
    FieldDefs = <>
    OEMTranslate = False
    Left = 303
    Top = 34
  end
  object BOPartner: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPartner'
    Active = False
    Left = 399
    Top = 133
  end
  object DSPartner: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOPartner
    FieldDefs = <>
    OEMTranslate = False
    Left = 444
    Top = 134
  end
  object MenuRaschet: xbPopupMenu
    Left = 257
    Top = 133
    object miDocOsn: TMenuItem
      Caption = #1044#1086#1082#1091#1084#1077#1085#1090'-'#1086#1089#1085#1086#1074#1072#1085#1080#1077
      OnClick = miDocOsn_Click
    end
    object miBalans: TMenuItem
      Caption = #1041#1072#1083#1072#1085#1089
      OnClick = miBalans_Click
    end
  end
end
frmPayBudExpOFK1Ree.prg                                               7372object frmPayBudExpOFK1Ree: TfrmPayBudExpOFK1Ree
  Left = 25
  Top = 25
  Width = 640
  Height = 380
  ActiveControl = GridBudExp
  Anchors = []
  Caption = #1056#1072#1089#1093#1086#1076#1099' '#1073#1102#1076#1078#1077#1090#1072
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  WindowState = wsNormal
  OnActivate = Form_Activate
  OnClose = Form_Close
  OnCloseQuery = Form_CloseQuery
  OnCreate = Form_Create
  OnResize = Form_Resize
  OnShow = Form_Show
  DesignSize = (
    632
    346)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 8
    Top = 8
    Width = 616
    Height = 336
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    object TabSheet1: TTabSheet
      Caption = #1054#1073#1097#1077#1077
      DesignSize = (
        614
        314)
      object lecLBOY: xbLabelEditCalc
        Left = 8
        Top = 286
        Width = 220
        Height = 21
        Anchors = [akLeft, akBottom]
        BorderColor = clWindowText
        Caption = #1048#1090#1086#1075#1086
        CaptionAlignment = taLeftJustify
        DataField = 'BEG_LBO_Y'
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 0
        LabelWidth = 120
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        EnabledButton = False
        VisibleButton = False
      end
      object GridBudExp: xbGrid
        Left = 6
        Top = 8
        Width = 602
        Height = 271
        Anchors = [akLeft, akTop, akRight, akBottom]
        AutoFitColWidths = True
        DataSource = ADS
        Flat = True
        FooterColor = clWindow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -11
        FooterFont.Name = 'MS Sans Serif'
        FooterFont.Style = []
        Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgConfirmDelete]
        ReadOnly = True
        TabOrder = 1
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        UseMultiTitle = True
        OnDblClick = GridBudExp_DblClick
        OnKeyPress = GridBudExp_KeyPress
        IdGrid = '{B5504BFF-0258-4478-9353-C4D3E2D25597}'
        Columns = <
          item
            EditButtons = <>
            FieldName = 'EXP_DIM'
            Footers = <>
            Title.Caption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
            Width = 204
          end
          item
            Alignment = taRightJustify
            EditButtons = <>
            FieldName = 'SUM_LBO_Y'
            Footers = <>
            Title.Caption = #1057' '#1085#1072#1095#1072#1083#1072' '#1075#1086#1076#1072'|'#1051#1041#1054
            Width = 95
          end
          item
            Alignment = taRightJustify
            EditButtons = <>
            FieldName = 'SUM_FIN_Y'
            Footers = <>
            Title.Caption = #1057' '#1085#1072#1095#1072#1083#1072' '#1075#1086#1076#1072'|'#1092#1080#1085#1072#1085#1089#1080#1088#1086#1074#1072#1085#1080#1077
            Width = 95
          end
          item
            Alignment = taRightJustify
            EditButtons = <>
            FieldName = 'SUM_LBO'
            Footers = <>
            Title.Caption = #1058#1077#1082#1091#1097#1077#1077' '#1080#1079#1084#1077#1085#1077#1085#1080#1077'|'#1083#1080#1084#1080#1090#1099
            Width = 95
          end
          item
            EditButtons = <>
            FieldName = 'SUM_FIN'
            Footers = <>
            Title.Caption = #1058#1077#1082#1091#1097#1077#1077' '#1080#1079#1084#1077#1085#1077#1085#1080#1077'|'#1092#1080#1085#1072#1085#1089#1080#1088#1086#1074#1072#1085#1080#1077
            Width = 94
          end>
      end
      object lecFinY: xbLabelEditCalc
        Left = 238
        Top = 286
        Width = 100
        Height = 21
        Anchors = [akLeft, akBottom]
        BorderColor = clWindowText
        CaptionAlignment = taLeftJustify
        DataField = 'BEG_FIN_Y'
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 2
        LabelWidth = 0
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        EnabledButton = False
        VisibleButton = False
      end
      object lecLBO: xbLabelEditCalc
        Left = 350
        Top = 286
        Width = 100
        Height = 21
        Anchors = [akLeft, akBottom]
        BorderColor = clWindowText
        CaptionAlignment = taLeftJustify
        DataField = 'BEG_LBO'
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 3
        LabelWidth = 0
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        EnabledButton = False
        VisibleButton = False
      end
      object lecFin: xbLabelEditCalc
        Left = 462
        Top = 286
        Width = 100
        Height = 21
        Anchors = [akLeft, akBottom]
        BorderColor = clWindowText
        CaptionAlignment = taLeftJustify
        DataField = 'BEG_FIN'
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 4
        LabelWidth = 0
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        EnabledButton = False
        VisibleButton = False
      end
    end
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_BUD_EXP'
    Active = False
    Left = 169
    Top = 127
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <>
    ReadOnly = True
    OEMTranslate = False
    Left = 225
    Top = 127
  end
  object ADS: xbADSDataSource
    DataSet = DS
    Left = 284
    Top = 127
  end
end
frmPayBudExpOFK1.prg                                                  8384object frmPayBudExpOFK1: TfrmPayBudExpOFK1
  Left = 25
  Top = 25
  Width = 454
  Height = 210
  ActiveControl = larAnal
  Anchors = []
  Caption = #1056#1072#1089#1093#1086#1076#1099' '#1073#1102#1076#1078#1077#1090#1072
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  WindowState = wsNormal
  OnActivate = Form_Activate
  OnClose = Form_Close
  OnCloseQuery = Form_CloseQuery
  OnCreate = Form_Create
  DesignSize = (
    446
    176)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 8
    Top = 8
    Width = 430
    Height = 132
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    object TabSheet1: TTabSheet
      Caption = #1054#1073#1097#1077#1077
      object larAnal: xbLabelEditAnalitRefer
        Left = 8
        Top = 8
        Width = 412
        Height = 21
        BorderColor = clWindowText
        Caption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
        CaptionAlignment = taLeftJustify
        DataField = 'EXP_DIM'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 0
        LabelWidth = 106
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'EXP_DIM'
        EnabledEdit = False
        VisibleButton = True
        UseStandartHint = True
        FindFieldType = tfCharacterString
        ReferCaption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
        TableName = 'PAY\DIM_TUNE'
        xReferId = 0
        IsHarbourRefer = True
        MakeChecking = True
      end
      object bFrame2: xbFrame
        Left = 8
        Top = 37
        Width = 202
        Height = 66
        Caption = #1057' '#1085#1072#1095#1072#1083#1072' '#1075#1086#1076#1072
        TabOrder = 1
        object lecLBOY: xbLabelEditCalc
          Left = 7
          Top = 16
          Width = 190
          Height = 21
          BorderColor = clWindowText
          Caption = #1051#1080#1084#1080#1090' '#1041#1054
          CaptionAlignment = taLeftJustify
          DataField = 'SUM_LBO_Y'
          DataSource = ADS
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 0
          LabelWidth = 100
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          Text = '0'
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          VisibleButton = False
        end
        object lecFinY: xbLabelEditCalc
          Left = 6
          Top = 40
          Width = 190
          Height = 21
          BorderColor = clWindowText
          Caption = #1060#1080#1085#1072#1085#1089#1080#1088#1086#1074#1072#1085#1080#1077
          CaptionAlignment = taLeftJustify
          DataField = 'SUM_FIN_Y'
          DataSource = ADS
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 1
          LabelWidth = 100
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          Text = '0'
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          VisibleButton = False
        end
      end
      object bFrame1: xbFrame
        Left = 218
        Top = 37
        Width = 202
        Height = 66
        Caption = #1058#1077#1082#1091#1097#1077#1077' '#1080#1079#1084#1077#1085#1077#1085#1080#1077
        TabOrder = 2
        object lecLBO: xbLabelEditCalc
          Left = 6
          Top = 16
          Width = 190
          Height = 21
          BorderColor = clWindowText
          Caption = #1051#1080#1084#1080#1090' '#1041#1054
          CaptionAlignment = taLeftJustify
          DataField = 'SUM_LBO'
          DataSource = ADS
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 0
          LabelWidth = 100
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          Text = '0'
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          VisibleButton = False
        end
        object lecFin: xbLabelEditCalc
          Left = 6
          Top = 40
          Width = 190
          Height = 21
          BorderColor = clWindowText
          Caption = #1060#1080#1085#1072#1085#1089#1080#1088#1086#1074#1072#1085#1080#1077
          CaptionAlignment = taLeftJustify
          DataField = 'SUM_FIN'
          DataSource = ADS
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 1
          LabelWidth = 100
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          Text = '0'
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          VisibleButton = False
        end
      end
    end
  end
  object btnOK: xbButton
    Left = 279
    Top = 148
    Width = 75
    Height = 21
    Hint = #1057#1086#1093#1088#1072#1085#1077#1085#1080#1077' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (F10)'
    Caption = #1054#1050
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 2
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btnCANCEL: xbButton
    Left = 366
    Top = 148
    Width = 75
    Height = 21
    Hint = #1042#1099#1093#1086#1076' '#1080#1079' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (Esc)'
    Caption = #1054#1090#1084#1077#1085#1072
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 3
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btDopRecv: xbButton
    Left = 167
    Top = 148
    Width = 100
    Height = 21
    Hint = #1044#1086#1087#1086#1083#1085#1080#1090#1077#1083#1100#1085#1099#1077' '#1088#1077#1082#1074#1080#1079#1080#1090#1099' (Alt+F5)'
    Caption = #1044#1086#1087'. '#1088#1077#1082#1074#1080#1079#1080#1090#1099
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 1
    OnClick = btDopRecv_Click
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_BUD_EXP'
    Active = False
    Left = 138
    Top = 20
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <>
    OEMTranslate = False
    AfterEdit = DS_AfterEdit
    Left = 215
    Top = 18
  end
  object ADS: xbADSDataSource
    DataSet = DS
    Left = 178
    Top = 19
  end
  object DSDIMTUNE: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'PAY\dim_tune'
    OEMTranslate = False
    IndexName = 'TAG_CODE'
    Left = 295
    Top = 18
  end
end
frmPayDocVipOFK2.prg                                                 22597object frmPayDocVipOFK2: TfrmPayDocVipOFK2
  Left = 25
  Top = 25
  Width = 500
  Height = 371
  ActiveControl = ledOperDate
  Anchors = []
  Caption = #1041#1102#1076#1078#1077#1090#1085#1099#1077' '#1086#1073#1103#1079#1072#1090#1077#1083#1100#1089#1090#1074#1072
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  WindowState = wsNormal
  OnCloseQuery = Form_CloseQuery
  OnCreate = Form_Create
  DesignSize = (
    492
    337)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 8
    Top = 8
    Width = 478
    Height = 298
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    object TabSheet1: TTabSheet
      Caption = #1054#1073#1097#1077#1077
      DesignSize = (
        476
        276)
      object bFrame1: xbFrame
        Left = 8
        Top = 149
        Width = 460
        Height = 66
        Caption = #1044#1086#1082#1091#1084#1077#1085#1090'-'#1086#1089#1085#1086#1074#1072#1085#1080#1077
        TabOrder = 6
        Anchors = [akLeft, akTop, akRight]
        object lerDocOsnVid: xbLabelEditRefer
          Left = 6
          Top = 16
          Width = 194
          Height = 21
          BorderColor = clWindowText
          Caption = #1042#1080#1076'   '
          CaptionAlignment = taLeftJustify
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 0
          LabelWidth = 104
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'ACNT_ID'
          EnabledEdit = False
          EnabledButton = False
          BeforeButtonClick = lerDocOsnVid_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 
            'DOC_VID;-1;40;1;-1;'#1042#1080#1076'|DOC_NUM;-1;60;1;-1;'#1053#1086#1084#1077#1088'|DOC_DATE;-1;60;1' +
            ';-1;'#1044#1072#1090#1072'|CUR;-1;40;1;-1;'#1042#1072#1083#1102#1090#1072'|OST;-1;80;1;-1;'#1054#1089#1090#1072#1090#1086#1082'|CURS;-1;90' +
            ';1;-1;'#1050#1091#1088#1089'|SUMMA;-1;90;1;-1;'#1057#1091#1084#1084#1072' '#1087#1086' '#1082#1091#1088#1089#1091
          FindFieldType = tfCharacterString
          ReferCaption = #1044#1086#1082#1091#1084#1077#1085#1090#1099'-'#1086#1089#1085#1086#1074#1072#1085#1080#1103
          xReferId = 0
          IsHarbourRefer = True
          OnSelect = lerDocOsnVid_Select
        end
        object leDocOsnNum: xbLabelEdit
          Left = 210
          Top = 16
          Width = 120
          Height = 21
          BorderColor = clWindowText
          Caption = #1085#1086#1084#1077#1088'    '
          CaptionAlignment = taLeftJustify
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 1
          LabelWidth = 40
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object ledDocOsnDate: xbLabelEditCalend
          Left = 338
          Top = 16
          Width = 110
          Height = 21
          BorderColor = clWindowText
          Caption = '   '#1076#1072#1090#1072'        '
          CaptionAlignment = taLeftJustify
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          EditMask = '!99/99/0000;1; '
          TabOrder = 2
          LabelWidth = 40
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          MaxLength = 10
          Text = '  /  /    '
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2;Alt+Down'
          EnabledEdit = False
          EnabledButton = False
          VisibleButton = False
        end
        object lerDocOsnVal: xbLabelEditRefer
          Left = 210
          Top = 40
          Width = 120
          Height = 21
          BorderColor = clWindowText
          Caption = #1042#1072#1083#1102#1090#1072
          CaptionAlignment = taLeftJustify
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 3
          LabelWidth = 40
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          EnabledEdit = False
          EnabledButton = False
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 'CODE;-1;50;1;-1;'#1050#1086#1076'|NAME;-1;200;1;-1;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
          FindFieldType = tfCharacterString
          ReferCaption = #1057#1087#1088#1072#1074#1086#1095#1085#1080#1082' '#1074#1072#1083#1102#1090
          xReferId = 0
          IsHarbourRefer = True
        end
        object lecDocOsnSumma: xbLabelEditCalc
          Left = 6
          Top = 40
          Width = 194
          Height = 21
          BorderColor = clWindowText
          Caption = #1057#1091#1084#1084#1072
          CaptionAlignment = taLeftJustify
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          DisabledFontColor = clBtnText
          Enabled = False
          TabOrder = 4
          LabelWidth = 104
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          Text = '0'
          OnEnter = lecDocOsnSumma_Enter
          OnExit = lecDocOsnSumma_Exit
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          EnabledEdit = False
          EnabledButton = False
          VisibleButton = False
        end
      end
      object FramePartner: xbFrame
        Left = 8
        Top = 85
        Width = 460
        Height = 56
        TabOrder = 5
        Anchors = [akLeft, akTop, akRight]
        DesignSize = (
          460
          56)
        object lbObjName: xbLabel
          Left = 210
          Top = 9
          Width = 248
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPlatName'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'FINOBJ_NAME'
          DataSource = ADS
        end
        object lbPartName: xbLabel
          Left = 210
          Top = 33
          Width = 248
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPartName'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'PART_ORGNAME'
          DataSource = ADS
        end
        object leObjCode: xbLabelEdit
          Left = 6
          Top = 6
          Width = 194
          Height = 21
          BorderColor = clWindowText
          Caption = #1054#1073#1098#1077#1082#1090' '#1091#1095#1077#1090#1072
          CaptionAlignment = taLeftJustify
          DataField = 'FINOBJ_CODE'
          DataSource = ADS
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 0
          LabelWidth = 104
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object lerPartCode: xbLabelEditRefer
          Left = 6
          Top = 30
          Width = 194
          Height = 21
          BorderColor = clWindowText
          Caption = #1055#1072#1088#1090#1085#1077#1088
          CaptionAlignment = taLeftJustify
          DataField = 'PART_CODE'
          DataSource = ADS
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 1
          LabelWidth = 104
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          OnEnter = lerPartCode_Enter
          OnExit = lerPartCode_Exit
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'PRT_ID'
          BeforeButtonClick = lerPartCode_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 'CODE;-1;100;1;0;'#1050#1086#1076'|SORTNAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
          FindFieldName = 'CODE'
          FindFieldType = tfCharacterString
          ListDataSet = DSPartner
          OutFieldsArray = 'PART_ID'
          PutFieldsArray = 'PRT_ID'
          ReferCaption = #1057#1087#1080#1089#1086#1082
          ReferWidth = 450
          TypeFindFieldName = 'CODE'
          xReferId = 0
          IsHarbourRefer = True
          OnSelect = lerPartCode_Select
        end
      end
      object lcbDir: xbLabelCombo
        Left = 8
        Top = 32
        Width = 329
        Height = 21
        ParentBackGround = True
        Caption = #1042#1080#1076' '#1076#1074#1080#1078#1077#1085#1080#1103
        TabOrder = 1
        LabelWidth = 110
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Sorted = False
        EditColor = clWindow
        DisabledColor = clInactiveBorder
        DisabledFontColor = clBlack
        BorderColor = clWindowText
        AutoComplete = False
        Style = csDropDownList
        CharCase = ecNormal
        DropDownCount = 0
        ItemHeight = 0
        MaxLength = 0
        Items.Strings = (
          #1054#1090#1079#1099#1074' '#1073#1102#1076#1078#1077#1090#1085#1099#1093' '#1086#1073#1103#1079#1072#1090#1077#1083#1100#1089#1090#1074
          #1055#1088#1080#1085#1103#1090#1080#1077' '#1073#1102#1076#1078#1077#1090#1085#1099#1093' '#1086#1073#1103#1079#1072#1090#1077#1083#1100#1089#1090#1074)
        ItemIndex = -1
        UseStandartHint = True
        OnClick = lcbDir_Click
      end
      object leDocNum: xbLabelEdit
        Left = 216
        Top = 56
        Width = 120
        Height = 21
        BorderColor = clWindowText
        Caption = #1085#1086#1084#1077#1088'    '
        CaptionAlignment = taLeftJustify
        DataField = 'DOC_NUM'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 3
        LabelWidth = 40
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object ledOperDate: xbLabelEditCalend
        Left = 8
        Top = 8
        Width = 200
        Height = 21
        BorderColor = clWindowText
        Caption = #1044#1072#1090#1072' '#1086#1087#1077#1088#1072#1094#1080#1080
        CaptionAlignment = taLeftJustify
        DataField = 'OPER_DATE'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        EditMask = '!99/99/0000;1; '
        TabOrder = 0
        LabelWidth = 110
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        MaxLength = 10
        Text = '  /  /    '
        OnEnter = ledOperDate_Enter
        OnExit = ledOperDate_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2;Alt+Down'
        ClearFields = 'OPER_DATE'
        VisibleButton = False
      end
      object ledDocDate: xbLabelEditCalend
        Left = 344
        Top = 56
        Width = 122
        Height = 21
        BorderColor = clWindowText
        Caption = '   '#1076#1072#1090#1072'        '
        CaptionAlignment = taLeftJustify
        DataField = 'DOC_DATE'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        EditMask = '!99/99/0000;1; '
        TabOrder = 4
        LabelWidth = 40
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        MaxLength = 10
        Text = '  /  /    '
        OnExit = ledDocDate_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2;Alt+Down'
        VisibleButton = False
      end
      object lerVal: xbLabelEditRefer
        Left = 8
        Top = 224
        Width = 200
        Height = 21
        BorderColor = clWindowText
        Caption = #1055#1083#1072#1090#1077#1078
        CaptionAlignment = taLeftJustify
        DataField = 'CUR_P'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 7
        LabelWidth = 110
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'CUR_P'
        EnabledEdit = False
        EnabledButton = False
        BeforeButtonClick = lerVal_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'CODE;-1;50;1;-1;'#1050#1086#1076'|NAME;-1;200;1;-1;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldName = 'CODE'
        FindFieldType = tfCharacterString
        ListDataSet = DSVal
        OutFieldsArray = 'CODE'
        PutFieldsArray = 'CUR_P'
        ReferCaption = #1057#1087#1088#1072#1074#1086#1095#1085#1080#1082' '#1074#1072#1083#1102#1090
        TypeFindFieldName = 'CODE'
        xReferId = 0
        IsHarbourRefer = True
      end
      object lecSumLBO: xbLabelEditCalc
        Left = 216
        Top = 224
        Width = 120
        Height = 21
        BorderColor = clWindowText
        Caption = #1057#1091#1084#1084#1072
        CaptionAlignment = taLeftJustify
        DataField = 'SUM_LBO'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        TabOrder = 8
        LabelWidth = 40
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        OnEnter = lecDocOsnSumma_Enter
        OnExit = lecDocOsnSumma_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        VisibleButton = False
      end
      object lePrim: xbLabelEdit
        Left = 9
        Top = 248
        Width = 460
        Height = 21
        BorderColor = clWindowText
        Caption = #1055#1088#1080#1084#1077#1095#1072#1085#1080#1077
        CaptionAlignment = taLeftJustify
        DataField = 'PRIM'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 9
        LabelWidth = 110
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object lerDocVid: xbLabelEditRefer
        Left = 8
        Top = 56
        Width = 200
        Height = 21
        BorderColor = clWindowText
        Caption = #1044#1086#1082#1091#1084#1077#1085#1090'            '#1074#1080#1076'   '
        CaptionAlignment = taLeftJustify
        DataField = 'DOC_CODE'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 2
        LabelWidth = 110
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'DOC_CODE'
        BeforeButtonClick = lerDocVid_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'TP_CODE;-1;50;1;-1;'#1050#1086#1076'|TP_NAME;-1;150;1;-1;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldName = 'TP_CODE'
        FindFieldType = tfCharacterString
        ListDataSet = DSDocTp
        OutFieldsArray = 'TP_CODE'
        PutFieldsArray = 'DOC_CODE'
        ReferCaption = #1042#1080#1076#1099' '#1076#1086#1082#1091#1084#1077#1085#1090#1086#1074
        TypeFindFieldName = 'TP_CODE'
        xReferId = 0
        IsHarbourRefer = True
      end
    end
  end
  object btnOK: xbButton
    Left = 328
    Top = 315
    Width = 75
    Height = 21
    Hint = #1057#1086#1093#1088#1072#1085#1077#1085#1080#1077' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (F10)'
    Caption = #1054#1050
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 2
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btnCANCEL: xbButton
    Left = 411
    Top = 315
    Width = 75
    Height = 21
    Hint = #1042#1099#1093#1086#1076' '#1080#1079' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (Esc)'
    Caption = #1054#1090#1084#1077#1085#1072
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 3
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object pbDopData: xbPopupButton
    Left = 220
    Top = 315
    Width = 100
    Height = 21
    Caption = #1044#1086#1087'. '#1076#1072#1085#1085#1099#1077
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = MenuDopData
    RoundedButton = True
    TabOrder = 1
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <>
    OEMTranslate = False
    Left = 109
    Top = 3
  end
  object ADS: xbADSDataSource
    DataSet = DS
    Left = 145
    Top = 3
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_FIN_PLN'
    Active = False
    Left = 72
    Top = 3
  end
  object MenuDopData: xbPopupMenu
    Left = 410
    Top = 125
    object MenuStatus1: TMenuItem
      Caption = #1044#1086#1093#1086#1076#1099' '#1073#1102#1076#1078#1077#1090#1072
      OnClick = MenuStatus1_Click
    end
    object MenuStatus2: TMenuItem
      Caption = #1056#1072#1089#1093#1086#1076#1099' '#1073#1102#1076#1078#1077#1090#1072
      OnClick = MenuStatus2_Click
    end
    object miDopRecv: TMenuItem
      Caption = #1044#1086#1087' '#1088#1077#1082#1074#1080#1079#1080#1090#1099'        Alt+F5'
      OnClick = miDopRecv_Click
    end
  end
  object BOVal: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsValuta'
    Active = False
    Left = 344
    Top = 246
  end
  object DSVal: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOVal
    FieldDefs = <>
    OEMTranslate = False
    Left = 395
    Top = 247
  end
  object BOPartner: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPartner'
    Active = False
    Left = 296
    Top = 121
  end
  object DSPartner: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOPartner
    FieldDefs = <>
    OEMTranslate = False
    Left = 348
    Top = 122
  end
  object MenuRaschet: xbPopupMenu
    Left = 415
    Top = 193
    object miDocOsn: TMenuItem
      Caption = #1044#1086#1082#1091#1084#1077#1085#1090'-'#1086#1089#1085#1086#1074#1072#1085#1080#1077
      OnClick = miDocOsn_Click
    end
    object miBalans: TMenuItem
      Caption = #1041#1072#1083#1072#1085#1089
    end
  end
  object BODocTp: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_DOC_TYPE'
    Active = False
    Left = 327
    Top = 2
  end
  object DSDocTp: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BODocTp
    FieldDefs = <>
    OEMTranslate = False
    Left = 380
    Top = 2
  end
end
frmPayBudExpOFK2Ree.prg                                               3916object frmPayBudExpOFK2Ree: TfrmPayBudExpOFK2Ree
  Left = 25
  Top = 25
  Width = 570
  Height = 340
  ActiveControl = GridBudExp
  Anchors = []
  Caption = #1056#1072#1089#1093#1086#1076#1099' '#1073#1102#1076#1078#1077#1090#1072
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  WindowState = wsNormal
  OnResize = Form_Resize
  OnShow = Form_Show
  DesignSize = (
    562
    306)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 8
    Top = 8
    Width = 546
    Height = 296
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    object TabSheet1: TTabSheet
      Caption = #1056#1077#1077#1089#1090#1088
      DesignSize = (
        544
        274)
      object lecItogo: xbLabelEditCalc
        Left = 8
        Top = 246
        Width = 210
        Height = 21
        Anchors = [akLeft, akBottom]
        BorderColor = clWindowText
        Caption = #1048#1090#1086#1075#1086
        CaptionAlignment = taLeftJustify
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 1
        LabelWidth = 120
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        VisibleButton = False
      end
      object GridBudExp: xbGrid
        Left = 6
        Top = 6
        Width = 532
        Height = 233
        Anchors = [akLeft, akTop, akRight, akBottom]
        AutoFitColWidths = True
        DataSource = adsReestr
        Flat = True
        FooterColor = clWindow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -11
        FooterFont.Name = 'MS Sans Serif'
        FooterFont.Style = []
        Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgConfirmDelete]
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        UseMultiTitle = True
        OnDblClick = GridBudExp_DblClick
        OnKeyPress = GridBudExp_KeyPress
        IdGrid = '{413B08C4-4441-4B9A-855D-1399D6890FE7}'
        Columns = <
          item
            EditButtons = <>
            FieldName = 'EXP_DIM'
            Footers = <>
            Title.Caption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
            Width = 200
          end
          item
            Alignment = taRightJustify
            EditButtons = <>
            FieldName = 'SUM_LBO'
            Footers = <>
            Title.Caption = #1057#1091#1084#1084#1072
            Width = 90
          end
          item
            EditButtons = <>
            FieldName = 'PRIM'
            Footers = <>
            Title.Caption = #1055#1088#1080#1084#1077#1095#1072#1085#1080#1077
            Width = 225
          end>
      end
    end
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_BUD_EXP'
    Active = False
    Left = 169
    Top = 127
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <>
    ReadOnly = True
    OEMTranslate = False
    Left = 221
    Top = 127
  end
  object adsReestr: xbADSDataSource
    DataSet = DS
    Left = 277
    Top = 127
  end
end
frmPayBudExpOFK2.prg                                                  5999object frmPayBudExpOFK2: TfrmPayBudExpOFK2
  Left = 25
  Top = 25
  Width = 400
  Height = 184
  ActiveControl = larAnal
  Anchors = []
  Caption = #1056#1072#1089#1093#1086#1076#1099' '#1073#1102#1076#1078#1077#1090#1072
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  WindowState = wsNormal
  OnActivate = Form_Activate
  OnClose = Form_Close
  OnCloseQuery = Form_CloseQuery
  OnCreate = Form_Create
  DesignSize = (
    392
    150)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 8
    Top = 8
    Width = 376
    Height = 106
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    object TabSheet1: TTabSheet
      Caption = #1054#1073#1097#1077#1077
      object larAnal: xbLabelEditAnalitRefer
        Left = 8
        Top = 8
        Width = 360
        Height = 21
        BorderColor = clWindowText
        Caption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
        CaptionAlignment = taLeftJustify
        DataField = 'EXP_DIM'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 0
        LabelWidth = 160
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'EXP_DIM'
        EnabledEdit = False
        VisibleButton = True
        UseStandartHint = True
        FindFieldType = tfCharacterString
        ReferCaption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
        TableName = 'PAY\DIM_TUNE'
        xReferId = 0
        IsHarbourRefer = True
        MakeChecking = True
      end
      object lecSumma: xbLabelEditCalc
        Left = 8
        Top = 32
        Width = 250
        Height = 21
        BorderColor = clWindowText
        Caption = #1057#1091#1084#1084#1072
        CaptionAlignment = taLeftJustify
        DataField = 'SUM_LBO'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 1
        LabelWidth = 160
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        VisibleButton = False
      end
      object lePrim: xbLabelEdit
        Left = 8
        Top = 56
        Width = 360
        Height = 21
        BorderColor = clWindowText
        Caption = #1055#1088#1080#1084#1077#1095#1072#1085#1080#1077
        CaptionAlignment = taLeftJustify
        DataField = 'PRIM'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 2
        LabelWidth = 160
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
    end
  end
  object btnOK: xbButton
    Left = 225
    Top = 122
    Width = 75
    Height = 21
    Hint = #1057#1086#1093#1088#1072#1085#1077#1085#1080#1077' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (F10)'
    Caption = #1054#1050
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 2
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btnCANCEL: xbButton
    Left = 312
    Top = 122
    Width = 75
    Height = 21
    Hint = #1042#1099#1093#1086#1076' '#1080#1079' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (Esc)'
    Caption = #1054#1090#1084#1077#1085#1072
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 3
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btDopRecv: xbButton
    Left = 113
    Top = 122
    Width = 100
    Height = 21
    Hint = #1044#1086#1087#1086#1083#1085#1080#1090#1077#1083#1100#1085#1099#1077' '#1088#1077#1082#1074#1080#1079#1080#1090#1099' (Alt+F5)'
    Caption = #1044#1086#1087'. '#1088#1077#1082#1074#1080#1079#1080#1090#1099
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 1
    OnClick = btDopRecv_Click
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_BUD_EXP'
    Active = False
    Left = 115
    Top = 90
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <>
    OEMTranslate = False
    AfterEdit = DS_AfterEdit
    Left = 192
    Top = 88
  end
  object ADS: xbADSDataSource
    DataSet = DS
    Left = 155
    Top = 89
  end
  object DSDIMTUNE: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'PAY\dim_tune'
    OEMTranslate = False
    IndexName = 'TAG_CODE'
    Left = 120
    Top = 2
  end
end
frmPayBudExpVipRee.prg                                                7350object frmPayBudExpVipRee: TfrmPayBudExpVipRee
  Left = 25
  Top = 25
  Width = 640
  Height = 380
  ActiveControl = GridBudExp
  Anchors = []
  Caption = #1056#1072#1089#1093#1086#1076#1099' '#1073#1102#1076#1078#1077#1090#1072
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  WindowState = wsNormal
  OnActivate = Form_Activate
  OnClose = Form_Close
  OnCloseQuery = Form_CloseQuery
  OnCreate = Form_Create
  OnResize = Form_Resize
  OnShow = Form_Show
  DesignSize = (
    632
    346)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 8
    Top = 8
    Width = 616
    Height = 336
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    object TabSheet1: TTabSheet
      Caption = #1054#1073#1097#1077#1077
      DesignSize = (
        614
        314)
      object lecLBOY: xbLabelEditCalc
        Left = 8
        Top = 286
        Width = 220
        Height = 21
        Anchors = [akLeft, akBottom]
        BorderColor = clWindowText
        Caption = #1048#1090#1086#1075#1086
        CaptionAlignment = taLeftJustify
        DataField = 'BEG_LBO_Y'
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 0
        LabelWidth = 120
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        EnabledButton = False
        VisibleButton = False
      end
      object GridBudExp: xbGrid
        Left = 6
        Top = 8
        Width = 602
        Height = 271
        Anchors = [akLeft, akTop, akRight, akBottom]
        AutoFitColWidths = True
        DataSource = ADS
        Flat = True
        FooterColor = clWindow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -11
        FooterFont.Name = 'MS Sans Serif'
        FooterFont.Style = []
        Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgConfirmDelete]
        ReadOnly = True
        TabOrder = 1
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        UseMultiTitle = True
        OnDblClick = GridBudExp_DblClick
        OnKeyPress = GridBudExp_KeyPress
        IdGrid = '{BAC3A361-EB9A-488D-A1BD-CF0614D98F8B}'
        Columns = <
          item
            EditButtons = <>
            FieldName = 'EXP_DIM'
            Footers = <>
            Title.Caption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
            Width = 204
          end
          item
            Alignment = taRightJustify
            EditButtons = <>
            FieldName = 'SUM_LBO_Y'
            Footers = <>
            Title.Caption = #1057' '#1085#1072#1095#1072#1083#1072' '#1075#1086#1076#1072'|'#1051#1041#1054
            Width = 95
          end
          item
            Alignment = taRightJustify
            EditButtons = <>
            FieldName = 'SUM_FIN_Y'
            Footers = <>
            Title.Caption = #1057' '#1085#1072#1095#1072#1083#1072' '#1075#1086#1076#1072'|'#1092#1080#1085#1072#1085#1089#1080#1088#1086#1074#1072#1085#1080#1077
            Width = 95
          end
          item
            Alignment = taRightJustify
            EditButtons = <>
            FieldName = 'SUM_LBO'
            Footers = <>
            Title.Caption = #1053#1077' '#1080#1089#1087#1086#1083#1100#1079#1086#1074#1072#1085#1086'|'#1083#1080#1084#1080#1090#1099
            Width = 95
          end
          item
            EditButtons = <>
            FieldName = 'SUM_FIN'
            Footers = <>
            Title.Caption = #1053#1077' '#1080#1089#1087#1086#1083#1100#1079#1086#1074#1072#1085#1086'|'#1092#1080#1085#1072#1085#1089#1080#1088#1086#1074#1072#1085#1080#1077
            Width = 94
          end>
      end
      object lecFinY: xbLabelEditCalc
        Left = 238
        Top = 286
        Width = 100
        Height = 21
        Anchors = [akLeft, akBottom]
        BorderColor = clWindowText
        CaptionAlignment = taLeftJustify
        DataField = 'BEG_FIN_Y'
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 2
        LabelWidth = 0
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        EnabledButton = False
        VisibleButton = False
      end
      object lecLBO: xbLabelEditCalc
        Left = 350
        Top = 286
        Width = 100
        Height = 21
        Anchors = [akLeft, akBottom]
        BorderColor = clWindowText
        CaptionAlignment = taLeftJustify
        DataField = 'BEG_LBO'
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 3
        LabelWidth = 0
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        EnabledButton = False
        VisibleButton = False
      end
      object lecFin: xbLabelEditCalc
        Left = 462
        Top = 286
        Width = 100
        Height = 21
        Anchors = [akLeft, akBottom]
        BorderColor = clWindowText
        CaptionAlignment = taLeftJustify
        DataField = 'BEG_FIN'
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 4
        LabelWidth = 0
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        EnabledButton = False
        VisibleButton = False
      end
    end
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_BUD_EXP'
    Active = False
    Left = 169
    Top = 127
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <>
    ReadOnly = True
    OEMTranslate = False
    Left = 225
    Top = 127
  end
  object ADS: xbADSDataSource
    DataSet = DS
    Left = 284
    Top = 127
  end
end
frmPayCashOrder.prg                                                  25766object frmPayCashOrder: TfrmPayCashOrder
  Left = 25
  Top = 25
  Width = 640
  Height = 368
  ActiveControl = leDocVid
  Anchors = []
  Caption = #1050#1072#1089#1089#1086#1074#1099#1081' '#1086#1088#1076#1077#1088
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  WindowState = wsNormal
  OnCloseQuery = Form_CloseQuery
  OnCreate = Form_Create
  DesignSize = (
    632
    334)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 8
    Top = 8
    Width = 618
    Height = 295
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    object TabSheet1: TTabSheet
      Caption = #1054#1073#1097#1077#1077
      DesignSize = (
        616
        273)
      object lerMvTpCode: xbLabelEditRefer
        Left = 8
        Top = 32
        Width = 340
        Height = 21
        BorderColor = clWindowText
        Caption = #1042#1080#1076' '#1076#1074#1080#1078#1077#1085#1080#1103
        CaptionAlignment = taLeftJustify
        DataField = 'MV_NAME'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 4
        LabelWidth = 100
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnChange = lerMvTpCode_Change
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'MV_CODE'
        BeforeButtonClick = lerMvTpCode_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'MV_CODE;-1;50;1;-1;'#1050#1086#1076'|MV_NAME;-1;200;1;-1;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldName = 'MV_NAME'
        FindFieldType = tfCharacterString
        ListDataSet = DSMvTp
        OutFieldsArray = 'MV_CODE;PRT_TP'
        PutFieldsArray = 'MV_CODE;PRT_TP'
        ReferCaption = #1042#1080#1076#1099' '#1076#1074#1080#1078#1077#1085#1080#1103' '#1076#1077#1085#1077#1078#1085#1099#1093' '#1089#1088#1077#1076#1089#1090#1074
        TypeFindFieldName = 'MV_NAME'
        xReferId = 0
        IsHarbourRefer = True
      end
      object lcbStatus: xbLabelCombo
        Left = 478
        Top = 8
        Width = 130
        Height = 21
        ParentBackGround = True
        Caption = #1057#1090#1072#1090#1091#1089
        Enabled = False
        TabOrder = 3
        LabelWidth = 40
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Sorted = False
        EditColor = clWindow
        DisabledColor = clInactiveBorder
        DisabledFontColor = clBlack
        BorderColor = clWindowText
        AutoComplete = False
        Style = csDropDownList
        CharCase = ecNormal
        DropDownCount = 0
        ItemHeight = 0
        MaxLength = 0
        Items.Strings = (
          #1095#1077#1088#1085#1086#1074#1080#1082
          #1086#1087#1083#1072#1095#1077#1085
          #1087#1077#1088#1077#1076#1072#1085)
        ItemIndex = -1
        UseStandartHint = True
      end
      object leDocVid: xbLabelEdit
        Left = 8
        Top = 8
        Width = 200
        Height = 21
        BorderColor = clWindowText
        Caption = #1044#1086#1082#1091#1084#1077#1085#1090':       '#1074#1080#1076'    '
        CaptionAlignment = taLeftJustify
        DataField = 'DOC_CODE'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 0
        LabelWidth = 100
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leDocNum: xbLabelEdit
        Left = 218
        Top = 8
        Width = 130
        Height = 21
        BorderColor = clWindowText
        Caption = #1085#1086#1084#1077#1088'    '
        CaptionAlignment = taLeftJustify
        DataField = 'DOC_NUM'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 1
        LabelWidth = 40
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leDocDate: xbLabelEdit
        Left = 358
        Top = 8
        Width = 100
        Height = 21
        BorderColor = clWindowText
        Caption = #1076#1072#1090#1072'    '
        CaptionAlignment = taLeftJustify
        DataField = 'DOC_DATE'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 2
        LabelWidth = 30
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object bFrame1: xbFrame
        Left = 8
        Top = 84
        Width = 600
        Height = 104
        TabOrder = 7
        Anchors = [akLeft, akTop, akRight]
        DesignSize = (
          600
          104)
        object lbNalModelName: xbLabel
          Left = 266
          Top = 118
          Width = 260
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbNalModelName'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataSource = ADS
        end
        object lbPlatName: xbLabel
          Left = 212
          Top = 9
          Width = 350
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPlatName'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'PART_SHORTNAME'
          DataSource = ADS
        end
        object lerPlatCode: xbLabelEditRefer
          Left = 6
          Top = 6
          Width = 194
          Height = 21
          BorderColor = clWindowText
          Caption = #1055#1083#1072#1090#1077#1083#1100#1097#1080#1082
          CaptionAlignment = taLeftJustify
          DataField = 'PART_CODE'
          DataSource = ADS
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 0
          LabelWidth = 94
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'PRT_ID'
          BeforeButtonClick = lerPlatCode_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 'CODE;-1;100;1;0;'#1050#1086#1076'|SORTNAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
          FindFieldName = 'CODE'
          FindFieldType = tfCharacterString
          ListDataSet = DSPartner
          OutFieldsArray = 'PART_ID'
          PutFieldsArray = 'PRT_ID'
          ReferCaption = #1057#1087#1080#1089#1086#1082
          ReferWidth = 450
          TypeFindFieldName = 'CODE'
          xReferId = 0
          IsHarbourRefer = True
          OnSelect = lerPlatCode_Select
        end
        object lePaspTp: xbLabelEdit
          Left = 6
          Top = 54
          Width = 194
          Height = 21
          BorderColor = clWindowText
          Caption = #1044#1086#1082#1091#1084#1077#1085#1090
          CaptionAlignment = taLeftJustify
          DataField = 'PASP_TP'
          DataSource = ADSDocCmp
          ButtonsColor = clBlack
          EnabledColor = clWhite
          TabOrder = 3
          LabelWidth = 94
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object lePaspNum: xbLabelEdit
          Left = 212
          Top = 54
          Width = 130
          Height = 21
          BorderColor = clWindowText
          Caption = #1085#1086#1084#1077#1088'    '
          CaptionAlignment = taLeftJustify
          DataField = 'PASP_NUM'
          DataSource = ADSDocCmp
          ButtonsColor = clBlack
          EnabledColor = clWhite
          TabOrder = 4
          LabelWidth = 40
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object lePaspOVD: xbLabelEdit
          Left = 60
          Top = 78
          Width = 282
          Height = 21
          BorderColor = clWindowText
          Caption = #1074#1099#1076#1072#1085'     '
          CaptionAlignment = taLeftJustify
          DataField = 'PASP_OVD'
          DataSource = ADSDocCmp
          ButtonsColor = clBlack
          EnabledColor = clWhite
          TabOrder = 5
          LabelWidth = 40
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object lePaspDate: xbLabelEdit
          Left = 352
          Top = 78
          Width = 100
          Height = 21
          BorderColor = clWindowText
          Caption = #1076#1072#1090#1072'    '
          CaptionAlignment = taLeftJustify
          DataField = 'PASP_DATE'
          DataSource = ADSDocCmp
          ButtonsColor = clBlack
          EnabledColor = clWhite
          TabOrder = 6
          LabelWidth = 30
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object lerPolCode: xbLabelEditRefer
          Left = 6
          Top = 30
          Width = 194
          Height = 21
          BorderColor = clWindowText
          Caption = #1054#1090' '#1082#1086#1075#1086
          CaptionAlignment = taLeftJustify
          DataField = 'TABN'
          DataSource = ADSDocCmp
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 1
          LabelWidth = 94
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'TABN'
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 
            'CODE;-1;50;1;-1;'#1058#1072#1073'.'#8470'|SHORTNAME;-1;120;1;-1;'#1060#1072#1084#1080#1083#1080#1103'|name1;-1;100' +
            ';1;-1;'#1048#1084#1103'|Name2;-1;150;1;-1;'#1054#1090#1095#1077#1089#1090#1074#1086
          FindFieldName = 'CODE'
          FindFieldType = tfCharacterString
          ListDataSet = dsTabN
          OutFieldsArray = 'CODE'
          PutFieldsArray = 'TABN'
          ReferCaption = #1057#1087#1088#1072#1074#1086#1095#1085#1080#1082' '#1089#1086#1090#1088#1091#1076#1085#1080#1082#1086#1074
          TypeFindFieldName = 'CODE'
          xReferId = 0
          IsHarbourRefer = True
          OnSelect = lerPolCode_Select
        end
        object lePolName: xbLabelEdit
          Left = 212
          Top = 30
          Width = 240
          Height = 21
          BorderColor = clWindowText
          CaptionAlignment = taLeftJustify
          DataField = 'FIO'
          DataSource = ADSDocCmp
          ButtonsColor = clBlack
          EnabledColor = clWhite
          TabOrder = 2
          LabelWidth = 0
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
      end
      object lerVal: xbLabelEditRefer
        Left = 8
        Top = 56
        Width = 200
        Height = 21
        BorderColor = clWindowText
        Caption = #1042#1072#1083#1102#1090#1072
        CaptionAlignment = taLeftJustify
        DataField = 'CURR'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 5
        LabelWidth = 100
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnEnter = lerVal_Enter
        OnExit = lerVal_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'CURR'
        BeforeButtonClick = lerVal_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'CODE;-1;50;1;-1;'#1050#1086#1076'|NAME;-1;200;1;-1;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldName = 'CODE'
        FindFieldType = tfCharacterString
        ListDataSet = DSVal
        OutFieldsArray = 'CODE'
        PutFieldsArray = 'CURR'
        ReferCaption = #1057#1087#1088#1072#1074#1086#1095#1085#1080#1082' '#1074#1072#1083#1102#1090
        TypeFindFieldName = 'CODE'
        xReferId = 0
        IsHarbourRefer = True
        OnSelect = lerVal_Select
      end
      object lecSumma: xbLabelEditCalc
        Left = 218
        Top = 56
        Width = 130
        Height = 21
        BorderColor = clWindowText
        Caption = #1057#1091#1084#1084#1072
        CaptionAlignment = taLeftJustify
        DataField = 'SUM_C'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        TabOrder = 6
        LabelWidth = 40
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        OnEnter = lecSumma_Enter
        OnExit = lecSumma_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        VisibleButton = False
        OnSelect = lecSumma_Select
      end
      object lerOsnov: xbLabelEditRefer
        Left = 8
        Top = 197
        Width = 452
        Height = 21
        BorderColor = clWindowText
        Caption = #1054#1089#1085#1086#1074#1072#1085#1080#1077
        CaptionAlignment = taLeftJustify
        DataField = 'COMMENT'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 8
        LabelWidth = 120
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'COMMENT'
        BeforeButtonClick = lerOsnov_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'TEXT;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldType = tfCharacterString
        ListDataSet = DSReasons
        OutFieldsArray = 'TEXT'
        PutFieldsArray = 'COMMENT'
        ReferCaption = #1054#1089#1085#1086#1074#1072#1085#1080#1103' '#1087#1083#1072#1090#1077#1078#1072
        ReferWidth = 450
        xReferId = 0
        IsHarbourRefer = True
      end
      object lerNalModelCode: xbLabelEditRefer
        Left = 8
        Top = 245
        Width = 452
        Height = 21
        BorderColor = clWindowText
        Caption = #1053#1072#1083#1086#1075#1086#1074#1072#1103' '#1084#1086#1076#1077#1083#1100
        CaptionAlignment = taLeftJustify
        DataField = 'TAXMOD_NAME'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 10
        LabelWidth = 120
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnEnter = lerNalModelCode_Enter
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'TAX_MOD_ID'
        BeforeButtonClick = lerNalModelCode_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'MD_CODE;-1;50;1;-1;'#1050#1086#1076'|MD_NAME;-1;200;1;-1;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldName = 'MD_NAME'
        FindFieldType = tfCharacterString
        ListDataSet = DSTaxMod
        OutFieldsArray = 'MOD_ID'
        PutFieldsArray = 'TAX_MOD_ID'
        ReferCaption = #1053#1072#1083#1086#1075#1086#1074#1099#1077' '#1084#1086#1076#1077#1083#1080
        TypeFindFieldName = 'MD_NAME'
        xReferId = 0
        IsHarbourRefer = True
        OnSelect = lerNalModelCode_Select
      end
      object lerAppendix: xbLabelEditRefer
        Left = 8
        Top = 221
        Width = 452
        Height = 21
        BorderColor = clWindowText
        Caption = #1055#1088#1080#1083#1086#1078#1077#1085#1080#1077
        CaptionAlignment = taLeftJustify
        DataField = 'COMP'
        DataSource = ADSDocCmp
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 9
        LabelWidth = 120
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'COMP'
        BeforeButtonClick = lerAppendix_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'TEXT;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldType = tfCharacterString
        ListDataSet = DSAppendix
        OutFieldsArray = 'TEXT'
        PutFieldsArray = 'COMP'
        ReferCaption = #1055#1088#1080#1083#1086#1078#1077#1085#1080#1103
        ReferWidth = 450
        xReferId = 0
        IsHarbourRefer = True
      end
    end
  end
  object btnOK: xbButton
    Left = 468
    Top = 312
    Width = 75
    Height = 21
    Hint = #1057#1086#1093#1088#1072#1085#1077#1085#1080#1077' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (F10)'
    Caption = #1054#1050
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 3
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btnCANCEL: xbButton
    Left = 551
    Top = 312
    Width = 75
    Height = 21
    Hint = #1042#1099#1093#1086#1076' '#1080#1079' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (Esc)'
    Caption = #1054#1090#1084#1077#1085#1072
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 4
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btNalogi: xbButton
    Left = 252
    Top = 312
    Width = 100
    Height = 21
    Hint = ' '#1053#1072#1076#1073#1072#1074#1082#1080' (Ctrl+N)'
    Caption = #1053#1072#1083#1086#1075#1080
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 1
    OnClick = btNalogi_Click
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object pbDopData: xbPopupButton
    Left = 360
    Top = 312
    Width = 100
    Height = 21
    Caption = #1044#1086#1087'. '#1076#1072#1085#1085#1099#1077
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = MenuDopData
    RoundedButton = True
    TabOrder = 2
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <>
    OEMTranslate = False
    Left = 109
    Top = 3
  end
  object ADS: xbADSDataSource
    DataSet = DS
    Left = 145
    Top = 3
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_FIN_DOC'
    Active = False
    Left = 72
    Top = 3
  end
  object MenuDopData: xbPopupMenu
    Left = 495
    Top = 191
    object MenuStatus2: TMenuItem
      Caption = #1056#1072#1089#1093#1086#1076#1099' '#1073#1102#1076#1078#1077#1090#1072
      OnClick = MenuStatus2_Click
    end
  end
  object BODocCmp: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_DOC_CMP'
    Active = False
    Left = 560
    Top = 86
  end
  object DSDocCmp: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BODocCmp
    FieldDefs = <>
    OEMTranslate = False
    Left = 562
    Top = 136
  end
  object ADSDocCmp: xbADSDataSource
    DataSet = DSDocCmp
    Left = 565
    Top = 192
  end
  object BOMvTp: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_MOVE_TP'
    Active = False
    Left = 362
    Top = 88
  end
  object DSMvTp: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOMvTp
    FieldDefs = <>
    OEMTranslate = False
    Left = 415
    Top = 89
  end
  object BOVal: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsValuta'
    Active = False
    Left = 400
    Top = 17
  end
  object DSVal: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOVal
    FieldDefs = <>
    OEMTranslate = False
    Left = 453
    Top = 18
  end
  object BOReasons: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_REASONS'
    Active = False
    Left = 215
    Top = 218
  end
  object DSReasons: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOReasons
    FieldDefs = <>
    OEMTranslate = False
    Left = 215
    Top = 268
  end
  object BOTaxMod: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsTAX_MOD'
    Active = False
    Left = 95
    Top = 218
  end
  object DSTaxMod: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOTaxMod
    FieldDefs = <>
    OEMTranslate = False
    OnUpdateRecord = DSTaxMod_UpdateRecord
    Left = 96
    Top = 265
  end
  object BOAppendix: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_APPENDIX'
    Active = False
    Left = 285
    Top = 218
  end
  object DSAppendix: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOAppendix
    FieldDefs = <>
    OEMTranslate = False
    Left = 285
    Top = 268
  end
  object BOPartner: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPartner'
    Active = False
    Left = 488
    Top = 73
  end
  object DSPartner: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOPartner
    FieldDefs = <>
    OEMTranslate = False
    Left = 492
    Top = 121
  end
  object BOTabN: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPeople'
    Active = False
    Left = 274
    Top = 3
  end
  object dsTabN: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOTabN
    FieldDefs = <>
    OEMTranslate = False
    Left = 319
    Top = 3
  end
end
frmPayBudExpCORee.prg                                                 4807object frmPayBudExpCORee: TfrmPayBudExpCORee
  Left = 25
  Top = 25
  Width = 545
  Height = 380
  ActiveControl = GridBudExp
  Anchors = []
  Caption = #1056#1072#1089#1093#1086#1076#1099' '#1073#1102#1076#1078#1077#1090#1072
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  WindowState = wsNormal
  OnCloseQuery = Form_CloseQuery
  OnResize = Form_Resize
  OnShow = Form_Show
  DesignSize = (
    537
    346)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 8
    Top = 8
    Width = 521
    Height = 336
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    object TabSheet1: TTabSheet
      Caption = #1056#1077#1077#1089#1090#1088
      DesignSize = (
        519
        314)
      object GridBudExp: xbGrid
        Left = 6
        Top = 6
        Width = 507
        Height = 252
        Anchors = [akLeft, akTop, akRight, akBottom]
        AutoFitColWidths = True
        DataSource = adsReestr
        Flat = True
        FooterColor = clWindow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -11
        FooterFont.Name = 'MS Sans Serif'
        FooterFont.Style = []
        Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgConfirmDelete]
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        UseMultiTitle = True
        OnDblClick = GridBudExp_DblClick
        OnKeyPress = GridBudExp_KeyPress
        IdGrid = '{B407769D-A329-41B7-A8A5-5A017BAB7271}'
        Columns = <
          item
            EditButtons = <>
            FieldName = 'EXP_DIM'
            Footers = <>
            Title.Caption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
            Width = 200
          end
          item
            Alignment = taRightJustify
            EditButtons = <>
            FieldName = 'SUM_KR'
            Footers = <>
            Title.Caption = #1057#1091#1084#1084#1072
            Width = 90
          end
          item
            EditButtons = <>
            FieldName = 'PRIM'
            Footers = <>
            Title.Caption = #1055#1088#1080#1084#1077#1095#1072#1085#1080#1077
            Width = 200
          end>
      end
      object lecItogo: xbLabelEditCalc
        Left = 8
        Top = 264
        Width = 210
        Height = 21
        Anchors = [akLeft, akBottom]
        BorderColor = clWindowText
        Caption = #1048#1090#1086#1075#1086
        CaptionAlignment = taLeftJustify
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 1
        LabelWidth = 120
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        VisibleButton = False
      end
      object lecSumDoc: xbLabelEditCalc
        Left = 8
        Top = 288
        Width = 210
        Height = 21
        Anchors = [akLeft, akBottom]
        BorderColor = clWindowText
        Caption = #1057#1091#1084#1084#1072' '#1087#1086' '#1076#1086#1082#1091#1084#1077#1085#1090#1091
        CaptionAlignment = taLeftJustify
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 2
        LabelWidth = 120
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        VisibleButton = False
      end
    end
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_BUD_EXP'
    Active = False
    Left = 169
    Top = 127
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <>
    ReadOnly = True
    OEMTranslate = False
    Left = 221
    Top = 127
  end
  object adsReestr: xbADSDataSource
    DataSet = DS
    Left = 277
    Top = 127
  end
end
frmPayBudExpCO.prg                                                    5312object frmPayBudExpCO: TfrmPayBudExpCO
  Left = 25
  Top = 25
  Width = 400
  Height = 184
  ActiveControl = larAnal
  Anchors = []
  Caption = #1056#1072#1089#1093#1086#1076#1099' '#1073#1102#1076#1078#1077#1090#1072
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  WindowState = wsNormal
  OnActivate = Form_Activate
  OnClose = Form_Close
  OnCloseQuery = Form_CloseQuery
  OnCreate = Form_Create
  DesignSize = (
    392
    150)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 8
    Top = 8
    Width = 376
    Height = 106
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    object TabSheet1: TTabSheet
      Caption = #1054#1073#1097#1077#1077
      object larAnal: xbLabelEditAnalitRefer
        Left = 8
        Top = 8
        Width = 360
        Height = 21
        BorderColor = clWindowText
        Caption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
        CaptionAlignment = taLeftJustify
        DataField = 'EXP_DIM'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 0
        LabelWidth = 160
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'EXP_DIM'
        EnabledEdit = False
        VisibleButton = True
        UseStandartHint = True
        FindFieldType = tfCharacterString
        ReferCaption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
        TableName = 'PAY\DIM_TUNE'
        xReferId = 0
        IsHarbourRefer = True
        MakeChecking = True
      end
      object lecSumma: xbLabelEditCalc
        Left = 8
        Top = 32
        Width = 250
        Height = 21
        BorderColor = clWindowText
        Caption = #1057#1091#1084#1084#1072
        CaptionAlignment = taLeftJustify
        DataField = 'SUM_KR'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 1
        LabelWidth = 160
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        VisibleButton = False
      end
      object lePrim: xbLabelEdit
        Left = 8
        Top = 56
        Width = 360
        Height = 21
        BorderColor = clWindowText
        Caption = #1055#1088#1080#1084#1077#1095#1072#1085#1080#1077
        CaptionAlignment = taLeftJustify
        DataField = 'PRIM'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 2
        LabelWidth = 160
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
    end
  end
  object btnOK: xbButton
    Left = 225
    Top = 122
    Width = 75
    Height = 21
    Hint = #1057#1086#1093#1088#1072#1085#1077#1085#1080#1077' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (F10)'
    Caption = #1054#1050
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 1
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btnCANCEL: xbButton
    Left = 312
    Top = 122
    Width = 75
    Height = 21
    Hint = #1042#1099#1093#1086#1076' '#1080#1079' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (Esc)'
    Caption = #1054#1090#1084#1077#1085#1072
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 2
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_BUD_EXP'
    Active = False
    Left = 78
    Top = 8
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <>
    OEMTranslate = False
    AfterEdit = DS_AfterEdit
    Left = 155
    Top = 8
  end
  object ADS: xbADSDataSource
    DataSet = DS
    Left = 118
    Top = 8
  end
  object DSDIMTUNE: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'PAY\dim_tune'
    OEMTranslate = False
    IndexName = 'TAG_CODE'
    Left = 270
    Top = 8
  end
end
frmPayCBookRee.prg                                                    9136object frmPayCBookRee: TfrmPayCBookRee
  Left = 25
  Top = 25
  Width = 650
  Height = 404
  ActiveControl = bGrid1
  Anchors = []
  BiDiMode = bdRightToLeft
  Caption = #1050#1072#1089#1089#1086#1074#1072#1103' '#1082#1085#1080#1075#1072
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  ParentBiDiMode = False
  Visible = True
  WindowState = wsNormal
  OnClose = Form_Close
  OnCreate = Form_Create
  OnKeyDown = Form_KeyDown
  DesignSize = (
    642
    370)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 8
    Top = 8
    Width = 626
    Height = 331
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    object TabSheet1: TTabSheet
      Caption = #1056#1077#1077#1089#1090#1088
      DesignSize = (
        624
        309)
      object lbObjName: xbLabel
        Left = 144
        Top = 12
        Width = 200
        Height = 17
        Anchors = [akLeft, akTop, akRight]
        Caption = 'lbObjName'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
      end
      object refFinObj: xbLabelEditRefer
        Left = 8
        Top = 8
        Width = 130
        Height = 20
        BorderColor = clWindowText
        Caption = #1054#1073#1098#1077#1082#1090' '#1091#1095#1077#1090#1072
        CaptionExtender = ceNone
        CaptionAlignment = taLeftJustify
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 0
        LabelWidth = 80
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnEnter = refFinObj_Enter
        OnExit = refFinObj_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2;Alt+Down'
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'OBJ_CODE;-1;100;1;0;'#1050#1086#1076'|OBJ_NAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldType = tfCharacterString
        ListDataSet = dsFinObj
        ReferCaption = #1057#1087#1088#1072#1074#1086#1095#1085#1080#1082' '#1086#1073#1098#1077#1082#1090#1086#1074' '#1091#1095#1077#1090#1072
        ReferHeight = 300
        ReferWidth = 300
        xReferId = 0
        IsHarbourRefer = True
        OnSelect = refFinObj_Select
        OnCancel = refFinObj_Cancel
      end
      object bGrid1: xbGrid
        Left = 8
        Top = 35
        Width = 608
        Height = 267
        Anchors = [akLeft, akTop, akRight, akBottom]
        AutoFitColWidths = True
        DataSource = ADS
        Flat = True
        FooterColor = clWindow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -11
        FooterFont.Name = 'MS Sans Serif'
        FooterFont.Style = []
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgAlwaysShowSelection, dgConfirmDelete]
        OptionsEh = [dghFixed3D, dghClearSelection]
        ReadOnly = True
        TabOrder = 1
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        UseMultiTitle = True
        OnDblClick = bGrid1_DblClick
        OnKeyPress = bGrid1_KeyPress
        IdGrid = '{BBBE8C22-EAD4-4BE0-85DC-AE38C49C3FF1}'
        Columns = <
          item
            EditButtons = <>
            FieldName = 'VAL_CODE'
            Footers = <>
            Title.Caption = #1042#1072#1083#1102#1090#1072
            Width = 50
          end
          item
            Alignment = taRightJustify
            EditButtons = <>
            FieldName = 'NUM_DOC'
            Footers = <>
            Title.Caption = #1053#1086#1084#1077#1088' '#1083#1080#1089#1090#1072
            Width = 58
          end
          item
            Alignment = taCenter
            EditButtons = <>
            FieldName = 'OBJ_DT'
            Footers = <>
            Title.Caption = #1044#1072#1090#1072
            Width = 80
          end
          item
            EditButtons = <>
            FieldName = 'RST_BEG_C'
            Footers = <>
            Title.Caption = #1053#1072#1095#1072#1083#1100#1085#1086#1077' '#1089#1072#1083#1100#1076#1086
            Width = 100
          end
          item
            EditButtons = <>
            FieldName = 'SUM_IN_C'
            Footers = <>
            Title.Caption = #1055#1088#1080#1093#1086#1076
            Width = 100
          end
          item
            EditButtons = <>
            FieldName = 'SUM_OUT_C'
            Footers = <>
            Title.Caption = #1056#1072#1089#1093#1086#1076
            Width = 100
          end
          item
            EditButtons = <>
            FieldName = 'RST_END_C'
            Footers = <>
            Title.Caption = #1050#1086#1085#1077#1095#1085#1086#1077' '#1089#1072#1083#1100#1076#1086
            Width = 99
          end>
      end
    end
  end
  object pMenuOperation: xbPopupButton
    Left = 559
    Top = 347
    Width = 75
    Height = 21
    Caption = #1054#1087#1077#1088#1072#1094#1080#1080
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = MenuOperation
    RoundedButton = True
    TabOrder = 1
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_fin_card'
    Active = False
    Left = 39
    Top = 108
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <
      item
        Name = 'LIST_ID'
        DataType = ftString
        Size = 22
      end
      item
        Name = 'BOOK_CODE'
        DataType = ftString
        Size = 2
      end
      item
        Name = 'CTG'
        DataType = ftFloat
      end
      item
        Name = 'BOOK_PER'
        DataType = ftDate
      end
      item
        Name = 'LIST_DATE'
        DataType = ftDate
      end
      item
        Name = 'LIST_NUM'
        DataType = ftString
        Size = 6
      end
      item
        Name = 'OP_CODE'
        DataType = ftString
        Size = 22
      end
      item
        Name = 'OPNAME'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'STATUS'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'RECALC'
        DataType = ftBoolean
      end
      item
        Name = 'LST_ACT'
        DataType = ftString
        Size = 17
      end
      item
        Name = 'USER_CODE'
        DataType = ftString
        Size = 6
      end
      item
        Name = 'STATUSNAME'
        DataType = ftString
        Size = 10
      end
      item
        Name = 'CTGNAME'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'TYPE_PER'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'Typepername'
        DataType = ftString
        Size = 25
      end>
    ReadOnly = True
    OEMTranslate = False
    Left = 81
    Top = 108
  end
  object ADS: xbADSDataSource
    DataSet = DS
    Left = 122
    Top = 109
  end
  object adsFinObj: xbADSDataSource
    DataSet = dsFinObj
    Left = 112
    Top = 177
  end
  object dsFinObj: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'PAY\FIN_OBJ.DBF'
    OEMTranslate = False
    Left = 41
    Top = 177
  end
  object adsDocType: xbADSDataSource
    DataSet = dsDocType
    Left = 111
    Top = 241
  end
  object dsDocType: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'PAY\DOC_TYPE.DBF'
    OEMTranslate = False
    Left = 39
    Top = 241
  end
  object MenuOperation: xbPopupMenu
    Left = 557
    Top = 268
    object miEditBegRest: TMenuItem
      Caption = #1050#1086#1088#1088#1077#1082#1090#1080#1088#1086#1074#1072#1090#1100' '#1085#1072#1095'. '#1086#1089#1090#1072#1090#1082#1080'            Alt+F4'
      OnClick = miEditBegRest_Click
    end
    object miRecalcRest: TMenuItem
      Caption = #1055#1077#1088#1077#1089#1095#1080#1090#1072#1090#1100' '#1086#1089#1090#1072#1090#1082#1080' '#1087#1086' '#1074#1099#1087#1080#1089#1082#1072#1084'    Alt+R'
      OnClick = miRecalcRest_Click
    end
  end
end
frmPayCBookAdd.prg                                                   10128object frmPayCBookAdd: TfrmPayCBookAdd
  Left = 25
  Top = 25
  Width = 330
  Height = 232
  Anchors = []
  Caption = #1053#1086#1074#1099#1081' '#1083#1080#1089#1090
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  WindowState = wsNormal
  OnActivate = Form_Activate
  OnClose = Form_Close
  OnCloseQuery = Form_CloseQuery
  OnCreate = Form_Create
  DesignSize = (
    322
    198)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 8
    Top = 8
    Width = 306
    Height = 154
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    object TabSheet1: TTabSheet
      Caption = #1053#1072#1095#1072#1083#1100#1085#1099#1081' '#1086#1089#1090#1072#1090#1086#1082
      object lecRtBeg: xbLabelEditCalc
        Left = 188
        Top = 32
        Width = 110
        Height = 21
        BorderColor = clWindowText
        Caption = #1050#1091#1088#1089
        CaptionAlignment = taLeftJustify
        DataField = 'RT_BEG'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 2
        LabelWidth = 30
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        VisibleButton = False
      end
      object lecRtEnd: xbLabelEditCalc
        Left = 188
        Top = 56
        Width = 110
        Height = 21
        BorderColor = clWindowText
        Caption = #1050#1091#1088#1089
        CaptionAlignment = taLeftJustify
        DataField = 'RT_END'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 4
        LabelWidth = 30
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        VisibleButton = False
      end
      object lerVal: xbLabelEditRefer
        Left = 8
        Top = 8
        Width = 170
        Height = 21
        BorderColor = clWindowText
        Caption = #1042#1072#1083#1102#1090#1072
        CaptionAlignment = taLeftJustify
        DataField = 'VAL_CODE'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 0
        LabelWidth = 90
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'VAL_CODE'
        BeforeButtonClick = lerVal_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'CODE;-1;50;1;-1;'#1050#1086#1076'|NAME;-1;200;1;-1;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldName = 'CODE'
        FindFieldType = tfCharacterString
        ListDataSet = DSVal
        OutFieldsArray = 'CODE'
        PutFieldsArray = 'VAL_CODE'
        ReferCaption = #1057#1087#1088#1072#1074#1086#1095#1085#1080#1082' '#1074#1072#1083#1102#1090
        TypeFindFieldName = 'CODE'
        xReferId = 0
        IsHarbourRefer = True
        OnSelect = lerVal_Select
      end
      object lecRstBegC: xbLabelEditCalc
        Left = 8
        Top = 80
        Width = 290
        Height = 21
        BorderColor = clWindowText
        Caption = #1053#1072#1095#1072#1083#1100#1085#1086#1077' '#1089#1072#1083#1100#1076#1086' '#1074' '#1074#1072#1083#1102#1090#1077
        CaptionAlignment = taLeftJustify
        DataField = 'RST_BEG_C'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 5
        LabelWidth = 210
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        VisibleButton = False
      end
      object leBegDate: xbLabelEditCalend
        Left = 8
        Top = 32
        Width = 170
        Height = 21
        BorderColor = clWindowText
        Caption = #1044#1072#1090#1072' '#1085#1072#1095#1072#1083#1072
        CaptionAlignment = taLeftJustify
        DataField = 'PRV_DT'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        EditMask = '!99/99/0000;1; '
        TabOrder = 1
        LabelWidth = 90
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        MaxLength = 10
        Text = '  /  /    '
        OnBeforeExit = leBegDate_BeforeExit
        OnExit = leBegDate_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2;Alt+Down'
        ClearFields = 'PRV_DT'
        VisibleButton = False
      end
      object leEndDate: xbLabelEditCalend
        Left = 8
        Top = 56
        Width = 170
        Height = 21
        BorderColor = clWindowText
        Caption = #1044#1072#1090#1072' '#1086#1082#1086#1085#1095#1072#1085#1080#1103
        CaptionAlignment = taLeftJustify
        DataField = 'OBJ_DT'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        EditMask = '!99/99/0000;1; '
        TabOrder = 3
        LabelWidth = 90
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        MaxLength = 10
        Text = '  /  /    '
        OnBeforeExit = leEndDate_BeforeExit
        OnExit = leEndDate_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2;Alt+Down'
        ClearFields = 'OBJ_DT'
        VisibleButton = False
      end
      object leNumDoc: xbLabelEdit
        Left = 8
        Top = 104
        Width = 170
        Height = 21
        BorderColor = clWindowText
        Caption = #1053#1086#1084#1077#1088' '#1083#1080#1089#1090#1072
        CaptionAlignment = taLeftJustify
        DataField = 'NUM_DOC'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 6
        LabelWidth = 90
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
    end
  end
  object btnOK: xbButton
    Left = 155
    Top = 170
    Width = 75
    Height = 21
    Hint = #1057#1086#1093#1088#1072#1085#1077#1085#1080#1077' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (F10)'
    Caption = #1054#1050
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 1
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btnCANCEL: xbButton
    Left = 242
    Top = 170
    Width = 75
    Height = 21
    Hint = #1042#1099#1093#1086#1076' '#1080#1079' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (Esc)'
    Caption = #1054#1090#1084#1077#1085#1072
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 2
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_FIN_CARD'
    Active = False
    Left = 79
    Top = 2
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <>
    OEMTranslate = False
    AfterEdit = DS_AfterEdit
    Left = 156
  end
  object ADS: xbADSDataSource
    DataSet = DS
    Left = 119
    Top = 1
  end
  object BOVal: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsValuta'
    Active = False
    Left = 212
    Top = 5
  end
  object DSVal: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOVal
    FieldDefs = <>
    OEMTranslate = False
    Left = 255
    Top = 5
  end
  object BOSeek: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_FIN_CARD'
    Active = False
    Left = 18
    Top = 124
  end
  object DSSeek: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOSeek
    FieldDefs = <>
    OEMTranslate = False
    AfterEdit = DS_AfterEdit
    Left = 69
    Top = 126
  end
  object DSPeriod: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'Period'
    OEMTranslate = False
    IndexName = 'TAG_YEAR'
    Left = 120
    Top = 125
  end
  object DSVCurs: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'VCurs'
    OEMTranslate = False
    IndexName = 'VALUTA'
    Left = 246
    Top = 56
  end
end
frmPayCBookRub.prg                                                   17998object frmPayCBookRub: TfrmPayCBookRub
  Left = 25
  Top = 25
  Width = 650
  Height = 435
  ActiveControl = bGrid1
  Anchors = []
  BiDiMode = bdRightToLeft
  Caption = #1051#1080#1089#1090' '#1082#1072#1089#1089#1086#1074#1086#1081' '#1082#1085#1080#1075#1080
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  ParentBiDiMode = False
  Visible = True
  WindowState = wsNormal
  OnClose = Form_Close
  OnCreate = Form_Create
  OnResize = Form_Resize
  OnShow = Form_Show
  DesignSize = (
    642
    401)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 8
    Top = 8
    Width = 626
    Height = 362
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    object TabSheet1: TTabSheet
      Caption = #1056#1077#1077#1089#1090#1088
      DesignSize = (
        624
        340)
      object bGrid1: xbGrid
        Left = 8
        Top = 59
        Width = 608
        Height = 203
        Anchors = [akLeft, akTop, akRight, akBottom]
        AutoFitColWidths = True
        DataSource = ADS
        Flat = True
        FooterColor = clWindow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -11
        FooterFont.Name = 'MS Sans Serif'
        FooterFont.Style = []
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgAlwaysShowSelection, dgConfirmDelete]
        OptionsEh = [dghFixed3D, dghClearSelection]
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        UseMultiTitle = True
        OnDblClick = bGrid1_DblClick
        OnKeyPress = bGrid1_KeyPress
        IdGrid = '{85049E17-E12D-4884-AA93-C306F8E4208B}'
        Columns = <
          item
            EditButtons = <>
            FieldName = 'DOC_CODE'
            Footers = <>
            Title.Caption = #1044#1086#1082#1091#1084#1077#1085#1090'|'#1074#1080#1076
            Width = 30
          end
          item
            EditButtons = <>
            FieldName = 'DOC_NUM'
            Footers = <>
            Title.Caption = #1044#1086#1082#1091#1084#1077#1085#1090'|'#1085#1086#1084#1077#1088
            Width = 90
          end
          item
            EditButtons = <>
            FieldName = 'DOC_DATE'
            Footers = <>
            Title.Caption = #1044#1086#1082#1091#1084#1077#1085#1090'|'#1076#1072#1090#1072
            Width = 60
          end
          item
            EditButtons = <>
            FieldName = 'VAR_FIELD2'
            Footers = <>
            Title.Caption = #1055#1072#1088#1090#1085#1077#1088'|'#1082#1086#1076
            Width = 58
          end
          item
            EditButtons = <>
            FieldName = 'VAR_FIELD1'
            Footers = <>
            Title.Caption = #1055#1072#1088#1090#1085#1077#1088'|'#1085#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
            Width = 170
          end
          item
            EditButtons = <>
            FieldName = 'SUM_IN'
            Footers = <>
            Title.Caption = #1042' '#1086#1089#1085#1086#1074#1085#1086#1081' '#1074#1072#1083#1102#1090#1077'|'#1087#1088#1080#1093#1086#1076
            Width = 90
          end
          item
            EditButtons = <>
            FieldName = 'SUM_OUT'
            Footers = <>
            Title.Caption = #1042' '#1086#1089#1085#1086#1074#1085#1086#1081' '#1074#1072#1083#1102#1090#1077'|'#1088#1072#1089#1093#1086#1076
            Width = 89
          end>
      end
      object lecBegSaldoIn: xbLabelEditCalc
        Left = 8
        Top = 32
        Width = 400
        Height = 21
        BorderColor = clWindowText
        Caption = #1042#1093#1086#1076#1103#1097#1080#1081' '#1086#1089#1090#1072#1090#1086#1082
        CaptionAlignment = taLeftJustify
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        Enabled = False
        TabOrder = 1
        LabelWidth = 300
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        VisibleButton = False
      end
      object leBegDate: xbLabelEdit
        Left = 8
        Top = 8
        Width = 170
        Height = 21
        BorderColor = clWindowText
        Caption = #1044#1072#1090#1072' '#1085#1072#1095#1072#1083#1072
        CaptionAlignment = taLeftJustify
        DataField = 'PRV_DT'
        DataSource = ADSVipBnk
        ButtonsColor = clBlack
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 2
        LabelWidth = 100
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object lecBegSaldoOut: xbLabelEditCalc
        Left = 441
        Top = 32
        Width = 100
        Height = 21
        BorderColor = clWindowText
        Caption = #1042#1093#1086#1076#1103#1097#1080#1081' '#1086#1089#1090#1072#1090#1086#1082
        CaptionAlignment = taLeftJustify
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        Enabled = False
        TabOrder = 3
        LabelWidth = 0
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        VisibleButton = False
      end
      object lecSumIn: xbLabelEditCalc
        Left = 8
        Top = 268
        Width = 400
        Height = 21
        Anchors = [akLeft, akBottom]
        BorderColor = clWindowText
        Caption = #1048#1090#1086#1075#1086' '#1086#1073#1086#1088#1086#1090#1099
        CaptionAlignment = taLeftJustify
        DataField = 'SUM_IN'
        DataSource = ADSVipBnk
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        Enabled = False
        TabOrder = 4
        LabelWidth = 300
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        VisibleButton = False
      end
      object lecSumOut: xbLabelEditCalc
        Left = 441
        Top = 268
        Width = 100
        Height = 21
        Anchors = [akLeft, akBottom]
        BorderColor = clWindowText
        Caption = #1042#1093#1086#1076#1103#1097#1080#1081' '#1086#1089#1090#1072#1090#1086#1082
        CaptionAlignment = taLeftJustify
        DataField = 'SUM_OUT'
        DataSource = ADSVipBnk
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        Enabled = False
        TabOrder = 5
        LabelWidth = 0
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        VisibleButton = False
      end
      object lecEndSaldoIn: xbLabelEditCalc
        Left = 8
        Top = 292
        Width = 400
        Height = 21
        Anchors = [akLeft, akBottom]
        BorderColor = clWindowText
        Caption = #1048#1089#1093#1086#1076#1103#1097#1080#1081' '#1086#1089#1090#1072#1090#1086#1082
        CaptionAlignment = taLeftJustify
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        Enabled = False
        TabOrder = 6
        LabelWidth = 300
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        VisibleButton = False
      end
      object lecEndSaldoOut: xbLabelEditCalc
        Left = 441
        Top = 292
        Width = 100
        Height = 21
        Anchors = [akLeft, akBottom]
        BorderColor = clWindowText
        Caption = #1042#1093#1086#1076#1103#1097#1080#1081' '#1086#1089#1090#1072#1090#1086#1082
        CaptionAlignment = taLeftJustify
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        Enabled = False
        TabOrder = 7
        LabelWidth = 0
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        VisibleButton = False
      end
      object leEndDate: xbLabelEdit
        Left = 8
        Top = 316
        Width = 170
        Height = 21
        Anchors = [akLeft, akBottom]
        BorderColor = clWindowText
        Caption = #1044#1072#1090#1072' '#1086#1082#1086#1085#1095#1072#1085#1080#1103
        CaptionAlignment = taLeftJustify
        DataField = 'OBJ_DT'
        DataSource = ADSVipBnk
        ButtonsColor = clBlack
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 8
        LabelWidth = 100
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leNumDoc: xbLabelEdit
        Left = 188
        Top = 8
        Width = 110
        Height = 21
        BorderColor = clWindowText
        Caption = #1053#1086#1084#1077#1088
        CaptionAlignment = taLeftJustify
        DataField = 'NUM_DOC'
        DataSource = ADSVipBnk
        ButtonsColor = clBlack
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 9
        LabelWidth = 50
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
    end
  end
  object pMenuOperation: xbPopupButton
    Left = 559
    Top = 378
    Width = 75
    Height = 21
    Caption = #1054#1087#1077#1088#1072#1094#1080#1080
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = MenuOperation
    RoundedButton = True
    TabOrder = 2
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btRaschet: xbPopupButton
    Left = 451
    Top = 378
    Width = 100
    Height = 21
    Caption = #1056#1072#1089#1095#1077#1090#1099
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = MenuRaschet
    RoundedButton = True
    TabOrder = 1
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_fin_doc'
    Active = False
    Left = 42
    Top = 153
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <
      item
        Name = 'LIST_ID'
        DataType = ftString
        Size = 22
      end
      item
        Name = 'BOOK_CODE'
        DataType = ftString
        Size = 2
      end
      item
        Name = 'CTG'
        DataType = ftFloat
      end
      item
        Name = 'BOOK_PER'
        DataType = ftDate
      end
      item
        Name = 'LIST_DATE'
        DataType = ftDate
      end
      item
        Name = 'LIST_NUM'
        DataType = ftString
        Size = 6
      end
      item
        Name = 'OP_CODE'
        DataType = ftString
        Size = 22
      end
      item
        Name = 'OPNAME'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'STATUS'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'RECALC'
        DataType = ftBoolean
      end
      item
        Name = 'LST_ACT'
        DataType = ftString
        Size = 17
      end
      item
        Name = 'USER_CODE'
        DataType = ftString
        Size = 6
      end
      item
        Name = 'STATUSNAME'
        DataType = ftString
        Size = 10
      end
      item
        Name = 'CTGNAME'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'TYPE_PER'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'Typepername'
        DataType = ftString
        Size = 25
      end>
    ReadOnly = True
    OEMTranslate = False
    Left = 84
    Top = 152
  end
  object ADS: xbADSDataSource
    DataSet = DS
    Left = 121
    Top = 152
  end
  object BODocCmp: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_DOC_CMP'
    Active = False
    Left = 204
    Top = 157
  end
  object DSDocCmp: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BODocCmp
    FieldDefs = <>
    OEMTranslate = False
    Left = 273
    Top = 156
  end
  object ADSDocCmp: xbADSDataSource
    DataSet = DSDocCmp
    Left = 341
    Top = 154
  end
  object BOVipBnk: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_fin_card'
    Active = False
    Left = 44
    Top = 237
  end
  object DSVipBnk: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOVipBnk
    FieldDefs = <
      item
        Name = 'LIST_ID'
        DataType = ftString
        Size = 22
      end
      item
        Name = 'BOOK_CODE'
        DataType = ftString
        Size = 2
      end
      item
        Name = 'CTG'
        DataType = ftFloat
      end
      item
        Name = 'BOOK_PER'
        DataType = ftDate
      end
      item
        Name = 'LIST_DATE'
        DataType = ftDate
      end
      item
        Name = 'LIST_NUM'
        DataType = ftString
        Size = 6
      end
      item
        Name = 'OP_CODE'
        DataType = ftString
        Size = 22
      end
      item
        Name = 'OPNAME'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'STATUS'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'RECALC'
        DataType = ftBoolean
      end
      item
        Name = 'LST_ACT'
        DataType = ftString
        Size = 17
      end
      item
        Name = 'USER_CODE'
        DataType = ftString
        Size = 6
      end
      item
        Name = 'STATUSNAME'
        DataType = ftString
        Size = 10
      end
      item
        Name = 'CTGNAME'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'TYPE_PER'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'Typepername'
        DataType = ftString
        Size = 25
      end>
    ReadOnly = True
    OEMTranslate = False
    Left = 98
    Top = 237
  end
  object ADSVipBnk: xbADSDataSource
    DataSet = DSVipBnk
    Left = 159
    Top = 236
  end
  object MenuOperation: xbPopupMenu
    Left = 556
    Top = 268
    object miGroupReg: TMenuItem
      Caption = #1043#1088#1091#1087#1087#1086#1074#1072#1103' '#1088#1077#1075#1080#1089#1090#1088#1072#1094#1080#1103
      OnClick = miGroupReg_Click
    end
  end
  object RFMoveTp: xbReferCaller
    ColumnsTune = 'MV_CODE;-1;50;1;0;'#1050#1086#1076'|MV_NAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
    ListDataSet = DSMoveTpRef
    ReferCaption = #1042#1080#1076#1099' '#1076#1074#1080#1078#1077#1085#1080#1103
    ReferHeight = 380
    ReferWidth = 450
    OnSelect = RFMoveTp_Select
    Left = 240
    Top = 233
  end
  object DSMoveTpRef: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'PAY\MOVE_TP.DBF'
    OEMTranslate = False
    Left = 318
    Top = 233
  end
  object MenuRaschet: xbPopupMenu
    Left = 454
    Top = 268
    object miDocOsn: TMenuItem
      Caption = #1044#1086#1082#1091#1084#1077#1085#1090'-'#1086#1089#1085#1086#1074#1072#1085#1080#1077
    end
    object miBalans: TMenuItem
      Caption = #1041#1072#1083#1072#1085#1089
    end
  end
end
frmPayCBookVal.prg                                                   29114object frmPayCBookVal: TfrmPayCBookVal
  Left = 25
  Top = 25
  Width = 650
  Height = 435
  ActiveControl = bGrid1
  Anchors = []
  BiDiMode = bdRightToLeft
  Caption = #1051#1080#1089#1090' '#1082#1072#1089#1089#1086#1074#1086#1081' '#1082#1085#1080#1075#1080
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  ParentBiDiMode = False
  Visible = True
  WindowState = wsNormal
  OnClose = Form_Close
  OnCreate = Form_Create
  OnResize = Form_Resize
  OnShow = Form_Show
  DesignSize = (
    642
    401)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 8
    Top = 8
    Width = 626
    Height = 362
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    object TabSheet1: TTabSheet
      Caption = #1056#1077#1077#1089#1090#1088
      DesignSize = (
        624
        340)
      object lbPartName: xbLabel
        Left = 187
        Top = 247
        Width = 350
        Height = 17
        Anchors = [akLeft, akRight, akBottom]
        Caption = 'lbPartName'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
        DataField = 'VAR_FIELD1'
        DataSource = ADS
      end
      object bGrid1: xbGrid
        Left = 8
        Top = 59
        Width = 608
        Height = 179
        Anchors = [akLeft, akTop, akRight, akBottom]
        AutoFitColWidths = True
        DataSource = ADS
        Flat = True
        FooterColor = clWindow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -11
        FooterFont.Name = 'MS Sans Serif'
        FooterFont.Style = []
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgAlwaysShowSelection, dgConfirmDelete]
        OptionsEh = [dghFixed3D, dghClearSelection]
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        UseMultiTitle = True
        OnDblClick = bGrid1_DblClick
        OnKeyPress = bGrid1_KeyPress
        IdGrid = '{206BA4CA-22BE-4FCC-871B-670CDA045745}'
        Columns = <
          item
            EditButtons = <>
            FieldName = 'DOC_CODE'
            Footers = <>
            Title.Caption = #1044#1086#1082#1091#1084#1077#1085#1090'|'#1074#1080#1076
            Width = 37
          end
          item
            EditButtons = <>
            FieldName = 'DOC_NUM'
            Footers = <>
            Title.Caption = #1044#1086#1082#1091#1084#1077#1085#1090'|'#1085#1086#1084#1077#1088
            Width = 90
          end
          item
            EditButtons = <>
            FieldName = 'DOC_DATE'
            Footers = <>
            Title.Caption = #1044#1086#1082#1091#1084#1077#1085#1090'|'#1076#1072#1090#1072
            Width = 60
          end
          item
            EditButtons = <>
            FieldName = 'SUM_IN_C'
            Footers = <>
            Title.Caption = #1042' '#1074#1072#1083#1102#1090#1077'|'#1087#1088#1080#1093#1086#1076
            Width = 100
          end
          item
            EditButtons = <>
            FieldName = 'SUM_OUT_C'
            Footers = <>
            Title.Caption = #1042' '#1074#1072#1083#1102#1090#1077'|'#1088#1072#1089#1093#1086#1076
            Width = 100
          end
          item
            EditButtons = <>
            FieldName = 'SUM_IN'
            Footers = <>
            Title.Caption = #1042' '#1086#1089#1085#1086#1074#1085#1086#1081' '#1074#1072#1083#1102#1090#1077'|'#1087#1088#1080#1093#1086#1076
            Width = 100
          end
          item
            EditButtons = <>
            FieldName = 'SUM_OUT'
            Footers = <>
            Title.Caption = #1042' '#1086#1089#1085#1086#1074#1085#1086#1081' '#1074#1072#1083#1102#1090#1077'|'#1088#1072#1089#1093#1086#1076
            Width = 100
          end>
      end
      object lecBegSaldoInC: xbLabelEditCalc
        Left = 8
        Top = 32
        Width = 300
        Height = 21
        BorderColor = clWindowText
        Caption = #1042#1093#1086#1076#1103#1097#1080#1081' '#1086#1089#1090#1072#1090#1086#1082
        CaptionAlignment = taLeftJustify
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        Enabled = False
        TabOrder = 1
        LabelWidth = 200
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        OnEnter = lecBegSaldoInC_Enter
        OnExit = lecBegSaldoInC_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        VisibleButton = False
        OnSelect = lecBegSaldoInC_Select
      end
      object leBegDate: xbLabelEdit
        Left = 8
        Top = 8
        Width = 170
        Height = 21
        BorderColor = clWindowText
        Caption = #1044#1072#1090#1072' '#1085#1072#1095#1072#1083#1072
        CaptionAlignment = taLeftJustify
        DataField = 'PRV_DT'
        DataSource = ADSVipBnk
        ButtonsColor = clBlack
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 2
        LabelWidth = 100
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object lecBegSaldoOutC: xbLabelEditCalc
        Left = 308
        Top = 32
        Width = 100
        Height = 21
        BorderColor = clWindowText
        Caption = #1042#1093#1086#1076#1103#1097#1080#1081' '#1086#1089#1090#1072#1090#1086#1082
        CaptionAlignment = taLeftJustify
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        Enabled = False
        TabOrder = 3
        LabelWidth = 0
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        OnEnter = lecBegSaldoInC_Enter
        OnExit = lecBegSaldoInC_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        VisibleButton = False
        OnSelect = lecBegSaldoInC_Select
      end
      object lecSumInC: xbLabelEditCalc
        Left = 8
        Top = 268
        Width = 300
        Height = 21
        Anchors = [akLeft, akBottom]
        BorderColor = clWindowText
        Caption = #1048#1090#1086#1075#1086' '#1086#1073#1086#1088#1086#1090#1099
        CaptionAlignment = taLeftJustify
        DataField = 'SUM_IN_C'
        DataSource = ADSVipBnk
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        Enabled = False
        TabOrder = 4
        LabelWidth = 200
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        OnEnter = lecBegSaldoInC_Enter
        OnExit = lecBegSaldoInC_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        VisibleButton = False
        OnSelect = lecBegSaldoInC_Select
      end
      object lecSumOutC: xbLabelEditCalc
        Left = 308
        Top = 268
        Width = 100
        Height = 21
        Anchors = [akLeft, akBottom]
        BorderColor = clWindowText
        Caption = #1042#1093#1086#1076#1103#1097#1080#1081' '#1086#1089#1090#1072#1090#1086#1082
        CaptionAlignment = taLeftJustify
        DataField = 'SUM_OUT_C'
        DataSource = ADSVipBnk
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        Enabled = False
        TabOrder = 5
        LabelWidth = 0
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        OnEnter = lecBegSaldoInC_Enter
        OnExit = lecBegSaldoInC_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        VisibleButton = False
        OnSelect = lecBegSaldoInC_Select
      end
      object lecEndSaldoInC: xbLabelEditCalc
        Left = 8
        Top = 292
        Width = 300
        Height = 21
        Anchors = [akLeft, akBottom]
        BorderColor = clWindowText
        Caption = #1048#1089#1093#1086#1076#1103#1097#1080#1081' '#1086#1089#1090#1072#1090#1086#1082
        CaptionAlignment = taLeftJustify
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        Enabled = False
        TabOrder = 6
        LabelWidth = 200
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        OnEnter = lecBegSaldoInC_Enter
        OnExit = lecBegSaldoInC_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        VisibleButton = False
        OnSelect = lecBegSaldoInC_Select
      end
      object lecEndSaldoOutC: xbLabelEditCalc
        Left = 308
        Top = 292
        Width = 100
        Height = 21
        Anchors = [akLeft, akBottom]
        BorderColor = clWindowText
        Caption = #1042#1093#1086#1076#1103#1097#1080#1081' '#1086#1089#1090#1072#1090#1086#1082
        CaptionAlignment = taLeftJustify
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        Enabled = False
        TabOrder = 7
        LabelWidth = 0
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        OnEnter = lecBegSaldoInC_Enter
        OnExit = lecBegSaldoInC_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        VisibleButton = False
        OnSelect = lecBegSaldoInC_Select
      end
      object leEndDate: xbLabelEdit
        Left = 8
        Top = 316
        Width = 170
        Height = 21
        Anchors = [akLeft, akBottom]
        BorderColor = clWindowText
        Caption = #1044#1072#1090#1072' '#1086#1082#1086#1085#1095#1072#1085#1080#1103
        CaptionAlignment = taLeftJustify
        DataField = 'OBJ_DT'
        DataSource = ADSVipBnk
        ButtonsColor = clBlack
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 8
        LabelWidth = 100
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object lePartCode: xbLabelEdit
        Left = 8
        Top = 244
        Width = 170
        Height = 21
        Anchors = [akLeft, akBottom]
        BorderColor = clWindowText
        Caption = #1055#1072#1088#1090#1085#1077#1088
        CaptionAlignment = taLeftJustify
        DataField = 'VAR_FIELD2'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 9
        LabelWidth = 100
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object lecBegSaldoIn: xbLabelEditCalc
        Left = 408
        Top = 32
        Width = 100
        Height = 21
        BorderColor = clWindowText
        Caption = #1042#1093#1086#1076#1103#1097#1080#1081' '#1086#1089#1090#1072#1090#1086#1082
        CaptionAlignment = taLeftJustify
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        Enabled = False
        TabOrder = 10
        LabelWidth = 0
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        OnEnter = lecBegSaldoInC_Enter
        OnExit = lecBegSaldoInC_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        VisibleButton = False
        OnSelect = lecBegSaldoInC_Select
      end
      object lecBegSaldoOut: xbLabelEditCalc
        Left = 508
        Top = 32
        Width = 100
        Height = 21
        BorderColor = clWindowText
        Caption = #1042#1093#1086#1076#1103#1097#1080#1081' '#1086#1089#1090#1072#1090#1086#1082
        CaptionAlignment = taLeftJustify
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        Enabled = False
        TabOrder = 11
        LabelWidth = 0
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        OnEnter = lecBegSaldoInC_Enter
        OnExit = lecBegSaldoInC_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        VisibleButton = False
        OnSelect = lecBegSaldoInC_Select
      end
      object lecSumIn: xbLabelEditCalc
        Left = 408
        Top = 268
        Width = 100
        Height = 21
        Anchors = [akLeft, akBottom]
        BorderColor = clWindowText
        Caption = #1042#1093#1086#1076#1103#1097#1080#1081' '#1086#1089#1090#1072#1090#1086#1082
        CaptionAlignment = taLeftJustify
        DataField = 'SUM_IN'
        DataSource = ADSVipBnk
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        Enabled = False
        TabOrder = 12
        LabelWidth = 0
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        OnEnter = lecBegSaldoInC_Enter
        OnExit = lecBegSaldoInC_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        VisibleButton = False
        OnSelect = lecBegSaldoInC_Select
      end
      object lecSumOut: xbLabelEditCalc
        Left = 508
        Top = 268
        Width = 100
        Height = 21
        Anchors = [akLeft, akBottom]
        BorderColor = clWindowText
        Caption = #1042#1093#1086#1076#1103#1097#1080#1081' '#1086#1089#1090#1072#1090#1086#1082
        CaptionAlignment = taLeftJustify
        DataField = 'SUM_OUT'
        DataSource = ADSVipBnk
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        Enabled = False
        TabOrder = 13
        LabelWidth = 0
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        OnEnter = lecBegSaldoInC_Enter
        OnExit = lecBegSaldoInC_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        VisibleButton = False
        OnSelect = lecBegSaldoInC_Select
      end
      object lecEndSaldoIn: xbLabelEditCalc
        Left = 408
        Top = 292
        Width = 100
        Height = 21
        Anchors = [akLeft, akBottom]
        BorderColor = clWindowText
        Caption = #1042#1093#1086#1076#1103#1097#1080#1081' '#1086#1089#1090#1072#1090#1086#1082
        CaptionAlignment = taLeftJustify
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        Enabled = False
        TabOrder = 14
        LabelWidth = 0
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        OnEnter = lecBegSaldoInC_Enter
        OnExit = lecBegSaldoInC_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        VisibleButton = False
        OnSelect = lecBegSaldoInC_Select
      end
      object lecEndSaldoOut: xbLabelEditCalc
        Left = 508
        Top = 292
        Width = 100
        Height = 21
        Anchors = [akLeft, akBottom]
        BorderColor = clWindowText
        Caption = #1042#1093#1086#1076#1103#1097#1080#1081' '#1086#1089#1090#1072#1090#1086#1082
        CaptionAlignment = taLeftJustify
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        Enabled = False
        TabOrder = 15
        LabelWidth = 0
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        OnEnter = lecBegSaldoInC_Enter
        OnExit = lecBegSaldoInC_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        VisibleButton = False
        OnSelect = lecBegSaldoInC_Select
      end
      object leRtBeg: xbLabelEdit
        Left = 307
        Top = 8
        Width = 110
        Height = 21
        BorderColor = clWindowText
        Caption = #1050#1091#1088#1089
        CaptionAlignment = taLeftJustify
        DataField = 'RT_BEG'
        DataSource = ADSVipBnk
        ButtonsColor = clBlack
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 16
        LabelWidth = 30
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leValCode: xbLabelEdit
        Left = 427
        Top = 8
        Width = 120
        Height = 21
        BorderColor = clWindowText
        Caption = #1042#1072#1083#1102#1090#1072
        CaptionAlignment = taLeftJustify
        DataField = 'VAL_CODE'
        DataSource = ADSVipBnk
        ButtonsColor = clBlack
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 17
        LabelWidth = 50
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leRtEnd: xbLabelEdit
        Left = 187
        Top = 316
        Width = 110
        Height = 21
        Anchors = [akLeft, akBottom]
        BorderColor = clWindowText
        Caption = #1050#1091#1088#1089
        CaptionAlignment = taLeftJustify
        DataField = 'RT_END'
        DataSource = ADSVipBnk
        ButtonsColor = clBlack
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 18
        LabelWidth = 30
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leSumRev: xbLabelEdit
        Left = 307
        Top = 316
        Width = 188
        Height = 21
        Anchors = [akLeft, akBottom]
        BorderColor = clWindowText
        Caption = #1050#1091#1088#1089#1086#1074#1072#1103' '#1088#1072#1079#1085#1080#1094#1072
        CaptionAlignment = taLeftJustify
        DataField = 'SUM_REV'
        DataSource = ADSVipBnk
        ButtonsColor = clBlack
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 19
        LabelWidth = 108
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leNumDoc: xbLabelEdit
        Left = 187
        Top = 8
        Width = 110
        Height = 21
        BorderColor = clWindowText
        Caption = #1053#1086#1084#1077#1088
        CaptionAlignment = taLeftJustify
        DataField = 'NUM_DOC'
        DataSource = ADSVipBnk
        ButtonsColor = clBlack
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 20
        LabelWidth = 50
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
    end
  end
  object pMenuOperation: xbPopupButton
    Left = 559
    Top = 378
    Width = 75
    Height = 21
    Caption = #1054#1087#1077#1088#1072#1094#1080#1080
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = MenuOperation
    RoundedButton = True
    TabOrder = 2
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btRaschet: xbPopupButton
    Left = 451
    Top = 378
    Width = 100
    Height = 21
    Caption = #1056#1072#1089#1095#1077#1090#1099
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = MenuRaschet
    RoundedButton = True
    TabOrder = 1
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_fin_doc'
    Active = False
    Left = 42
    Top = 153
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <
      item
        Name = 'LIST_ID'
        DataType = ftString
        Size = 22
      end
      item
        Name = 'BOOK_CODE'
        DataType = ftString
        Size = 2
      end
      item
        Name = 'CTG'
        DataType = ftFloat
      end
      item
        Name = 'BOOK_PER'
        DataType = ftDate
      end
      item
        Name = 'LIST_DATE'
        DataType = ftDate
      end
      item
        Name = 'LIST_NUM'
        DataType = ftString
        Size = 6
      end
      item
        Name = 'OP_CODE'
        DataType = ftString
        Size = 22
      end
      item
        Name = 'OPNAME'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'STATUS'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'RECALC'
        DataType = ftBoolean
      end
      item
        Name = 'LST_ACT'
        DataType = ftString
        Size = 17
      end
      item
        Name = 'USER_CODE'
        DataType = ftString
        Size = 6
      end
      item
        Name = 'STATUSNAME'
        DataType = ftString
        Size = 10
      end
      item
        Name = 'CTGNAME'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'TYPE_PER'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'Typepername'
        DataType = ftString
        Size = 25
      end>
    ReadOnly = True
    OEMTranslate = False
    Left = 84
    Top = 152
  end
  object ADS: xbADSDataSource
    DataSet = DS
    Left = 121
    Top = 152
  end
  object BODocCmp: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_DOC_CMP'
    Active = False
    Left = 204
    Top = 157
  end
  object DSDocCmp: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BODocCmp
    FieldDefs = <>
    OEMTranslate = False
    Left = 273
    Top = 156
  end
  object ADSDocCmp: xbADSDataSource
    DataSet = DSDocCmp
    Left = 341
    Top = 154
  end
  object BOVipBnk: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_fin_card'
    Active = False
    Left = 44
    Top = 237
  end
  object DSVipBnk: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOVipBnk
    FieldDefs = <
      item
        Name = 'LIST_ID'
        DataType = ftString
        Size = 22
      end
      item
        Name = 'BOOK_CODE'
        DataType = ftString
        Size = 2
      end
      item
        Name = 'CTG'
        DataType = ftFloat
      end
      item
        Name = 'BOOK_PER'
        DataType = ftDate
      end
      item
        Name = 'LIST_DATE'
        DataType = ftDate
      end
      item
        Name = 'LIST_NUM'
        DataType = ftString
        Size = 6
      end
      item
        Name = 'OP_CODE'
        DataType = ftString
        Size = 22
      end
      item
        Name = 'OPNAME'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'STATUS'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'RECALC'
        DataType = ftBoolean
      end
      item
        Name = 'LST_ACT'
        DataType = ftString
        Size = 17
      end
      item
        Name = 'USER_CODE'
        DataType = ftString
        Size = 6
      end
      item
        Name = 'STATUSNAME'
        DataType = ftString
        Size = 10
      end
      item
        Name = 'CTGNAME'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'TYPE_PER'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'Typepername'
        DataType = ftString
        Size = 25
      end>
    ReadOnly = True
    OEMTranslate = False
    Left = 98
    Top = 237
  end
  object ADSVipBnk: xbADSDataSource
    DataSet = DSVipBnk
    Left = 159
    Top = 236
  end
  object MenuOperation: xbPopupMenu
    Left = 557
    Top = 282
    object miGroupReg: TMenuItem
      Caption = #1043#1088#1091#1087#1087#1086#1074#1072#1103' '#1088#1077#1075#1080#1089#1090#1088#1072#1094#1080#1103
      OnClick = miGroupReg_Click
    end
  end
  object RFMoveTp: xbReferCaller
    ColumnsTune = 'MV_CODE;-1;50;1;0;'#1050#1086#1076'|MV_NAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
    ListDataSet = DSMoveTpRef
    ReferCaption = #1042#1080#1076#1099' '#1076#1074#1080#1078#1077#1085#1080#1103
    ReferHeight = 380
    ReferWidth = 450
    OnSelect = RFMoveTp_Select
    Left = 240
    Top = 233
  end
  object DSMoveTpRef: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'PAY\MOVE_TP.DBF'
    OEMTranslate = False
    Left = 318
    Top = 233
  end
  object MenuRaschet: xbPopupMenu
    Left = 454
    Top = 268
    object miDocOsn: TMenuItem
      Caption = #1044#1086#1082#1091#1084#1077#1085#1090'-'#1086#1089#1085#1086#1074#1072#1085#1080#1077
      OnClick = miDocOsn_Click
    end
    object miBalans: TMenuItem
      Caption = #1041#1072#1083#1072#1085#1089
      OnClick = miBalans_Click
    end
  end
end
frmPayDocType.prg                                                    11025object frmPayDocType: TfrmPayDocType
  Left = 25
  Top = 25
  Width = 540
  Height = 306
  ActiveControl = leObjCode
  Anchors = []
  Caption = #1042#1080#1076' '#1076#1086#1082#1091#1084#1077#1085#1090#1072
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  WindowState = wsNormal
  OnCloseQuery = Form_CloseQuery
  OnCreate = Form_Create
  DesignSize = (
    532
    272)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 8
    Top = 8
    Width = 518
    Height = 233
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    object TabSheet1: TTabSheet
      Caption = #1054#1073#1097#1077#1077
      OnStartDrag = TabSheet1_StartDrag
      DesignSize = (
        516
        211)
      object leObjCode: xbLabelEdit
        Left = 8
        Top = 58
        Width = 270
        Height = 21
        BorderColor = clWindowText
        Caption = #1042#1080#1076' '#1076#1086#1082#1091#1084#1077#1085#1090#1072
        CaptionAlignment = taLeftJustify
        DataField = 'TP_CODE'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 0
        LabelWidth = 170
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        ReadOnly = True
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leObjName: xbLabelEdit
        Left = 288
        Top = 58
        Width = 220
        Height = 21
        Anchors = [akLeft, akTop, akRight]
        BorderColor = clWindowText
        CaptionAlignment = taLeftJustify
        DataField = 'TP_NAME'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 1
        LabelWidth = 0
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        ReadOnly = True
        OnChange = leObjName_Change
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object cbWR: xbCheckBox
        Left = 8
        Top = 155
        Width = 272
        Height = 21
        Caption = 
          #1055#1088#1080#1089#1091#1090#1089#1090#1074#1091#1077#1090' '#1074' '#1088#1077#1078#1080#1084#1077' "'#1087#1083#1072#1090#1077#1078#1085#1099#1077' '#1076#1086#1082#1091#1084#1077#1085#1090#1099'" . . . . . . . . . . ' +
          '. . . . . . . . . . . . . . . .'
        Enabled = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 3
        TabStop = True
        ReadOnly = True
        ValueChecked = '1'
        ValueUnchecked = '0'
        DataField = 'IS_WR'
        DataSource = ADS
      end
      object cbVal: xbCheckBox
        Left = 8
        Top = 134
        Width = 272
        Height = 21
        Caption = #1042#1072#1083#1102#1090#1085#1099#1081' '#1076#1086#1082#1091#1084#1077#1085#1090' . . . . . . . . . . . . . . . . . . . . . . .'
        Enabled = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 2
        TabStop = True
        ReadOnly = True
        ValueChecked = '1'
        ValueUnchecked = '0'
        DataField = 'IS_VAL'
        DataSource = ADS
      end
      object lcbFinCtg: xbLabelCombo
        Left = 8
        Top = 8
        Width = 270
        Height = 21
        ParentBackGround = True
        Caption = #1050#1072#1090#1077#1075#1086#1088#1080#1103' '#1076#1077#1085#1077#1078#1085#1099#1093' '#1089#1088#1077#1076#1089#1090#1074
        Enabled = False
        TabOrder = 4
        LabelWidth = 170
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Sorted = False
        EditColor = clWindow
        DisabledColor = clInactiveBorder
        DisabledFontColor = clBlack
        BorderColor = clWindowText
        AutoComplete = False
        Style = csDropDownList
        CharCase = ecNormal
        DropDownCount = 0
        ItemHeight = 0
        MaxLength = 0
        Items.Strings = (
          #1073#1077#1079#1085#1072#1083#1080#1095#1085#1099#1077
          #1085#1072#1083#1080#1095#1085#1099#1077)
        ItemIndex = -1
        UseStandartHint = True
        OnClick = lcbFinCtg_Click
      end
      object lcbDir: xbLabelCombo
        Left = 288
        Top = 8
        Width = 220
        Height = 21
        ParentBackGround = True
        Caption = #1053#1072#1087#1088#1072#1074#1083#1077#1085#1080#1077' '#1076#1074#1080#1078#1077#1085#1080#1103
        Enabled = False
        TabOrder = 5
        LabelWidth = 135
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Sorted = False
        EditColor = clWindow
        DisabledColor = clInactiveBorder
        DisabledFontColor = clBlack
        BorderColor = clWindowText
        AutoComplete = False
        Style = csDropDownList
        CharCase = ecNormal
        DropDownCount = 0
        ItemHeight = 0
        MaxLength = 0
        Items.Strings = (
          #1087#1088#1080#1093#1086#1076
          #1088#1072#1089#1093#1086#1076
          #1087#1088#1080#1093#1086#1076' '#1080' '#1088#1072#1089#1093#1086#1076)
        ItemIndex = -1
        UseStandartHint = True
        OnClick = lcbDir_Click
      end
      object blPrint: xbLabelEditRefer
        Left = 8
        Top = 83
        Width = 500
        Height = 21
        Anchors = [akLeft, akTop, akRight]
        BorderColor = clWindowText
        Caption = #1050#1072#1090#1077#1075#1086#1088#1080#1103' '#1087#1077#1095#1072#1090#1085#1099#1093' '#1092#1086#1088#1084
        CaptionAlignment = taLeftJustify
        DataField = 'Name_rep'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 6
        LabelWidth = 170
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2;Alt+Down'
        BeforeButtonClick = blPrint_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        FindFieldType = tfCharacterString
        ReferCaption = #1057#1087#1080#1089#1086#1082
        xReferId = 0
        IsHarbourRefer = True
      end
      object bMarkerKB: xbLabelEdit
        Left = 8
        Top = 108
        Width = 270
        Height = 21
        BorderColor = clWindowText
        Caption = #1052#1072#1088#1082#1077#1088' '#1050#1083#1080#1077#1085#1090'-'#1073#1072#1085#1082#1072
        CaptionAlignment = taLeftJustify
        DataField = 'MARKERKB'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 7
        LabelWidth = 170
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object lcbNumRule: xbLabelCombo
        Left = 8
        Top = 179
        Width = 500
        Height = 21
        ParentBackGround = True
        Caption = #1053#1091#1084#1077#1088#1072#1094#1080#1103' '#1080#1089#1093#1086#1076#1103#1097#1080#1093' '#1076#1086#1082#1091#1084'.'
        TabOrder = 8
        LabelWidth = 170
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Sorted = False
        EditColor = clWindow
        DisabledColor = clInactiveBorder
        DisabledFontColor = clBlack
        BorderColor = clWindowText
        AutoComplete = False
        Style = csDropDownList
        CharCase = ecNormal
        DropDownCount = 0
        ItemHeight = 0
        MaxLength = 0
        Items.Strings = (
          #1086#1090#1076#1077#1083#1100#1085#1086' '#1087#1086' '#1082#1072#1078#1076#1086#1084#1091' '#1086#1073#1098#1077#1082#1090#1091' '#1091#1095#1077#1090#1072
          #1074' '#1094#1077#1083#1086#1084' '#1087#1086' '#1074#1080#1076#1091' '#1076#1086#1082#1091#1084#1077#1085#1090#1072)
        ItemIndex = -1
        UseStandartHint = True
        OnClick = lcbNumRule_Click
      end
    end
  end
  object btnOK: xbButton
    Left = 368
    Top = 250
    Width = 75
    Height = 21
    Hint = #1057#1086#1093#1088#1072#1085#1077#1085#1080#1077' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (F10)'
    Caption = #1054#1050
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 1
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btnCANCEL: xbButton
    Left = 451
    Top = 250
    Width = 75
    Height = 21
    Hint = #1042#1099#1093#1086#1076' '#1080#1079' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (Esc)'
    Caption = #1054#1090#1084#1077#1085#1072
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 2
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <>
    OEMTranslate = False
    Left = 109
    Top = 3
  end
  object ADS: xbADSDataSource
    DataSet = DS
    Left = 145
    Top = 3
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_DOC_TYPE'
    Active = False
    Left = 72
    Top = 3
  end
end
frmPayEmpty.prg                                                       2064object frmPayEmpty: TfrmPayEmpty
  Left = 25
  Top = 25
  Width = 300
  Height = 200
  ActiveControl = btnOK
  Anchors = []
  Caption = #1055#1091#1089#1090#1072#1103' '#1092#1086#1088#1084#1072
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  WindowState = wsNormal
  OnCloseQuery = Form_CloseQuery
  OnCreate = Form_Create
  DesignSize = (
    292
    166)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 8
    Top = 8
    Width = 278
    Height = 127
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    object TabSheet1: TTabSheet
      Caption = #1054#1073#1097#1077#1077
      OnStartDrag = TabSheet1_StartDrag
    end
  end
  object btnOK: xbButton
    Left = 128
    Top = 144
    Width = 75
    Height = 21
    Hint = #1057#1086#1093#1088#1072#1085#1077#1085#1080#1077' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (F10)'
    Caption = #1054#1050
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 1
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btnCANCEL: xbButton
    Left = 211
    Top = 144
    Width = 75
    Height = 21
    Hint = #1042#1099#1093#1086#1076' '#1080#1079' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (Esc)'
    Caption = #1054#1090#1084#1077#1085#1072
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 2
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
end
frmPayRRBudExp401.prg                                                 8732object frmPayRRBudExp401: TfrmPayRRBudExp401
  Left = 25
  Top = 25
  Width = 400
  Height = 232
  ActiveControl = btDovedeno
  Anchors = []
  Caption = #1056#1072#1089#1093#1086#1076#1099' '#1073#1102#1076#1078#1077#1090#1072
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  WindowState = wsNormal
  OnActivate = Form_Activate
  OnClose = Form_Close
  OnCloseQuery = Form_CloseQuery
  OnCreate = Form_Create
  OnShow = Form_Show
  DesignSize = (
    392
    198)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 8
    Top = 8
    Width = 376
    Height = 154
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    object TabSheet1: TTabSheet
      Caption = #1054#1073#1097#1077#1077
      object lbDetal: xbLabel
        Left = 8
        Top = 36
        Width = 170
        Height = 17
        Caption = #1044#1077#1090#1072#1083#1080#1079#1080#1088#1086#1074#1072#1085#1086':'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
      end
      object larAnal: xbLabelEditAnalitRefer
        Left = 8
        Top = 56
        Width = 360
        Height = 21
        BorderColor = clWindowText
        Caption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
        CaptionAlignment = taLeftJustify
        DataField = 'EXP_DIM'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 1
        LabelWidth = 80
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'EXP_DIM'
        EnabledEdit = False
        VisibleButton = True
        UseStandartHint = True
        FindFieldType = tfCharacterString
        ReferCaption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
        TableName = 'PAY\DIM_TUNE'
        xReferId = 0
        IsHarbourRefer = True
        MakeChecking = True
      end
      object lecSum: xbLabelEditCalc
        Left = 8
        Top = 80
        Width = 170
        Height = 21
        BorderColor = clWindowText
        Caption = #1057#1091#1084#1084#1072
        CaptionAlignment = taLeftJustify
        DataField = 'SUM_LBO'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 2
        LabelWidth = 80
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        VisibleButton = False
      end
      object lePrim: xbLabelEdit
        Left = 8
        Top = 104
        Width = 360
        Height = 21
        BorderColor = clWindowText
        Caption = #1055#1088#1080#1084#1077#1095#1072#1085#1080#1077
        CaptionAlignment = taLeftJustify
        DataField = 'PRIM'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 4
        LabelWidth = 80
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leYear: xbLabelEdit
        Left = 248
        Top = 80
        Width = 117
        Height = 21
        BorderColor = clWindowText
        Caption = #1043#1086#1076
        CaptionAlignment = taLeftJustify
        DataField = 'EX_YEAR'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        Enabled = False
        EditMask = '0000'
        DisplayFormat = '0000'
        TabOrder = 3
        LabelWidth = 40
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        MaxLength = 4
        Text = '    '
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object btDovedeno: xbButton
        Left = 8
        Top = 8
        Width = 170
        Height = 21
        Hint = #1057#1086#1093#1088#1072#1085#1077#1085#1080#1077' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (F10)'
        Caption = #1044#1086#1074#1077#1076#1077#1085#1086
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        RoundedButton = True
        ShowHint = True
        TabOrder = 0
        OnClick = btDovedeno_Click
        ButtonColor = clBlack
      end
    end
  end
  object btnOK: xbButton
    Left = 225
    Top = 170
    Width = 75
    Height = 21
    Hint = #1057#1086#1093#1088#1072#1085#1077#1085#1080#1077' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (F10)'
    Caption = #1054#1050
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 2
    ModalResult = 1
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btnCANCEL: xbButton
    Left = 312
    Top = 170
    Width = 75
    Height = 21
    Hint = #1042#1099#1093#1086#1076' '#1080#1079' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (Esc)'
    Caption = #1054#1090#1084#1077#1085#1072
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 3
    ModalResult = 2
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btDopRecv: xbButton
    Left = 113
    Top = 170
    Width = 100
    Height = 21
    Hint = #1044#1086#1087#1086#1083#1085#1080#1090#1077#1083#1100#1085#1099#1077' '#1088#1077#1082#1074#1080#1079#1080#1090#1099' (Alt+F5)'
    Caption = #1044#1086#1087'. '#1088#1077#1082#1074#1080#1079#1080#1090#1099
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 1
    OnClick = btDopRecv_Click
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_BUD_EXP'
    Active = False
    Left = 261
    Top = 8
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <>
    OEMTranslate = False
    AfterEdit = DS_AfterEdit
    Left = 336
    Top = 8
  end
  object ADS: xbADSDataSource
    DataSet = DS
    Left = 299
    Top = 9
  end
  object DSDIMTUNE: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'PAY\dim_tune'
    OEMTranslate = False
    IndexName = 'TAG_CODE'
    Left = 203
    Top = 9
  end
  object RFDovedeno: xbReferCaller
    ColumnsTune = 
      'EXP_DIM;-1;250;1;0;'#1040#1085#1072#1083#1080#1090#1080#1082#1072'|EX_YEAR;-1;80;1;0;'#1043#1086#1076'|OST;-1;100;1;' +
      '0;'#1054#1089#1090#1072#1090#1086#1082' '#1051#1041#1054' '#1076#1083#1103' '#1076#1077#1090#1072#1083#1080#1079#1072#1094#1080#1080
    ListDataSet = DSDovedenoRef
    ReferCaption = #1042#1080#1076#1099' '#1076#1074#1080#1078#1077#1085#1080#1103
    ReferHeight = 380
    ReferWidth = 450
    OnSelect = RFDovedeno_Select
    Left = 57
    Top = 139
  end
  object DSDovedenoRef: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'PAY\MOVE_TP.DBF'
    OEMTranslate = False
    Left = 135
    Top = 139
  end
end
frmKBRee.prg                                                          6558object KB: TKB
  Left = 25
  Top = 25
  Width = 650
  Height = 404
  ActiveControl = bGrid1
  Anchors = []
  Caption = #1053#1072#1089#1090#1088#1086#1081#1082#1072' '#1089#1080#1089#1090#1077#1084#1099' '#1050#1083#1080#1077#1085#1090'-'#1073#1072#1085#1082
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  WindowState = wsNormal
  OnInnerEvent = Form_InnerEvent
  DesignSize = (
    642
    370)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 8
    Top = 8
    Width = 626
    Height = 331
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    object TabSheet1: TTabSheet
      Caption = #1056#1077#1077#1089#1090#1088
      DesignSize = (
        624
        309)
      object bGrid1: xbGrid
        Left = 5
        Top = 34
        Width = 608
        Height = 267
        Anchors = [akLeft, akTop, akRight, akBottom]
        AutoFitColWidths = True
        DataSource = ADS
        Flat = True
        FooterColor = clWindow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -11
        FooterFont.Name = 'MS Sans Serif'
        FooterFont.Style = []
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgConfirmDelete, dgCancelOnExit]
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        UseMultiTitle = True
        OnCellClick = bGrid1_CellClick
        OnTitleClick = bGrid1_TitleClick
        IdGrid = '{F0033CB3-D996-4ae6-8E2E-DD0DE5AFAAA1}'
        Columns = <
          item
            EditButtons = <>
            FieldName = 'CodeFormat'
            Footers = <>
            Title.Caption = #1050#1086#1076
          end
          item
            EditButtons = <>
            FieldName = 'NameFormat'
            Footers = <>
            Title.Caption = #1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077' '#1092#1086#1088#1084#1072#1090#1072
            Width = 223
          end
          item
            EditButtons = <>
            FieldName = 'TP_NAME'
            Footers = <>
            Title.Caption = #1042#1080#1076' '#1087#1083#1072#1090#1077#1078#1085#1086#1075#1086' '#1076#1086#1082#1091#1084#1077#1085#1090#1072
            Width = 148
          end
          item
            EditButtons = <>
            FieldName = 'Prim'
            Footers = <>
            Title.Caption = #1055#1088#1080#1084#1077#1095#1072#1085#1080#1077
            Width = 93
          end
          item
            EditButtons = <>
            FieldName = 'IsUse'
            Footers = <>
            Title.Caption = #1048#1089#1087
            Width = 32
          end
          item
            EditButtons = <>
            FieldName = 'IsSystem'
            Footers = <>
            Title.Caption = #1057#1080#1089
            Width = 28
          end>
      end
      object LblFormat: xbLabelCombo
        Left = 8
        Top = 8
        Width = 270
        Height = 21
        ParentBackGround = True
        Caption = #1060#1086#1088#1084#1072#1090'          '
        TabOrder = 1
        LabelWidth = 60
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Sorted = False
        EditColor = clWindow
        DisabledColor = clBlack
        DisabledFontColor = clBlack
        BorderColor = clWindowText
        AutoComplete = False
        Style = csDropDownList
        CharCase = ecNormal
        DropDownCount = 0
        ItemHeight = 0
        MaxLength = 0
        ItemIndex = -1
        UseStandartHint = True
        OnSelect = LblFormat_Select
      end
      object LblTp: xbLabelCombo
        Left = 296
        Top = 8
        Width = 320
        Height = 21
        ParentBackGround = True
        Caption = #1042#1080#1076' '#1087#1083#1072#1090#1077#1078#1085#1086#1075#1086' '#1076#1086#1082#1091#1084#1077#1085#1090#1072'          '
        TabOrder = 2
        LabelWidth = 150
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Sorted = False
        EditColor = clWindow
        DisabledColor = clBlack
        DisabledFontColor = clBlack
        BorderColor = clWindowText
        AutoComplete = False
        Style = csDropDownList
        CharCase = ecNormal
        DropDownCount = 0
        ItemHeight = 0
        MaxLength = 0
        ItemIndex = -1
        UseStandartHint = True
        OnSelect = LblTp_Select
      end
    end
  end
  object bPopupButton1: xbPopupButton
    Left = 555
    Top = 344
    Width = 75
    Height = 20
    Caption = #1055#1088#1086#1075#1088#1072#1084#1084#1099
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = pMNUFunction
    RoundedButton = True
    TabOrder = 1
    OnClick = bPopupButton1_Click
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object ADS: xbADSDataSource
    DataSet = DS
    Left = 35
    Top = 109
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <>
    OEMTranslate = False
    AfterInsert = DS_AfterInsert
    OnUpdateRecord = DS_UpdateRecord
    Left = 78
    Top = 110
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsKB'
    Active = False
    Left = 119
    Top = 110
  end
  object pMNUFunction: xbPopupMenu
    Left = 432
    Top = 216
    object N30: TMenuItem
      Caption = #1055#1088#1086#1075#1088#1072#1084#1084#1072' '#1101#1082#1089#1087#1086#1088#1090#1072
      ShortCut = 32817
    end
    object N31: TMenuItem
      Caption = #1055#1088#1086#1075#1088#1072#1084#1084#1072' '#1080#1084#1087#1086#1088#1090#1072
      ShortCut = 32818
    end
  end
end
frmKB.prg                                                             7355object frmKB: TfrmKB
  Left = 25
  Top = 25
  Width = 540
  Height = 210
  Anchors = []
  Caption = #1060#1086#1088#1084#1072#1090' '#1086#1073#1084#1077#1085#1072
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  WindowState = wsNormal
  OnCloseQuery = Form_CloseQuery
  OnCreate = Form_Create
  DesignSize = (
    532
    176)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 8
    Top = 8
    Width = 518
    Height = 137
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    object TabSheet1: TTabSheet
      Caption = #1054#1073#1097#1077#1077
      OnStartDrag = TabSheet1_StartDrag
      DesignSize = (
        516
        115)
      object leNameFormat: xbLabelEdit
        Left = 288
        Top = 8
        Width = 220
        Height = 21
        Anchors = [akLeft, akTop, akRight]
        BorderColor = clWindowText
        CaptionAlignment = taLeftJustify
        DataField = 'NAMEFORMAT'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 1
        LabelWidth = 0
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnChange = leNameFormat_Change
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object cbUse: xbCheckBox
        Left = 8
        Top = 79
        Width = 272
        Height = 21
        Caption = 
          #1048#1089#1087#1086#1083#1100#1079#1091#1077#1090#1089#1103' '#1074' '#1085#1072#1089#1090#1086#1103#1097#1077#1077' '#1074#1088#1077#1084#1103' . . . . . . . . . . . . . . . . .' +
          ' . . . . . .'
        Checked = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 4
        TabStop = True
        ValueChecked = '1'
        ValueUnchecked = '0'
        DataField = 'ISUSE'
        DataSource = ADS
      end
      object blTp_Name: xbLabelCombo
        Left = 8
        Top = 31
        Width = 500
        Height = 21
        ParentBackGround = True
        Caption = #1042#1080#1076' '#1087#1083#1072#1090#1077#1078#1085#1086#1075#1086' '#1076#1086#1082#1091#1084#1077#1085#1090#1072'          '
        TabOrder = 2
        LabelWidth = 170
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Sorted = False
        EditColor = clWindow
        DisabledColor = clBlack
        DisabledFontColor = clBlack
        BorderColor = clWindowText
        AutoComplete = False
        Style = csDropDownList
        CharCase = ecNormal
        DropDownCount = 0
        ItemHeight = 0
        MaxLength = 0
        ItemIndex = -1
        UseStandartHint = True
        OnSelect = blTp_Name_Select
      end
      object leFormat: xbLabelEditRefer
        Tag = 1
        Left = 8
        Top = 8
        Width = 277
        Height = 21
        BorderColor = clWindowText
        Caption = #1050#1086#1076', '#1085#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077' '#1092#1086#1088#1084#1072#1090#1072
        CaptionExtender = ceNone
        CaptionAlignment = taLeftJustify
        DataField = 'CodeFormat'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 0
        LabelWidth = 170
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnExit = leFormat_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2;Alt+Down'
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'CODEFORMAT;-1;100;1;0;'#1050#1086#1076'|NAMEFORMAT;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldType = tfCharacterString
        ListDataSet = ds1
        OutFieldsArray = 'CodeFormat;NameFormat'
        PutFieldsArray = 'CodeFormat;NameFormat'
        ReferCaption = ' '#1057#1087#1080#1089#1086#1082' '#1092#1086#1088#1084#1072#1090#1086#1074
        xReferId = 0
        IsHarbourRefer = True
      end
      object bPrim: xbLabelEdit
        Left = 8
        Top = 54
        Width = 500
        Height = 21
        BorderColor = clWindowText
        Caption = #1055#1088#1080#1084#1077#1095#1072#1085#1080#1077
        CaptionAlignment = taLeftJustify
        DataField = 'PRIM'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 3
        LabelWidth = 170
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnChange = bPrim_Change
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
    end
  end
  object btnOK: xbButton
    Left = 368
    Top = 152
    Width = 75
    Height = 21
    Hint = #1057#1086#1093#1088#1072#1085#1077#1085#1080#1077' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (F10)'
    Caption = #1054#1050
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 1
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btnCANCEL: xbButton
    Left = 451
    Top = 152
    Width = 75
    Height = 21
    Hint = #1042#1099#1093#1086#1076' '#1080#1079' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (Esc)'
    Caption = #1054#1090#1084#1077#1085#1072
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 2
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <>
    OEMTranslate = False
    Left = 109
    Top = 3
  end
  object ADS: xbADSDataSource
    DataSet = DS
    Left = 145
    Top = 3
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsKB'
    Active = False
    Left = 72
    Top = 3
  end
  object ds1: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    Filter = ' '
    FieldDefs = <>
    TableName = 'PAY\kbformat.dbf'
    OEMTranslate = False
    Left = 215
    Top = 1
  end
  object ADS1: xbADSDataSource
    DataSet = ds1
    Left = 255
    Top = 1
  end
end
frmPayFinPlDoc.prg                                                   62459object frmPayFinPlDoc: TfrmPayFinPlDoc
  Left = 25
  Top = 25
  Width = 680
  Height = 445
  Anchors = [akLeft, akTop, akRight]
  Caption = #1044#1086#1082#1091#1084#1077#1085#1090' '#1073#1102#1076#1078#1077#1090#1085#1086#1075#1086' '#1086#1073#1103#1079#1072#1090#1077#1083#1100#1089#1090#1074#1072
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  WindowState = wsNormal
  DesignSize = (
    672
    411)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 9
    Top = 8
    Width = 658
    Height = 370
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    OnChange = bPageControl1_Change
    object TabSheet1: TTabSheet
      Caption = #1054#1073#1097#1077#1077
      DesignSize = (
        656
        348)
      object RFDocTp: xbLabelEditRefer
        Left = 6
        Top = 2
        Width = 205
        Height = 21
        BorderColor = clWindowText
        Caption = #1044#1086#1082#1091#1084#1077#1085#1090':        '#1074#1080#1076
        CaptionAlignment = taLeftJustify
        DataField = 'DOC_CODE'
        DataSource = DSR
        ButtonsColor = clBlack
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 0
        LabelWidth = 130
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        ReadOnly = True
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2;Alt+Down'
        EnabledEdit = False
        VisibleButton = True
        UseStandartHint = True
        FindFieldType = tfCharacterString
        ReferCaption = #1057#1087#1080#1089#1086#1082
        xReferId = 0
        IsHarbourRefer = True
      end
      object txtDopNum: xbLabelEdit
        Left = 214
        Top = 2
        Width = 190
        Height = 21
        BorderColor = clWindowText
        Caption = #1085#1086#1084#1077#1088
        CaptionAlignment = taLeftJustify
        DataField = 'DOP_NUM'
        DataSource = DSR
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 1
        LabelWidth = 40
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = #1064#1064#1064#1064#1064#1064#1064#1064#1064#1064#1064#1064#1064#1064#1064
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object CalDocDate: xbLabelEditCalend
        Left = 480
        Top = 3
        Width = 170
        Height = 21
        BorderColor = clWindowText
        Caption = #1076#1072#1090#1072
        CaptionAlignment = taLeftJustify
        DataField = 'DOC_DATE'
        DataSource = DSR
        ButtonsColor = clBlack
        EnabledColor = clWhite
        EditMask = '!99/99/0000;1; '
        TabOrder = 3
        LabelWidth = 100
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        MaxLength = 10
        Text = '  /  /    '
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2;Alt+Down'
        VisibleButton = False
      end
      object txtDocNum: xbEdit
        Left = 406
        Top = 2
        Width = 63
        Height = 21
        AutoSize = False
        BorderStyle = bsNone
        Color = clWhite
        Enabled = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 2
        Text = 'txtDocNum'
        EnabledColor = clBlack
        DataField = 'DOC_NUM'
        DataSource = DSR
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object RFMoveTp: xbLabelEditRefer
        Left = 5
        Top = 25
        Width = 328
        Height = 21
        BorderColor = clWindowText
        Caption = #1042#1080#1076' '#1076#1074#1080#1078#1077#1085#1080#1103
        CaptionAlignment = taLeftJustify
        DataField = 'MOVE_NAME'
        DataSource = DSR
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 4
        LabelWidth = 130
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        ReadOnly = True
        OnChange = RFMoveTp_Change
        OnExit = RFMoveTp_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2;Alt+Down'
        BeforeButtonClick = RFMoveTp_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        FindFieldType = tfCharacterString
        ReferCaption = #1057#1087#1080#1089#1086#1082
        TypeFindFieldName = 'MV_NAME'
        xReferId = 0
        IsHarbourRefer = True
        IsMustEnter = True
        OnSelect = RFMoveTp_Select
      end
      object cbStatus: xbLabelCombo
        Left = 338
        Top = 25
        Width = 132
        Height = 21
        ParentBackGround = True
        Caption = #1057#1090#1072#1090#1091#1089
        TabOrder = 5
        LabelWidth = 50
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Sorted = False
        Text = #1063#1077#1088#1085#1086#1074#1080#1082
        EditColor = clWindow
        DisabledColor = clBlack
        DisabledFontColor = clBlack
        BorderColor = clBlack
        AutoComplete = False
        Style = csDropDown
        CharCase = ecNormal
        DropDownCount = 0
        ItemHeight = 0
        MaxLength = 0
        Items.Strings = (
          #1063#1077#1088#1085#1086#1074#1080#1082
          #1055#1077#1088#1077#1076#1072#1085
          #1054#1087#1083#1072#1095#1077#1085)
        ItemIndex = 0
        UseStandartHint = True
        OnSelect = cbStatus_Select
      end
      object CalOperDate: xbLabelEditCalend
        Left = 480
        Top = 25
        Width = 170
        Height = 21
        BorderColor = clWindowText
        Caption = #1076#1072#1090#1072' '#1086#1087#1077#1088#1072#1094#1080#1080
        CaptionAlignment = taLeftJustify
        DataField = 'OPER_DATE'
        DataSource = DSR
        ButtonsColor = clBlack
        EnabledColor = clWhite
        EditMask = '!99/99/0000;1; '
        TabOrder = 6
        LabelWidth = 100
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        MaxLength = 10
        Text = '  /  /    '
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2;Alt+Down'
        VisibleButton = False
      end
      object RFBO: xbLabelEditRefer
        Left = 6
        Top = 48
        Width = 463
        Height = 21
        BorderColor = clWindowText
        Caption = #1041#1054' -  '#1088#1077#1075'.'#1085#1086#1084#1077#1088
        CaptionAlignment = taLeftJustify
        DataField = 'REG_NUM'
        DataSource = DSR
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 7
        LabelWidth = 130
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2;Alt+Down'
        ClearFields = 'REG_NUM'
        BeforeButtonClick = RFBO_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        FindFieldType = tfCharacterString
        ReferCaption = #1057#1087#1080#1089#1086#1082
        xReferId = 0
        IsHarbourRefer = True
        OnSelect = RFBO_Select
      end
      object CalRegDate: xbLabelEditCalend
        Left = 480
        Top = 48
        Width = 170
        Height = 21
        BorderColor = clWindowText
        Caption = #1076#1072#1090#1072' '#1088#1077#1075#1080#1089#1090#1088#1072#1094#1080#1080
        CaptionAlignment = taLeftJustify
        DataField = 'REG_DATE'
        DataSource = DSR
        ButtonsColor = clBlack
        EnabledColor = clWhite
        EditMask = '!99/99/0000;1; '
        TabOrder = 8
        LabelWidth = 100
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        MaxLength = 10
        Text = '  /  /    '
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2;Alt+Down'
        VisibleButton = False
      end
      object Fr1: xbFrame
        Left = 6
        Top = 72
        Width = 644
        Height = 167
        TabOrder = 9
        Anchors = [akLeft, akTop, akRight]
        DesignSize = (
          644
          167)
        object lbOwnName: xbLabel
          Left = 312
          Top = 4
          Width = 326
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbOwnName'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'OWN_SHORT_NAME'
          DataSource = DSR
        end
        object blOwnBnkName: xbLabel
          Left = 463
          Top = 28
          Width = 177
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'blOwnBnkName'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'OWNACNT_BANK_NAME'
          DataSource = DSRDOCCMP
        end
        object blFO: xbLabel
          Left = 310
          Top = 53
          Width = 219
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'blFO'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'FO_SHORTNAME'
          DataSource = DSRDOCCMP
        end
        object blRasp: xbLabel
          Left = 310
          Top = 73
          Width = 325
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'blRasp'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'PART_SHORTNAME'
          DataSource = DSRDOCCMP
        end
        object blAgName: xbLabel
          Left = 310
          Top = 96
          Width = 325
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'blAgName'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'PART_SHORTNAME'
          DataSource = DSR
        end
        object blPrtBnk1: xbLabel
          Left = 463
          Top = 119
          Width = 177
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'blPrtBnk1'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'PRTACNT_BANK_NAME'
          DataSource = DSRDOCCMP
        end
        object blPrtBnk2: xbLabel
          Left = 463
          Top = 144
          Width = 177
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'blPrtBnk2'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'PRTBANK2_NAME'
          DataSource = DSRDOCCMP
        end
        object RFPart: xbLabelEditRefer
          Left = 6
          Top = 4
          Width = 300
          Height = 21
          BorderColor = clWindowText
          Caption = #1055#1088#1077#1076#1087#1088#1080#1103#1090#1080#1077
          CaptionAlignment = taLeftJustify
          DataField = 'OWN_COD_BUD_P'
          DataSource = DSR
          ButtonsColor = clBlack
          EnabledColor = clWhite
          TabOrder = 0
          LabelWidth = 125
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2;Alt+Down'
          VisibleButton = False
          UseStandartHint = True
          FindFieldType = tfCharacterString
          ReferCaption = #1057#1087#1080#1089#1086#1082
          xReferId = 0
          IsHarbourRefer = True
        end
        object REFOFK: xbLabelEditRefer
          Left = 310
          Top = 26
          Width = 152
          Height = 21
          BorderColor = clWindowText
          Caption = #1074' '#1054#1060#1050
          CaptionAlignment = taLeftJustify
          DataField = 'OWNACNT_COD_BUD_P'
          DataSource = DSRDOCCMP
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 8
          LabelWidth = 50
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          Required = True
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2;Alt+Down'
          EnabledEdit = False
          VisibleButton = False
          UseStandartHint = True
          FindFieldType = tfCharacterString
          ReferCaption = #1057#1087#1080#1089#1086#1082
          xReferId = 0
          IsHarbourRefer = True
        end
        object REFACCNT: xbLabelEditRefer
          Left = 6
          Top = 27
          Width = 300
          Height = 21
          BorderColor = clWindowText
          Caption = #1057#1095#1077#1090
          CaptionAlignment = taLeftJustify
          DataField = 'OWNACNT_NUM'
          DataSource = DSRDOCCMP
          ButtonsColor = clBlack
          EnabledColor = clWhite
          TabOrder = 1
          LabelWidth = 125
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2;Alt+Down'
          VisibleButton = False
          UseStandartHint = True
          FindFieldType = tfCharacterString
          ReferCaption = #1057#1087#1080#1089#1086#1082
          xReferId = 0
          IsHarbourRefer = True
        end
        object REFBUDLEV: xbLabelEditRefer
          Left = 534
          Top = 50
          Width = 103
          Height = 21
          BorderColor = clWindowText
          Caption = #1041#1102#1076#1078#1077#1090
          CaptionAlignment = taLeftJustify
          DataField = 'BUD_LEV'
          DataSource = DSRDOCCMP
          ButtonsColor = clBlack
          EnabledColor = clWhite
          TabOrder = 3
          LabelWidth = 50
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2;Alt+Down'
          ClearFields = 'BUD_LEV'
          BeforeButtonClick = REFBUDLEV_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          FindFieldName = 'code'
          FindFieldType = tfCharacterString
          OutFieldsArray = 'CODE'
          PutFieldsArray = 'BUD_LEV'
          ReferCaption = #1059#1088#1086#1074#1085#1080' '#1073#1102#1076#1078#1077#1090#1086#1074
          TableName = 'pay/bub_lev.dbf'
          TypeFindFieldName = 'code'
          xReferId = 0
          IsHarbourRefer = True
          IsMustEnter = True
          OnSelect = REFBUDLEV_Select
        end
        object REFRASP: xbLabelEditRefer
          Left = 6
          Top = 73
          Width = 300
          Height = 21
          BorderColor = clWindowText
          Caption = #1043#1083#1072#1074#1085#1099#1081' '#1088#1072#1089#1087#1086#1088#1103#1076#1080#1090#1077#1083#1100
          CaptionAlignment = taLeftJustify
          DataField = 'PART_COD_BUD_P'
          DataSource = DSRDOCCMP
          ButtonsColor = clBlack
          EnabledColor = clWhite
          TabOrder = 4
          LabelWidth = 125
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          ReadOnly = True
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2;Alt+Down'
          ClearFields = 'R_ID'
          BeforeButtonClick = REFRASP_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          FindFieldType = tfCharacterString
          ReferCaption = #1057#1087#1080#1089#1086#1082
          xReferId = 0
          IsHarbourRefer = True
          IsMustEnter = True
        end
        object REFAG: xbLabelEditRefer
          Left = 6
          Top = 96
          Width = 300
          Height = 21
          BorderColor = clWindowText
          Caption = #1050#1086#1085#1090#1088#1072#1075#1077#1085#1090
          CaptionAlignment = taLeftJustify
          DataField = 'PART_CODE'
          DataSource = DSR
          ButtonsColor = clBlack
          EnabledColor = clWhite
          TabOrder = 5
          LabelWidth = 125
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          OnExit = REFAG_Exit
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2;Alt+Down'
          ClearFields = 'PRT_ID'
          BeforeButtonClick = REFAG_BeforeButtonClick
          OnClearButtonClick = REFAG_ClearButtonClick
          VisibleButton = True
          UseStandartHint = True
          FindFieldType = tfCharacterString
          ReferCaption = #1057#1087#1080#1089#1086#1082
          TypeFindFieldName = 'code'
          xReferId = 0
          IsHarbourRefer = True
          IsMustEnter = True
        end
        object REFAGACCNT: xbLabelEditRefer
          Left = 6
          Top = 119
          Width = 300
          Height = 21
          BorderColor = clWindowText
          Caption = #1057#1095#1077#1090
          CaptionAlignment = taLeftJustify
          DataField = 'PRTACNT_NUM'
          DataSource = DSRDOCCMP
          ButtonsColor = clBlack
          EnabledColor = clWhite
          TabOrder = 6
          LabelWidth = 125
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2;Alt+Down'
          BeforeButtonClick = REFAGACCNT_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          FindFieldType = tfCharacterString
          ReferCaption = #1057#1087#1080#1089#1086#1082
          xReferId = 0
          IsHarbourRefer = True
        end
        object bLabelEdit2: xbLabelEdit
          Left = 310
          Top = 118
          Width = 152
          Height = 21
          BorderColor = clWindowText
          Caption = #1074' '#1073#1072#1085#1082#1077
          CaptionAlignment = taLeftJustify
          DataField = 'PRTACNT_CODE'
          DataSource = DSRDOCCMP
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 9
          LabelWidth = 50
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          ReadOnly = True
          Required = True
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object REFAGACCNT1: xbLabelEditRefer
          Left = 131
          Top = 142
          Width = 175
          Height = 21
          BorderColor = clWindowText
          Caption = #1057#1095#1077#1090
          CaptionAlignment = taLeftJustify
          DataField = 'PRTACNTCMP_NUM'
          DataSource = DSRDOCCMP
          ButtonsColor = clBlack
          EnabledColor = clWhite
          TabOrder = 7
          LabelWidth = 0
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2;Alt+Down'
          BeforeButtonClick = REFAGACCNT1_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          FindFieldType = tfCharacterString
          ReferCaption = #1057#1087#1080#1089#1086#1082
          xReferId = 0
          IsHarbourRefer = True
        end
        object bLabelEdit3: xbLabelEdit
          Left = 310
          Top = 142
          Width = 152
          Height = 21
          BorderColor = clWindowText
          Caption = #1074' '#1073#1072#1085#1082#1077
          CaptionAlignment = taLeftJustify
          DataField = 'PRTBANK2_CODE'
          DataSource = DSRDOCCMP
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 10
          LabelWidth = 50
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          ReadOnly = True
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object REFFO: xbLabelEditRefer
          Left = 6
          Top = 50
          Width = 300
          Height = 21
          BorderColor = clWindowText
          Caption = #1060#1080#1085#1072#1085#1089#1086#1074#1099#1081' '#1086#1088#1075#1072#1085
          CaptionAlignment = taLeftJustify
          DataField = 'FO_COD_BUD_P'
          DataSource = DSRDOCCMP
          ButtonsColor = clBlack
          EnabledColor = clWhite
          TabOrder = 2
          LabelWidth = 125
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          ReadOnly = True
          OnExit = REFAG_Exit
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2;Alt+Down'
          ClearFields = 'FO_ID'
          BeforeButtonClick = REFAG_BeforeButtonClick
          OnClearButtonClick = REFAG_ClearButtonClick
          VisibleButton = True
          UseStandartHint = True
          FindFieldType = tfCharacterString
          ReferCaption = #1057#1087#1080#1089#1086#1082
          xReferId = 0
          IsHarbourRefer = True
        end
      end
      object Fr3: xbFrame
        Left = 5
        Top = 243
        Width = 644
        Height = 75
        TabOrder = 10
        Anchors = [akLeft, akTop, akRight]
        object txtDocOsnNum: xbLabelEdit
          Left = 210
          Top = 5
          Width = 136
          Height = 21
          BorderColor = clWindowText
          Caption = #1053#1086#1084#1077#1088
          CaptionAlignment = taLeftJustify
          DataField = 'NUM_A'
          DataSource = DSR
          ButtonsColor = clBlack
          EnabledColor = clWhite
          TabOrder = 1
          LabelWidth = 40
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object DocOsnEnd: xbLabelEditCalend
          Left = 290
          Top = 28
          Width = 172
          Height = 21
          BorderColor = clWindowText
          Caption = #1044#1072#1090#1072' '#1086#1082#1086#1085#1095#1072#1085#1080#1103
          CaptionAlignment = taLeftJustify
          DataField = 'END_DT_A'
          DataSource = DSR
          ButtonsColor = clBlack
          EnabledColor = clWhite
          EditMask = '!99/99/0000;1; '
          TabOrder = 4
          LabelWidth = 110
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          MaxLength = 10
          Text = '  /  /    '
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2;Alt+Down'
          VisibleButton = False
        end
        object DocOsnBeg: xbLabelEditCalend
          Left = 6
          Top = 28
          Width = 201
          Height = 21
          BorderColor = clWindowText
          Caption = #1044#1072#1090#1072' '#1085#1072#1095#1072#1083#1072
          CaptionAlignment = taLeftJustify
          DataField = 'BEG_DT_A'
          DataSource = DSR
          ButtonsColor = clBlack
          EnabledColor = clWhite
          EditMask = '!99/99/0000;1; '
          TabOrder = 3
          LabelWidth = 125
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          MaxLength = 10
          Text = '  /  /    '
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2;Alt+Down'
          VisibleButton = False
        end
        object DocOsnDate: xbLabelEditCalend
          Left = 370
          Top = 5
          Width = 92
          Height = 21
          BorderColor = clWindowText
          Caption = #1044#1072#1090#1072
          CaptionAlignment = taLeftJustify
          DataField = 'DOC_DATE_A'
          DataSource = DSR
          ButtonsColor = clBlack
          EnabledColor = clWhite
          EditMask = '!99/99/0000;1; '
          TabOrder = 2
          LabelWidth = 30
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          MaxLength = 10
          Text = '  /  /    '
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2;Alt+Down'
          VisibleButton = False
        end
        object RFDOG: xbLabelEditRefer
          Left = 6
          Top = 5
          Width = 201
          Height = 21
          BorderColor = clWindowText
          Caption = #1044#1086#1082#1091#1084#1077#1085#1090'-'#1086#1089#1085#1086#1074#1072#1085#1080#1077
          CaptionAlignment = taLeftJustify
          DataField = 'DOC_CODE_A'
          DataSource = DSR
          ButtonsColor = clBlack
          EnabledColor = clWhite
          TabOrder = 0
          LabelWidth = 125
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          OnEnter = RFDOG_Enter
          OnExit = RFDOG_Exit
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2;Alt+Down'
          ClearFields = 'ACNT_ID'
          BeforeButtonClick = RFDOG_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          FindFieldType = tfCharacterString
          ReferCaption = #1057#1087#1080#1089#1086#1082
          xReferId = 0
          IsHarbourRefer = True
        end
        object KalkSum: xbLabelEditCalc
          Left = 6
          Top = 51
          Width = 280
          Height = 21
          BorderColor = clWindowText
          Caption = #1057#1091#1084#1084#1072
          CaptionAlignment = taLeftJustify
          DataField = 'SUM_A'
          DataSource = DSR
          ButtonsColor = clBlack
          EnabledColor = clWhite
          TabOrder = 5
          LabelWidth = 125
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          Text = '1234567891123456789'
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2;Alt+Down'
          VisibleButton = False
        end
        object KalkProc: xbLabelEditCalc
          Left = 290
          Top = 51
          Width = 172
          Height = 21
          BorderColor = clWindowText
          Caption = #1040#1074#1072#1085#1089#1086#1074#1099#1081' '#1087#1083#1072#1090#1077#1078' %'
          CaptionAlignment = taLeftJustify
          DataField = 'ADV_RATE'
          DataSource = DSR
          ButtonsColor = clBlack
          EnabledColor = clWhite
          TabOrder = 6
          LabelWidth = 110
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          Text = '123456'
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2;Alt+Down'
          VisibleButton = False
        end
        object KalkAvSum: xbLabelEditCalc
          Left = 464
          Top = 51
          Width = 176
          Height = 21
          BorderColor = clWindowText
          Caption = #1057#1091#1084#1084#1072
          CaptionAlignment = taLeftJustify
          DataField = 'ADV_SUM'
          DataSource = DSR
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 7
          LabelWidth = 40
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          ReadOnly = True
          Text = '1234567891123456789'
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2;Alt+Down'
          EnabledEdit = False
          VisibleButton = False
        end
      end
      object cbStatusCntr: xbLabelCombo
        Left = 6
        Top = 322
        Width = 283
        Height = 21
        ParentBackGround = True
        Caption = #1057#1090#1072#1090#1091#1089' '#1080#1089#1087#1086#1083#1085#1077#1085#1080#1103' '#1082#1086#1085#1090#1088#1072#1082#1090#1072' '
        TabOrder = 11
        LabelWidth = 200
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Sorted = False
        EditColor = clWindow
        DisabledColor = clBlack
        DisabledFontColor = clBlack
        BorderColor = clBlack
        AutoComplete = False
        Style = csDropDownList
        CharCase = ecNormal
        DropDownCount = 0
        ItemHeight = 0
        MaxLength = 0
        Items.Strings = (
          ''
          #1079#1072#1074#1077#1088#1096#1077#1085
          #1072#1085#1085#1091#1083#1080#1088#1086#1074#1072#1085)
        ItemIndex = 0
        UseStandartHint = True
        OnSelect = cbStatusCntr_Select
      end
      object txtNomZap: xbLabelEdit
        Left = 340
        Top = 322
        Width = 309
        Height = 21
        Anchors = [akTop, akRight]
        BorderColor = clWindowText
        Caption = #1053#1086#1084#1077#1088' '#1088#1077#1077#1089#1090#1088#1086#1074#1086#1081' '#1079#1072#1087#1080#1089#1080
        CaptionAlignment = taLeftJustify
        DataField = 'CNTR_REG'
        DataSource = DSR
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 12
        LabelWidth = 165
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnExit = txtNomZap_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
    end
    object TabSheet2: TTabSheet
      Caption = #1056#1072#1089#1096#1080#1092#1088#1086#1074#1082#1072
      OnExit = TabSheet2_Exit
      object bPanel1: xbPanel
        Left = 0
        Top = 0
        Width = 656
        Height = 288
        Align = alClient
        Caption = 'bPanel1'
        TabOrder = 0
        object bPanelD: xbPanel
          Left = 1
          Top = 1
          Width = 654
          Height = 136
          Align = alClient
          Caption = 'bPanelD'
          TabOrder = 0
          object GR1: xbGrid
            Left = 1
            Top = 1
            Width = 652
            Height = 84
            Align = alClient
            AllowedOperations = []
            AutoFitColWidths = True
            DataSource = DSRBUD
            FooterColor = clWindow
            FooterFont.Charset = DEFAULT_CHARSET
            FooterFont.Color = clWindowText
            FooterFont.Height = -11
            FooterFont.Name = 'MS Sans Serif'
            FooterFont.Style = []
            HorzScrollBar.Visible = False
            ReadOnly = True
            TabOrder = 0
            TitleFont.Charset = DEFAULT_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -11
            TitleFont.Name = 'MS Sans Serif'
            TitleFont.Style = []
            VertScrollBar.VisibleMode = sbAlwaysShowEh
            OnDblClick = GR1_DblClick
            IdGrid = '{74BCC5B8-5469-4F87-B7E5-67D6273A3A6B}'
            Columns = <
              item
                EditButtons = <>
                FieldName = 'X_ISMARK_'
                Footers = <>
                Title.Caption = '  '
                Width = 15
              end
              item
                EditButtons = <>
                FieldName = 'FIN_TP'
                Footers = <>
                Title.Alignment = taCenter
                Title.Caption = #1048#1060
                Width = 43
              end
              item
                EditButtons = <>
                FieldName = 'EXP_DIM'
                Footers = <>
                Title.Alignment = taCenter
                Title.Caption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
                Width = 211
              end
              item
                EditButtons = <>
                FieldName = 'Prim'
                Footers = <>
                Title.Alignment = taCenter
                Title.Caption = #1055#1088#1077#1076#1084#1077#1090' '#1087#1086' '#1044#1054
                Width = 128
              end
              item
                EditButtons = <>
                FieldName = 'EX_MON'
                Footers = <>
                Title.Alignment = taCenter
                Title.Caption = #1052#1077#1089#1103#1094
                Width = 34
              end
              item
                EditButtons = <>
                FieldName = 'EX_YEAR'
                Footers = <>
                Title.Alignment = taCenter
                Title.Caption = #1043#1086#1076
                Width = 55
              end
              item
                EditButtons = <>
                FieldName = 'SUM_LBO'
                Footers = <>
                Title.Alignment = taCenter
                Title.Caption = #1057#1091#1084#1084#1072
                Width = 103
              end
              item
                EditButtons = <>
                FieldName = 'STRTPNAME'
                Footers = <>
                Title.Caption = #1058#1080#1087
                Width = 23
              end>
          end
          object GR2: xbGrid
            Left = 1
            Top = 85
            Width = 652
            Height = 50
            Align = alBottom
            AllowedOperations = []
            AutoFitColWidths = True
            DataSource = DSRTMP
            Enabled = False
            FooterColor = clWindow
            FooterFont.Charset = DEFAULT_CHARSET
            FooterFont.Color = clWindowText
            FooterFont.Height = -11
            FooterFont.Name = 'MS Sans Serif'
            FooterFont.Style = []
            HorzScrollBar.Visible = False
            Options = [dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgConfirmDelete]
            ReadOnly = True
            TabOrder = 1
            TitleFont.Charset = DEFAULT_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -11
            TitleFont.Name = 'MS Sans Serif'
            TitleFont.Style = []
            VertScrollBar.VisibleMode = sbAlwaysShowEh
            OnDblClick = GR1_DblClick
            IdGrid = '{74BCC5B8-5469-4F87-B7E5-67D6273A3A6B}'
            Columns = <
              item
                EditButtons = <>
                FieldName = 'I'
                Footers = <>
                Width = 14
              end
              item
                EditButtons = <>
                FieldName = 'A'
                Footers = <>
                Title.Alignment = taCenter
                Title.Caption = #1048#1060
                Width = 43
              end
              item
                EditButtons = <>
                FieldName = 'All'
                Footers = <>
                Title.Alignment = taCenter
                Title.Caption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
                Width = 212
              end
              item
                EditButtons = <>
                FieldName = 'C'
                Footers = <>
                Title.Alignment = taCenter
                Title.Caption = #1055#1088#1077#1076#1084#1077#1090' '#1087#1086' '#1044#1054
                Width = 128
              end
              item
                EditButtons = <>
                FieldName = 'D'
                Footers = <>
                Title.Alignment = taCenter
                Title.Caption = #1052#1077#1089#1103#1094
                Width = 34
              end
              item
                EditButtons = <>
                FieldName = 'YEAR'
                Footers = <>
                Title.Alignment = taCenter
                Title.Caption = #1043#1086#1076
                Width = 55
              end
              item
                EditButtons = <>
                FieldName = 'SUMMA'
                Footers = <>
                Title.Alignment = taCenter
                Title.Caption = #1057#1091#1084#1084#1072
                Width = 126
              end>
          end
        end
        object bPanelUn: xbPanel
          Left = 1
          Top = 137
          Width = 654
          Height = 150
          Align = alBottom
          Caption = 'bPanelUn'
          TabOrder = 1
          object bFrame1: xbFrame
            Left = 1
            Top = 1
            Width = 652
            Height = 148
            Align = alClient
            Caption = #1040#1085#1091#1083#1080#1088#1086#1074#1072#1085#1099
            TabOrder = 0
            DesignSize = (
              652
              148)
            object GR3: xbGrid
              Left = 0
              Top = 15
              Width = 652
              Height = 82
              AllowedOperations = []
              Anchors = [akLeft, akTop, akRight, akBottom]
              AutoFitColWidths = True
              Color = clHighlightText
              DataSource = DSRBUDUN
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clAppWorkSpace
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              FooterColor = clWindow
              FooterFont.Charset = DEFAULT_CHARSET
              FooterFont.Color = clWindowText
              FooterFont.Height = -11
              FooterFont.Name = 'MS Sans Serif'
              FooterFont.Style = []
              HorzScrollBar.Visible = False
              ParentFont = False
              ReadOnly = True
              TabOrder = 0
              TitleFont.Charset = DEFAULT_CHARSET
              TitleFont.Color = clWindowText
              TitleFont.Height = -11
              TitleFont.Name = 'MS Sans Serif'
              TitleFont.Style = []
              VertScrollBar.VisibleMode = sbAlwaysShowEh
              OnDblClick = GR3_DblClick
              IdGrid = '{74BCC5B8-5469-4F87-B7E5-67D6273A3A6B}'
              Columns = <
                item
                  EditButtons = <>
                  FieldName = 'X_ISMARK_'
                  Footers = <>
                  Title.Caption = '  '
                  Width = 15
                end
                item
                  EditButtons = <>
                  FieldName = 'FIN_TP'
                  Footers = <>
                  Title.Alignment = taCenter
                  Title.Caption = #1048#1060
                  Width = 43
                end
                item
                  EditButtons = <>
                  FieldName = 'EXP_DIM'
                  Footers = <>
                  Title.Alignment = taCenter
                  Title.Caption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
                  Width = 211
                end
                item
                  EditButtons = <>
                  FieldName = 'Prim'
                  Footers = <>
                  Title.Alignment = taCenter
                  Title.Caption = #1055#1088#1077#1076#1084#1077#1090' '#1087#1086' '#1044#1054
                  Width = 128
                end
                item
                  EditButtons = <>
                  FieldName = 'EX_MON'
                  Footers = <>
                  Title.Alignment = taCenter
                  Title.Caption = #1052#1077#1089#1103#1094
                  Width = 34
                end
                item
                  EditButtons = <>
                  FieldName = 'EX_YEAR'
                  Footers = <>
                  Title.Alignment = taCenter
                  Title.Caption = #1043#1086#1076
                  Width = 55
                end
                item
                  EditButtons = <>
                  FieldName = 'SUM_LBO'
                  Footers = <>
                  Title.Alignment = taCenter
                  Title.Caption = #1057#1091#1084#1084#1072
                  Width = 126
                end>
            end
            object GR4: xbGrid
              Left = 0
              Top = 98
              Width = 652
              Height = 50
              Align = alBottom
              AllowedOperations = []
              AutoFitColWidths = True
              DataSource = DSRTMPUN
              Enabled = False
              FooterColor = clWindow
              FooterFont.Charset = DEFAULT_CHARSET
              FooterFont.Color = clWindowText
              FooterFont.Height = -11
              FooterFont.Name = 'MS Sans Serif'
              FooterFont.Style = []
              HorzScrollBar.Visible = False
              Options = [dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgConfirmDelete]
              ReadOnly = True
              TabOrder = 1
              TitleFont.Charset = DEFAULT_CHARSET
              TitleFont.Color = clWindowText
              TitleFont.Height = -11
              TitleFont.Name = 'MS Sans Serif'
              TitleFont.Style = []
              VertScrollBar.VisibleMode = sbAlwaysShowEh
              OnDblClick = GR1_DblClick
              IdGrid = '{74BCC5B8-5469-4F87-B7E5-67D6273A3A6B}'
              Columns = <
                item
                  EditButtons = <>
                  FieldName = 'I'
                  Footers = <>
                  Width = 14
                end
                item
                  EditButtons = <>
                  FieldName = 'A'
                  Footers = <>
                  Title.Alignment = taCenter
                  Title.Caption = #1048#1060
                  Width = 43
                end
                item
                  EditButtons = <>
                  FieldName = 'All'
                  Footers = <>
                  Title.Alignment = taCenter
                  Title.Caption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
                  Width = 212
                end
                item
                  EditButtons = <>
                  FieldName = 'C'
                  Footers = <>
                  Title.Alignment = taCenter
                  Title.Caption = #1055#1088#1077#1076#1084#1077#1090' '#1087#1086' '#1044#1054
                  Width = 128
                end
                item
                  EditButtons = <>
                  FieldName = 'D'
                  Footers = <>
                  Title.Alignment = taCenter
                  Title.Caption = #1052#1077#1089#1103#1094
                  Width = 34
                end
                item
                  EditButtons = <>
                  FieldName = 'YEAR'
                  Footers = <>
                  Title.Alignment = taCenter
                  Title.Caption = #1043#1086#1076
                  Width = 55
                end
                item
                  EditButtons = <>
                  FieldName = 'SUMMA'
                  Footers = <>
                  Title.Alignment = taCenter
                  Title.Caption = #1057#1091#1084#1084#1072
                  Width = 126
                end>
            end
          end
        end
      end
      object bPanelAll: xbPanel
        Left = 0
        Top = 288
        Width = 656
        Height = 60
        Align = alBottom
        Caption = 'bPanelAll'
        TabOrder = 1
        object GR5: xbGrid
          Left = 1
          Top = 1
          Width = 654
          Height = 58
          Align = alClient
          AllowedOperations = []
          AutoFitColWidths = True
          DataSource = DSRTMPALL
          FooterColor = clWindow
          FooterFont.Charset = DEFAULT_CHARSET
          FooterFont.Color = clWindowText
          FooterFont.Height = -11
          FooterFont.Name = 'MS Sans Serif'
          FooterFont.Style = []
          HorzScrollBar.Visible = False
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgConfirmDelete]
          ReadOnly = True
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          VertScrollBar.VisibleMode = sbAlwaysShowEh
          OnDblClick = GR1_DblClick
          IdGrid = '{74BCC5B8-5469-4F87-B7E5-67D6273A3A6B}'
          Columns = <
            item
              EditButtons = <>
              FieldName = 'YEAR'
              Footers = <>
              Title.Alignment = taCenter
              Title.Caption = #1043#1086#1076
              Width = 131
            end
            item
              EditButtons = <>
              FieldName = 'SUMMA'
              Footers = <>
              Title.Alignment = taCenter
              Title.Caption = #1042#1085#1086#1074#1100' '#1074#1074#1077#1076#1077#1085#1086
              Width = 302
            end
            item
              EditButtons = <>
              FieldName = 'SUMMAUN'
              Footers = <>
              Title.Caption = #1040#1085#1085#1091#1083#1080#1088#1086#1074#1072#1085#1086
              Width = 185
            end>
        end
      end
    end
    object TabSheet3: TTabSheet
      Caption = #1055#1088#1086#1074#1086#1076#1082#1080
      DesignSize = (
        656
        348)
      object txtopert: xbLabel
        Left = 262
        Top = 9
        Width = 302
        Height = 17
        Caption = 'txtopert'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
        Layout = tlCenter
        DataField = 'TYPEOP_NAME'
        DataSource = DSR
      end
      object lblDt: xbLabel
        Left = 6
        Top = 313
        Width = 645
        Height = 16
        Anchors = [akLeft, akRight, akBottom]
        Caption = '1'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
      end
      object lblKt: xbLabel
        Left = 6
        Top = 330
        Width = 645
        Height = 16
        Anchors = [akLeft, akRight, akBottom]
        Caption = '1'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
      end
      object rfOPerT: xbLabelEditRefer
        Left = 7
        Top = 6
        Width = 250
        Height = 21
        BorderColor = clWindowText
        Caption = #1058#1080#1087#1086#1074#1072#1103' '#1086#1087#1077#1088#1072#1094#1080#1103
        CaptionAlignment = taLeftJustify
        DataField = 'TYPEOP_CODE'
        DataSource = DSR
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 0
        LabelWidth = 124
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'TYPE_OP'
        OnClearButtonClick = rfOPerT_ClearButtonClick
        VisibleButton = True
        UseStandartHint = True
        FindFieldName = 'code'
        FindFieldType = tfCharacterString
        OutFieldsArray = 'REC_ID'
        PutFieldsArray = 'TYPE_OP'
        ReferCaption = #1057#1087#1080#1089#1086#1082' '#1090#1080#1087#1086#1074#1099#1093' '#1086#1087#1077#1088#1072#1094#1080#1081
        TypeFindFieldName = 'code'
        xReferId = 0
        IsHarbourRefer = False
      end
      object bGrProv: xbGrid
        Left = 7
        Top = 30
        Width = 644
        Height = 276
        Anchors = [akLeft, akTop, akRight, akBottom]
        AutoFitColWidths = True
        DataSource = DSRMAIN
        Flat = True
        FooterColor = clWindow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -11
        FooterFont.Name = 'MS Sans Serif'
        FooterFont.Style = []
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
        ReadOnly = True
        TabOrder = 1
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        UseMultiTitle = True
        VTitleMargin = 4
        OnDblClick = bGrid2_DblClick
        OnKeyPress = bGrid2_KeyPress
        IdGrid = '{A38D282F-9736-4FC3-B9B9-A83DF297FD74}'
        Columns = <
          item
            Checkboxes = True
            EditButtons = <>
            FieldName = 'X_ISMARK_'
            Footers = <>
            Title.Caption = ' '
            Width = 22
          end
          item
            EditButtons = <>
            FieldName = 'DT_SCHET'
            Footers = <>
            Title.Caption = #1057#1095#1077#1090'|'#1044#1077#1073#1077#1090
            Width = 80
          end
          item
            EditButtons = <>
            FieldName = 'KT_SCHET'
            Footers = <>
            Title.Caption = #1057#1095#1077#1090'|'#1050#1088#1077#1076#1080#1090
            Width = 80
          end
          item
            EditButtons = <>
            FieldName = 'NAMEOPER'
            Footers = <>
            Title.Caption = #1057#1086#1076#1077#1088#1078#1072#1085#1080#1077
            Width = 323
          end
          item
            EditButtons = <>
            FieldName = 'SUMMA'
            Footers = <>
            Title.Caption = #1057#1091#1084#1084#1072
            Width = 120
          end>
      end
    end
  end
  object btAn: xbButton
    Left = 244
    Top = 385
    Width = 75
    Height = 21
    Caption = #1040#1085#1085#1091#1083#1080#1088#1086#1074#1072#1090#1100
    RoundedButton = True
    TabOrder = 2
    OnClick = btAn_Click
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object bDocDim: xbButton
    Left = 163
    Top = 385
    Width = 75
    Height = 21
    Hint = #1042#1074#1086#1076' Ctrl-D'
    Caption = #1048#1079#1084#1077#1088#1077#1085#1080#1103
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 1
    OnClick = bPlDoc_Click
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btnOK: xbButton
    Left = 509
    Top = 385
    Width = 75
    Height = 21
    Hint = #1057#1086#1093#1088#1072#1085#1080#1090#1100' '#1089#1090#1088#1086#1082#1091' (F10)'
    Caption = #1054#1050
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 3
    ModalResult = 1
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btnCancel: xbButton
    Left = 591
    Top = 385
    Width = 75
    Height = 21
    Hint = #1042#1099#1093#1086#1076' '#1080#1079' '#1089#1090#1088#1086#1082#1080' (Esc)'
    Caption = #1054#1090#1084#1077#1085#1072
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 4
    ModalResult = 2
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object pOperation: xbPopupButton
    Left = 429
    Top = 385
    Width = 75
    Height = 21
    Caption = #1054#1087#1077#1088#1072#1094#1080#1080
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = MenuOperation
    RoundedButton = True
    TabOrder = 5
    OnClick = pOperation_Click
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object pbDopData: xbPopupButton
    Left = 324
    Top = 385
    Width = 100
    Height = 21
    Caption = #1044#1086#1087'. '#1076#1072#1085#1085#1099#1077
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = MenuDopData
    RoundedButton = True
    TabOrder = 6
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <>
    OEMTranslate = False
    Left = 19
    Top = 61
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_fin_pln'
    Active = False
    Left = 5
    Top = 30
  end
  object DSR: xbADSDataSource
    DataSet = DS
    Left = 20
    Top = 79
  end
  object DSBUD: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    xbsClassName = 'BUDEXP'
    BObject = BO
    FieldDefs = <>
    OEMTranslate = False
    AfterScroll = DSBUD_AfterScroll
    Left = 66
    Top = 4
  end
  object DSRBUD: xbADSDataSource
    DataSet = DSBUD
    Left = 76
    Top = 18
  end
  object DSDOCCMP: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    xbsClassName = 'DOCCMP'
    BObject = BO
    FieldDefs = <>
    OEMTranslate = False
    Left = 53
    Top = 59
  end
  object DSRDOCCMP: xbADSDataSource
    DataSet = DSDOCCMP
    Left = 54
    Top = 73
  end
  object DSMAIN: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    xbsClassName = 'MAIN'
    BObject = BO
    FieldDefs = <>
    OEMTranslate = False
    AfterScroll = DSMAIN_AfterScroll
    Left = 147
    Top = 2
  end
  object DSRMAIN: xbADSDataSource
    DataSet = DSMAIN
    OnUpdateData = DSRMAIN_UpdateData
    Left = 157
    Top = 17
  end
  object DSTMP: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    OEMTranslate = False
    Left = 111
    Top = 358
  end
  object DSRTMP: xbADSDataSource
    DataSet = DSTMP
    Left = 125
    Top = 374
  end
  object DSBUDUN: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    xbsClassName = 'BUDEXP'
    BObject = BOBO
    FieldDefs = <>
    OEMTranslate = False
    Left = 109
    Top = 9
  end
  object DSRBUDUN: xbADSDataSource
    DataSet = DSBUDUN
    Left = 111
    Top = 30
  end
  object DSTMPUN: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    OEMTranslate = False
    Left = 25
    Top = 362
  end
  object DSRTMPUN: xbADSDataSource
    DataSet = DSTMPUN
    Left = 59
    Top = 362
  end
  object RFCNTTYPE: xbReferCaller
    ListDataSet = DSCNTTYPE
    ReferCaption = #1057#1087#1080#1089#1086#1082
    OnSelect = RFCNTTYPE_Select
    Left = 215
    Top = 7
  end
  object DSCNTTYPE: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'CNTR/CNTYPE.Dbf'
    OEMTranslate = False
    Left = 245
    Top = 5
  end
  object MenuOperation: xbPopupMenu
    Left = 286
    Top = 176
    object pStatus: TMenuItem
      Caption = #1057#1090#1072#1090#1091#1089'          Alt-S'
      object MenuStatus1: TMenuItem
        Caption = #1063#1077#1088#1085#1086#1074#1080#1082
      end
      object MenuStatus2: TMenuItem
        Caption = #1055#1077#1088#1077#1076#1072#1085
      end
      object MenuStatus3: TMenuItem
        Caption = #1054#1087#1083#1072#1095#1077#1085
      end
    end
    object mCopyProv: TMenuItem
      Caption = #1050#1086#1087#1080#1088#1086#1074#1072#1090#1100'  F5'
      Enabled = False
      OnClick = mCopyProv_Click
    end
  end
  object DSTMPALL: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    OEMTranslate = False
    Left = 11
    Top = 334
  end
  object DSRTMPALL: xbADSDataSource
    DataSet = DSTMPALL
    Left = 30
    Top = 354
  end
  object BOBO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_fin_plnBO'
    Active = False
    Left = 179
    Top = 65530
  end
  object MenuDopData: xbPopupMenu
    Left = 241
    Top = 350
    object miPodpis: TMenuItem
      Caption = #1055#1086#1076#1087#1080#1089#1080'           '
      OnClick = miPodpis_Click
    end
    object miDopRecv: TMenuItem
      Caption = #1044#1086#1087' '#1088#1077#1082#1074#1080#1079#1080#1090#1099'        Alt+F5'
      OnClick = miDopRecv_Click
    end
  end
end
frmPayFinPlDocRee.prg                                                17391object frmPayFinPlDocRee: TfrmPayFinPlDocRee
  Left = 23
  Top = 25
  Width = 720
  Height = 404
  ActiveControl = bGrid1
  Anchors = []
  BiDiMode = bdRightToLeft
  Caption = #1041#1102#1076#1078#1077#1090#1085#1099#1077' '#1086#1073#1103#1079#1072#1090#1077#1083#1100#1089#1090#1074#1072
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  ParentBiDiMode = False
  Visible = True
  WindowState = wsNormal
  OnClose = Form_Close
  OnCreate = Form_Create
  DesignSize = (
    712
    370)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 8
    Top = 8
    Width = 696
    Height = 331
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    object TabSheet1: TTabSheet
      Caption = #1056#1077#1077#1089#1090#1088
      DesignSize = (
        694
        309)
      object lbObjName: xbLabel
        Left = 143
        Top = 11
        Width = 205
        Height = 19
        Anchors = [akLeft, akTop, akRight]
        Caption = 'lbObjName'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
      end
      object lblDocName: xbLabel
        Left = 511
        Top = 11
        Width = 177
        Height = 19
        Caption = 'lblDocName'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
        DataField = 'TP_NAME'
        DataSource = DSRDOCTYPE
      end
      object refFinObj: xbLabelEditRefer
        Left = 9
        Top = 8
        Width = 130
        Height = 21
        BorderColor = clWindowText
        Caption = #1054#1073#1098#1077#1082#1090' '#1091#1095#1077#1090#1072
        CaptionExtender = ceNone
        CaptionAlignment = taLeftJustify
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 1
        LabelWidth = 80
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnEnter = refFinObj_Enter
        OnExit = refFinObj_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2;Alt+Down'
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'OBJ_CODE;-1;100;1;0;'#1050#1086#1076'|OBJ_NAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldType = tfCharacterString
        ListDataSet = dsFinObj
        ReferCaption = #1057#1087#1088#1072#1074#1086#1095#1085#1080#1082' '#1086#1073#1098#1077#1082#1090#1086#1074' '#1091#1095#1077#1090#1072
        ReferHeight = 300
        ReferWidth = 300
        xReferId = 0
        IsHarbourRefer = True
        OnSelect = refFinObj_Select
        OnCancel = refFinObj_Cancel
        ReferParentWindowState = False
      end
      object cbDocType: xbLabelCombo
        Left = 321
        Top = -12
        Width = 155
        Height = 21
        ParentBackGround = True
        Caption = #1042#1080#1076' '#1076#1086#1082#1091#1084#1077#1085#1090#1072
        TabOrder = 2
        LabelWidth = 100
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Sorted = False
        Text = #1057#1042#1045' '#1057#1074#1077#1076#1077#1085#1080#1103'  '#1086' '#1087#1088#1080#1085#1103#1090#1086#1084' '#1041#1054
        EditColor = clWindow
        DisabledColor = clBlack
        DisabledFontColor = clBlack
        BorderColor = clBlack
        AutoComplete = False
        Style = csOwnerDrawFixed
        CharCase = ecNormal
        DropDownCount = 0
        ItemHeight = 0
        MaxLength = 0
        ItemIndex = -1
        Visible = False
        UseStandartHint = True
        OnSelect = cbDocType_Select
      end
      object bPanel1: xbPanel
        Left = 0
        Top = 34
        Width = 694
        Height = 275
        Anchors = [akLeft, akTop, akRight, akBottom]
        Caption = 'bPanel1'
        TabOrder = 0
        object bGrid1: xbGrid
          Left = 1
          Top = 1
          Width = 692
          Height = 211
          Align = alClient
          AutoFitColWidths = True
          DataSource = ADS
          Flat = True
          FooterColor = clWindow
          FooterFont.Charset = DEFAULT_CHARSET
          FooterFont.Color = clWindowText
          FooterFont.Height = -11
          FooterFont.Name = 'MS Sans Serif'
          FooterFont.Style = []
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgAlwaysShowSelection, dgConfirmDelete]
          OptionsEh = [dghFixed3D, dghClearSelection]
          ReadOnly = True
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          UseMultiTitle = True
          OnCellClick = bGrid1_CellClick
          OnDblClick = bGrid1_DblClick
          OnKeyDown = bGrid1_KeyDown
          OnKeyPress = bGrid1_KeyPress
          IdGrid = '{10C41C77-0EC5-4837-AE3A-6C07C83EBFF8}'
          Styles.Style1.FieldName = 'STATUS'
          Styles.Style1.Value = '0'
          Styles.Style1.TextColor = clGreen
          Styles.Style2.FieldName = 'STATUS'
          Styles.Style2.Value = '1'
          Styles.Style2.TextColor = clBlue
          Columns = <
            item
              EditButtons = <>
              FieldName = 'X_ISMARK_'
              Footers = <>
              Title.Caption = '   '
              Width = 12
            end
            item
              EditButtons = <>
              FieldName = 'DOC_CODE'
              Footers = <>
              Title.Caption = #1042#1080#1076
              Width = 24
            end
            item
              EditButtons = <>
              FieldName = 'DOP_NUM'
              Footers = <>
              Title.Caption = #1044#1086#1082#1091#1084#1077#1085#1090'|'#1053#1086#1084#1077#1088
              Width = 104
            end
            item
              EditButtons = <>
              FieldName = 'DOC_DATE'
              Footers = <>
              Title.Caption = #1044#1086#1082#1091#1084#1077#1085#1090'|'#1044#1072#1090#1072
              Width = 66
            end
            item
              EditButtons = <>
              FieldName = 'REG_NUM'
              Footers = <>
              Title.Caption = #1044#1086#1082#1091#1084#1077#1085#1090'|'#1056#1077#1075'.'#1085#1086#1084#1077#1088
              Width = 106
            end
            item
              EditButtons = <>
              FieldName = 'OPER_DATE'
              Footers = <>
              Title.Caption = #1044#1072#1090#1072' '#1086#1087#1077#1088#1072#1094#1080#1080
            end
            item
              EditButtons = <>
              FieldName = 'PART_SHORTNAME'
              Footers = <>
              Title.Caption = #1055#1072#1088#1090#1085#1077#1088
              Width = 131
            end
            item
              EditButtons = <>
              FieldName = 'CUR_P'
              Footers = <>
              Title.Caption = #1042#1072#1083'.'
              Width = 27
            end
            item
              EditButtons = <>
              FieldName = 'SUM_LBO'
              Footers = <>
              Title.Caption = #1057#1091#1084#1084#1072
              Width = 84
            end
            item
              EditButtons = <>
              FieldName = 'STATUS_NAME'
              Footers = <>
              Title.Caption = #1057#1090#1072#1090#1091#1089
              Width = 50
            end
            item
              EditButtons = <>
              FieldName = 'STATUS'
              Footers = <>
              Visible = False
              Width = 25
            end>
        end
        object bFrame: xbFrame
          Left = 1
          Top = 212
          Width = 692
          Height = 62
          Align = alBottom
          Caption = #1048#1079#1084#1077#1088#1077#1085#1080#1103
          Visible = False
          TabOrder = 1
          DesignSize = (
            692
            62)
          object lblDocDim: xbMemo
            Left = 3
            Top = 13
            Width = 686
            Height = 46
            ColorFlat = clBtnFace
            ParentColor = True
            Enabled = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            ReadOnly = True
            TabOrder = 0
            Lines.Strings = (
              'bMemDim')
            Anchors = [akLeft, akTop, akRight, akBottom]
            BorderStyle = bsNone
            Color = clWhite
            DisabledColor = clInactiveBorder
            DisabledFontColor = 7368816
          end
        end
      end
      object REFDOCTYPE: xbLabelEditRefer
        Left = 351
        Top = 8
        Width = 155
        Height = 21
        BorderColor = clWindowText
        Caption = #1042#1080#1076' '#1076#1086#1082#1091#1084#1077#1085#1090#1072
        CaptionExtender = ceNone
        CaptionAlignment = taLeftJustify
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 3
        LabelWidth = 100
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnEnter = refFinObj_Enter
        OnExit = refFinObj_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2;Alt+Down'
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'TP_CODE;-1;100;1;0;'#1050#1086#1076'|TP_NAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldType = tfCharacterString
        ListDataSet = DSDOCTYPE
        ReferCaption = #1057#1087#1088#1072#1074#1086#1095#1085#1080#1082' '#1074#1080#1076#1086#1074' '#1076#1086#1082#1091#1084#1077#1085#1090#1086#1074
        ReferHeight = 300
        ReferWidth = 300
        TypeFindFieldName = 'TP_CODE'
        xReferId = 0
        IsHarbourRefer = True
        IsMustEnter = True
        OnSelect = refFinObj_Select
        OnCancel = refFinObj_Cancel
        ReferParentWindowState = False
      end
    end
  end
  object btnEXPORT: xbButton
    Left = 463
    Top = 345
    Width = 75
    Height = 21
    Hint = #1042#1099#1093#1086#1076' '#1080#1079' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (Esc)'
    Caption = #1069#1082#1089#1087#1086#1088#1090
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 1
    OnClick = btnEXPORT_Click
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object bPDOCDIM: xbPopupButton
    Left = 381
    Top = 345
    Width = 75
    Height = 21
    Caption = #1048#1079#1084#1077#1088#1077#1085#1080#1103
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = bPopupMenu3
    RoundedButton = True
    TabOrder = 2
    OnClick = bPDOCDIM_Click
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object pMenuOperation: xbPopupButton
    Left = 545
    Top = 345
    Width = 75
    Height = 21
    Caption = #1054#1087#1077#1088#1072#1094#1080#1080
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = MenuOperation
    RoundedButton = True
    TabOrder = 3
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object bpFunction: xbPopupButton
    Left = 627
    Top = 345
    Width = 75
    Height = 21
    Caption = #1060#1091#1085#1082#1094#1080#1080
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = bpnFunction
    RoundedButton = True
    TabOrder = 4
    OnClick = bpFunction_Click
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_fin_pln'
    Active = False
    Left = 39
    Top = 107
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <
      item
        Name = 'LIST_ID'
        DataType = ftString
        Size = 22
      end
      item
        Name = 'BOOK_CODE'
        DataType = ftString
        Size = 2
      end
      item
        Name = 'CTG'
        DataType = ftFloat
      end
      item
        Name = 'BOOK_PER'
        DataType = ftDate
      end
      item
        Name = 'LIST_DATE'
        DataType = ftDate
      end
      item
        Name = 'LIST_NUM'
        DataType = ftString
        Size = 6
      end
      item
        Name = 'OP_CODE'
        DataType = ftString
        Size = 22
      end
      item
        Name = 'OPNAME'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'STATUS'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'RECALC'
        DataType = ftBoolean
      end
      item
        Name = 'LST_ACT'
        DataType = ftString
        Size = 17
      end
      item
        Name = 'USER_CODE'
        DataType = ftString
        Size = 6
      end
      item
        Name = 'STATUSNAME'
        DataType = ftString
        Size = 10
      end
      item
        Name = 'CTGNAME'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'TYPE_PER'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'Typepername'
        DataType = ftString
        Size = 25
      end>
    ReadOnly = True
    OEMTranslate = False
    Left = 81
    Top = 108
  end
  object ADS: xbADSDataSource
    DataSet = DS
    Left = 140
    Top = 135
  end
  object adsFinObj: xbADSDataSource
    DataSet = dsFinObj
    Left = 112
    Top = 177
  end
  object dsFinObj: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'PAY\FIN_OBJ.DBF'
    OEMTranslate = False
    Left = 41
    Top = 177
  end
  object DSKB: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'PAY\KB.DBF'
    OEMTranslate = False
    Left = 226
    Top = 289
  end
  object ADSKB: xbADSDataSource
    DataSet = DSKB
    Left = 299
    Top = 251
  end
  object bPopupMenu3: xbPopupMenu
    Left = 374
    Top = 213
    object pEdit: TMenuItem
      Caption = #1042#1074#1086#1076' Ctrl-D'
    end
    object pShow: TMenuItem
      Caption = #1055#1088#1086#1089#1084#1086#1090#1088' '#1074#1082#1083'/'#1074#1099#1082#1083' Ctrl-F'
    end
  end
  object DSDOCTYPE: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'PAY\DOC_TYPE.DBF'
    OEMTranslate = False
    Left = 41
    Top = 216
  end
  object DSRDOCTYPE: xbADSDataSource
    DataSet = DSDOCTYPE
    Left = 112
    Top = 215
  end
  object RFDocType: xbReferCaller
    ColumnsTune = 'TP_NAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
    ListDataSet = DSDocTypeRef
    ReferCaption = #1042#1080#1076#1099' '#1076#1086#1082#1091#1084#1077#1085#1090#1086#1074
    ReferHeight = 380
    ReferWidth = 450
    OnSelect = RFDocType_Select
    ReferParentWindowState = False
    Left = 202
    Top = 181
  end
  object DSDocTypeRef: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'PAY\DOC_TYPE.DBF'
    OEMTranslate = False
    Left = 280
    Top = 181
  end
  object MenuOperation: xbPopupMenu
    Left = 470
    Top = 250
    object miGroupPrint: TMenuItem
      Caption = #1043#1088#1091#1087#1087#1086#1074#1072#1103' '#1087#1077#1095#1072#1090#1100
      ShortCut = 16504
      OnClick = miGroupPrint_Click
    end
  end
  object bpnFunction: xbPopupMenu
    Left = 386
    Top = 145
  end
end
frmPayPlBudExp.prg                                                    9374object frmPayPlBudExp: TfrmPayPlBudExp
  Left = 25
  Top = 25
  Width = 500
  Height = 250
  Anchors = []
  BorderIcons = [biSystemMenu]
  Caption = #1056#1072#1089#1093#1086#1076#1099' '#1073#1102#1076#1078#1077#1090#1072
  Color = clBtnFace
  Constraints.MaxHeight = 250
  Constraints.MaxWidth = 500
  Constraints.MinHeight = 250
  Constraints.MinWidth = 500
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  WindowState = wsNormal
  DesignSize = (
    492
    216)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 6
    Top = 6
    Width = 480
    Height = 170
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #1054#1073#1097#1077#1077
      DesignSize = (
        478
        148)
      object cbFin: xbLabelCombo
        Left = 6
        Top = 3
        Width = 470
        Height = 21
        Anchors = [akLeft, akTop, akRight]
        ParentBackGround = True
        Caption = #1048#1089#1090#1086#1095#1085#1080#1082' '#1092#1080#1085#1072#1085#1089#1080#1088#1086#1074#1072#1085#1080#1103
        TabOrder = 0
        LabelWidth = 150
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Sorted = False
        EditColor = clWindow
        DisabledColor = clBlack
        DisabledFontColor = clBlack
        BorderColor = clBlack
        AutoComplete = False
        Style = csDropDown
        CharCase = ecNormal
        DropDownCount = 0
        ItemHeight = 0
        MaxLength = 0
        ItemIndex = -1
        UseStandartHint = True
        OnSelect = cbFin_Select
      end
      object RFAnalit: xbLabelEditAnalitRefer
        Left = 6
        Top = 27
        Width = 470
        Height = 21
        Anchors = [akLeft, akTop, akRight]
        BorderColor = clWindowText
        Caption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
        CaptionAlignment = taLeftJustify
        DataField = 'EXP_DIM'
        DataSource = DSRBUD
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 1
        LabelWidth = 150
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2;Alt+Down'
        ClearFields = 'EXP_DIM'
        EnabledEdit = False
        VisibleButton = True
        UseStandartHint = True
        FindFieldType = tfCharacterString
        ReferCaption = #1057#1087#1080#1089#1086#1082
        xReferId = 0
        IsHarbourRefer = True
        MakeChecking = True
      end
      object txtPrim: xbLabelEdit
        Left = 6
        Top = 51
        Width = 470
        Height = 21
        Anchors = [akLeft, akTop, akRight]
        BorderColor = clWindowText
        Caption = #1055#1088#1077#1076#1084#1077#1090' '#1087#1086' '#1044#1054
        CaptionAlignment = taLeftJustify
        DataField = 'PRIM'
        DataSource = DSRBUD
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 2
        LabelWidth = 150
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object txtYear: xbLabelEdit
        Left = 6
        Top = 75
        Width = 212
        Height = 21
        BorderColor = clWindowText
        Caption = #1043#1086#1076
        CaptionAlignment = taLeftJustify
        DataField = 'EX_YEAR'
        DataSource = DSRBUD
        ButtonsColor = clBlack
        EnabledColor = clWhite
        EditMask = '0000; ;'
        DisplayFormat = '0000; ;'
        TabOrder = 3
        LabelWidth = 150
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        MaxLength = 4
        Text = '    '
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object txtMn: xbLabelEdit
        Left = 219
        Top = 75
        Width = 79
        Height = 21
        BorderColor = clWindowText
        Caption = #1052#1077#1089#1103#1094
        CaptionAlignment = taLeftJustify
        DataField = 'EX_MON'
        DataSource = DSRBUD
        ButtonsColor = clBlack
        EnabledColor = clWhite
        EditMask = '00; ;'
        DisplayFormat = '00; ;'
        TabOrder = 4
        LabelWidth = 50
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        MaxLength = 2
        Text = '  '
        OnBeforeExit = txtMn_BeforeExit
        OnExit = txtMn_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object KalSum: xbLabelEditCalc
        Left = 6
        Top = 99
        Width = 293
        Height = 21
        BorderColor = clWindowText
        Caption = #1057#1091#1084#1084#1072
        CaptionAlignment = taLeftJustify
        DataField = 'SUM_LBO'
        DataSource = DSRBUD
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 5
        LabelWidth = 150
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2;Alt+Down'
        VisibleButton = False
      end
      object txtPrim1: xbLabelEdit
        Left = 6
        Top = 123
        Width = 470
        Height = 21
        Anchors = [akLeft, akTop, akRight]
        BorderColor = clWindowText
        Caption = #1055#1088#1080#1084#1077#1095#1072#1085#1080#1077
        CaptionAlignment = taLeftJustify
        DataField = 'PRIM1'
        DataSource = DSRBUD
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 6
        LabelWidth = 150
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
    end
  end
  object btnOK: xbButton
    Left = 325
    Top = 185
    Width = 75
    Height = 21
    Hint = #1057#1086#1093#1088#1072#1085#1080#1090#1100' '#1089#1090#1088#1086#1082#1091' (F10)'
    Caption = #1054#1050
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 2
    ModalResult = 1
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btnCancel: xbButton
    Left = 412
    Top = 185
    Width = 75
    Height = 21
    Hint = #1042#1099#1093#1086#1076' '#1080#1079' '#1089#1090#1088#1086#1082#1080' (Esc)'
    Caption = #1054#1090#1084#1077#1085#1072
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 3
    ModalResult = 2
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btDopRecv: xbButton
    Left = 213
    Top = 185
    Width = 100
    Height = 21
    Hint = #1044#1086#1087#1086#1083#1085#1080#1090#1077#1083#1100#1085#1099#1077' '#1088#1077#1082#1074#1080#1079#1080#1090#1099' (Alt+F5)'
    Caption = #1044#1086#1087'. '#1088#1077#1082#1074#1080#1079#1080#1090#1099
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 1
    OnClick = btDopRecv_Click
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object DSBUD: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    xbsClassName = 'BUDEXP'
    BObject = BO
    FieldDefs = <>
    OEMTranslate = False
    Left = 313
    Top = 7
  end
  object DSRBUD: xbADSDataSource
    DataSet = DSBUD
    Left = 362
    Top = 7
  end
  object BO: TBObject
    xbsClassPointer = 0
    Active = False
    Left = 214
    Top = 7
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <>
    OEMTranslate = False
    Left = 245
    Top = 7
  end
end
frmPayCasRash.prg                                                    75526object frmPayCasRash: TfrmPayCasRash
  Left = -4
  Top = -14
  Width = 750
  Height = 465
  ActiveControl = leDopNum
  Anchors = []
  Caption = #1047#1072#1103#1074#1082#1072' '#1085#1072' '#1082#1072#1089#1089#1086#1074#1099#1081' '#1088#1072#1089#1093#1086#1076
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  WindowState = wsNormal
  OnCloseQuery = Form_CloseQuery
  OnCreate = Form_Create
  OnShow = Form_Show
  DesignSize = (
    742
    431)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 8
    Top = 8
    Width = 728
    Height = 400
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    OnChange = bPageControl1_Change
    object TabSheet1: TTabSheet
      Caption = #1054#1073#1097#1077#1077
      DesignSize = (
        726
        378)
      object lbNaznPlat: xbLabel
        Left = 8
        Top = 347
        Width = 150
        Height = 17
        Caption = #1053#1072#1079#1085#1072#1095#1077#1085#1080#1077' . . . . . . . . . . . . . . . . . . . .'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
      end
      object lcbPTp: xbLabelCombo
        Left = 423
        Top = 46
        Width = 170
        Height = 21
        ParentBackGround = True
        Caption = #1042#1080#1076' '#1087#1083#1072#1090#1077#1078#1072
        TabOrder = 8
        LabelWidth = 80
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Sorted = False
        EditColor = clWindow
        DisabledColor = clInactiveBorder
        DisabledFontColor = clBlack
        BorderColor = clWindowText
        AutoComplete = False
        Style = csDropDownList
        CharCase = ecNormal
        DropDownCount = 0
        ItemHeight = 0
        MaxLength = 0
        Items.Strings = (
          ''
          #1087#1086#1095#1090#1086#1081
          #1090#1077#1083#1077#1075#1088#1072#1092#1086#1084
          #1101#1083#1077#1082#1090#1088#1086#1085#1085#1086
          #1089#1088#1086#1095#1085#1086)
        ItemIndex = -1
        UseStandartHint = True
        OnSelect = lcbPTp_Select
      end
      object lerMvTpCode: xbLabelEditRefer
        Left = 8
        Top = 46
        Width = 386
        Height = 21
        BorderColor = clWindowText
        Caption = #1042#1080#1076' '#1076#1074#1080#1078#1077#1085#1080#1103
        CaptionAlignment = taLeftJustify
        DataField = 'MV_NAME'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 7
        LabelWidth = 156
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnEnter = lerMvTpCode_Enter
        OnExit = lerMvTpCode_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'MV_CODE'
        BeforeButtonClick = lerMvTpCode_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'MV_CODE;-1;50;1;-1;'#1050#1086#1076'|MV_NAME;-1;200;1;-1;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldName = 'MV_NAME'
        FindFieldType = tfCharacterString
        ListDataSet = DSMvTp
        OutFieldsArray = 'MV_CODE;PRT_TP;DIR'
        PutFieldsArray = 'MV_CODE;PRT_TP;DIR'
        ReferCaption = #1042#1080#1076#1099' '#1076#1074#1080#1078#1077#1085#1080#1103' '#1076#1077#1085#1077#1078#1085#1099#1093' '#1089#1088#1077#1076#1089#1090#1074
        TypeFindFieldName = 'MV_NAME'
        xReferId = 0
        IsHarbourRefer = True
        OnSelect = lerMvTpCode_Select
      end
      object bFrame1: xbFrame
        Left = 8
        Top = 91
        Width = 710
        Height = 92
        TabOrder = 14
        Anchors = [akLeft, akTop, akRight]
        DesignSize = (
          710
          92)
        object lbPlatName: xbLabel
          Left = 296
          Top = 5
          Width = 405
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPlatName'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'FINOBJ_PART_SHORTNAME'
          DataSource = ADS
        end
        object lbGlavName: xbLabel
          Left = 296
          Top = 71
          Width = 405
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbGlavName'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'PART_ORGNAME'
          DataSource = ADSDocCmp
        end
        object lbPlatBankName1: xbLabel
          Left = 416
          Top = 28
          Width = 290
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPlatBankName1'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          OnClick = lbPlatBankName1_Click
          DataField = 'OWNACNT_BANK_NAME'
          DataSource = ADSDocCmp
        end
        object lbFO: xbLabel
          Left = 296
          Top = 49
          Width = 250
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbFO'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'FO_SHORTNAME'
          DataSource = ADSDocCmp
        end
        object lePlatCode: xbLabelEdit
          Left = 6
          Top = 2
          Width = 280
          Height = 21
          BorderColor = clWindowText
          Caption = #1055#1088#1077#1076#1087#1088#1080#1103#1090#1080#1077
          CaptionAlignment = taLeftJustify
          DataField = 'FINOBJ_COD_BUD_P'
          DataSource = ADS
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 0
          LabelWidth = 130
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object lerGlavCode: xbLabelEditRefer
          Left = 6
          Top = 68
          Width = 280
          Height = 21
          BorderColor = clWindowText
          Caption = #1043#1083#1072#1074#1085#1099#1081' '#1088#1072#1089#1087#1086#1088#1103#1076#1080#1090#1077#1083#1100
          CaptionAlignment = taLeftJustify
          DataField = 'PART_COD_BUD_P'
          DataSource = ADSDocCmp
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 5
          LabelWidth = 130
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          OnEnter = lerGlavCode_Enter
          OnExit = lerGlavCode_Exit
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'R_ID'
          BeforeButtonClick = lerGlavCode_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 'CODE;-1;100;1;0;'#1050#1086#1076'|SORTNAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
          FindFieldName = 'COD_BUD_P'
          FindFieldType = tfCharacterString
          OutFieldsArray = 'PART_ID'
          PutFieldsArray = 'R_ID'
          ReferCaption = #1057#1087#1080#1089#1086#1082
          ReferWidth = 450
          TypeFindFieldName = 'COD_BUD_P'
          xReferId = 0
          IsHarbourRefer = True
        end
        object lerBudLev: xbLabelEditRefer
          Left = 487
          Top = 46
          Width = 140
          Height = 21
          BorderColor = clWindowText
          Caption = #1041#1102#1076#1078#1077#1090
          CaptionAlignment = taLeftJustify
          DataField = 'BUD_LEV'
          DataSource = ADSDocCmp
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 4
          LabelWidth = 50
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          OnEnter = lerGlavCode_Enter
          OnExit = lerGlavCode_Exit
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'BUD_LEV'
          BeforeButtonClick = lerGlavCode_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 'CODE;-1;100;1;0;'#1050#1086#1076'|NAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
          FindFieldName = 'BUD_LEV'
          FindFieldType = tfCharacterString
          ListDataSet = DSBudLev
          OutFieldsArray = 'CODE'
          PutFieldsArray = 'BUD_LEV'
          ReferCaption = #1057#1087#1080#1089#1086#1082
          ReferWidth = 450
          TypeFindFieldName = 'BUD_LEV'
          xReferId = 0
          IsHarbourRefer = True
        end
        object lePlatAcnt1: xbLabelEdit
          Left = 6
          Top = 24
          Width = 280
          Height = 21
          BorderColor = clWindowText
          Caption = #1051#1080#1094#1077#1074#1086#1081' '#1089#1095#1077#1090
          CaptionAlignment = taLeftJustify
          DataField = 'OWNACNT_NUM'
          DataSource = ADSDocCmp
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 1
          LabelWidth = 130
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object lerPlatBankCode1: xbLabelEdit
          Left = 296
          Top = 24
          Width = 110
          Height = 21
          BorderColor = clWindowText
          Caption = #1074' '#1054#1060#1050'     '
          CaptionAlignment = taLeftJustify
          DataField = 'OWNACNT_COD_BUD_P'
          DataSource = ADSDocCmp
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 2
          LabelWidth = 40
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object lerFO: xbLabelEditRefer
          Left = 6
          Top = 46
          Width = 280
          Height = 21
          BorderColor = clWindowText
          Caption = #1060#1080#1085'. '#1086#1088#1075#1072#1085
          CaptionAlignment = taLeftJustify
          DataField = 'FO_COD_BUD_P'
          DataSource = ADSDocCmp
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 3
          LabelWidth = 130
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'FO_ID'
          BeforeButtonClick = lerFO_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 'CODE;-1;100;1;0;'#1050#1086#1076'|SORTNAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
          FindFieldName = 'COD_BUD_P'
          FindFieldType = tfCharacterString
          OutFieldsArray = 'PART_ID'
          PutFieldsArray = 'FO_ID'
          ReferCaption = #1057#1087#1080#1089#1086#1082
          ReferWidth = 450
          TypeFindFieldName = 'COD_BUD_P'
          xReferId = 0
          IsHarbourRefer = True
        end
      end
      object lcbStatus: xbLabelCombo
        Left = 254
        Top = 24
        Width = 140
        Height = 21
        ParentBackGround = True
        Caption = #1057#1090#1072#1090#1091#1089
        Enabled = False
        TabOrder = 5
        LabelWidth = 40
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Sorted = False
        EditColor = clWindow
        DisabledColor = clInactiveBorder
        DisabledFontColor = clBlack
        BorderColor = clWindowText
        AutoComplete = False
        Style = csDropDownList
        CharCase = ecNormal
        DropDownCount = 0
        ItemHeight = 0
        MaxLength = 0
        Items.Strings = (
          #1095#1077#1088#1085#1086#1074#1080#1082
          #1087#1077#1088#1077#1076#1072#1085
          #1086#1087#1083#1072#1095#1077#1085)
        ItemIndex = -1
        UseStandartHint = True
      end
      object leDocVid: xbLabelEdit
        Left = 8
        Top = 2
        Width = 236
        Height = 21
        BorderColor = clWindowText
        Caption = #1044#1086#1082#1091#1084#1077#1085#1090':     '#1074#1080#1076'    '
        CaptionAlignment = taLeftJustify
        DataField = 'DOC_CODE'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 0
        LabelWidth = 156
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leDocNum: xbLabelEdit
        Left = 402
        Top = 2
        Width = 60
        Height = 21
        BorderColor = clWindowText
        Caption = #1085#1086#1084#1077#1088'    '
        CaptionAlignment = taLeftJustify
        DataField = 'DOC_NUM'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 2
        LabelWidth = 0
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leDocDate: xbLabelEdit
        Left = 473
        Top = 2
        Width = 120
        Height = 21
        BorderColor = clWindowText
        Caption = #1076#1072#1090#1072'    '
        CaptionAlignment = taLeftJustify
        DataField = 'DOC_DATE'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 3
        LabelWidth = 30
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object lePayDate: xbLabelEdit
        Left = 8
        Top = 24
        Width = 236
        Height = 21
        BorderColor = clWindowText
        Caption = #1055#1088#1077#1076#1077#1083#1100#1085#1072#1103' '#1076#1072#1090#1072' '#1080#1089#1087#1086#1083#1085#1077#1085#1080#1103
        CaptionAlignment = taLeftJustify
        DataField = 'PAY_DATE'
        DataSource = ADSDocCmp
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 4
        LabelWidth = 156
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnExit = lePayDate_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leOperDate: xbLabelEdit
        Left = 423
        Top = 24
        Width = 170
        Height = 21
        BorderColor = clWindowText
        Caption = #1044#1072#1090#1072' '#1086#1087#1077#1088#1072#1094#1080#1080
        CaptionAlignment = taLeftJustify
        DataField = 'OPER_DATE'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 6
        LabelWidth = 80
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnExit = leOperDate_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leDopNum: xbLabelEdit
        Left = 254
        Top = 2
        Width = 140
        Height = 21
        BorderColor = clWindowText
        Caption = #1085#1086#1084#1077#1088'    '
        CaptionAlignment = taLeftJustify
        DataField = 'DOP_NUM'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 1
        LabelWidth = 40
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leRegNum: xbLabelEdit
        Left = 9
        Top = 68
        Width = 236
        Height = 21
        BorderColor = clWindowText
        Caption = #1056#1077#1075#1080#1089#1090#1088#1072#1094#1080#1103' '#1074' '#1054#1060#1050'     '#1085#1086#1084#1077#1088'     '
        CaptionAlignment = taLeftJustify
        DataField = 'REG_NUM'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 10
        LabelWidth = 156
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        MaxLength = 13
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leRegDate: xbLabelEdit
        Left = 254
        Top = 68
        Width = 140
        Height = 21
        BorderColor = clWindowText
        Caption = '    '#1076#1072#1090#1072'    '
        CaptionAlignment = taLeftJustify
        DataField = 'REG_DATE'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 11
        LabelWidth = 40
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnExit = leRegDate_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object bFrame3: xbFrame
        Left = 8
        Top = 185
        Width = 710
        Height = 135
        TabOrder = 15
        Anchors = [akLeft, akTop, akRight]
        DesignSize = (
          710
          135)
        object lbPolName: xbLabel
          Left = 296
          Top = 5
          Width = 410
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPolName'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'PART_SHORTNAME'
          DataSource = ADS
        end
        object lbPolBankCode1: xbLabel
          Left = 426
          Top = 27
          Width = 280
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPolBankCode1'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'PRTACNT_BANK_NAME'
          DataSource = ADSDocCmp
        end
        object lbPolBankCode2: xbLabel
          Left = 426
          Top = 49
          Width = 280
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPolBankCode2'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          OnClick = lbBankName2_Click
          DataField = 'PRTACNTCMPBNK_NAME'
          DataSource = ADSDocCmp
        end
        object lerPolCode: xbLabelEditRefer
          Left = 6
          Top = 2
          Width = 280
          Height = 21
          BorderColor = clWindowText
          Caption = #1050#1086#1085#1090#1088#1072#1075#1077#1085#1090
          CaptionAlignment = taLeftJustify
          DataField = 'PART_CODE'
          DataSource = ADS
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 0
          LabelWidth = 130
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          OnEnter = lerPolCode_Enter
          OnExit = lerPolCode_Exit
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'PRT_ID'
          BeforeButtonClick = lerPolCode_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 'CODE;-1;100;1;0;'#1050#1086#1076'|SORTNAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
          FindFieldName = 'CODE'
          FindFieldType = tfCharacterString
          ListDataSet = DSPartner
          OutFieldsArray = 'PART_ID'
          PutFieldsArray = 'PRT_ID'
          ReferCaption = #1057#1087#1080#1089#1086#1082
          ReferWidth = 450
          TypeFindFieldName = 'CODE'
          xReferId = 0
          IsHarbourRefer = True
          OnSelect = lerPolCode_Select
        end
        object lerPolAcnt1: xbLabelEditRefer
          Left = 6
          Top = 24
          Width = 280
          Height = 21
          BorderColor = clWindowText
          Caption = #1056#1072#1089#1095#1077#1090#1085#1099#1081' '#1089#1095#1077#1090
          CaptionAlignment = taLeftJustify
          DataField = 'PRTACNT_NUM'
          DataSource = ADSDocCmp
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 1
          LabelWidth = 130
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          OnExit = lerPolAcnt1_Exit
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'P_ACNT_ID'
          BeforeButtonClick = lerPolAcnt1_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 'Accnt;-1;50;1;-1;'#1057#1095#1077#1090'|GetBankName;-1;150;1;-1;'#1041#1072#1085#1082
          FindFieldName = 'ACCNT'
          FindFieldType = tfCharacterString
          ListDataSet = DSPolAcnt1
          OutFieldsArray = 'REC_ID'
          PutFieldsArray = 'P_ACNT_ID'
          ReferCaption = #1057#1095#1077#1090' '#1074' '#1073#1072#1085#1082#1077
          TypeFindFieldName = 'ACCNT'
          xReferId = 0
          IsHarbourRefer = True
          OnSelect = lerPolAcnt1_Select
        end
        object lerPolBankCode2: xbLabelEditRefer
          Left = 296
          Top = 46
          Width = 120
          Height = 21
          BorderColor = clWindowText
          Caption = #1074' '#1073#1072#1085#1082#1077
          CaptionAlignment = taLeftJustify
          DataField = 'PRTACNTCMPBNK_CODE'
          DataSource = ADSDocCmp
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 4
          LabelWidth = 42
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'P_ACNT_BNK'
          BeforeButtonClick = lerPolBankCode2_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 'Bnk_Code;-1;50;1;-1;'#1050#1086#1076'|Bnk_Name;-1;150;1;-1;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
          FindFieldName = 'BNK_CODE'
          FindFieldType = tfCharacterString
          ListDataSet = DSPolBank2
          OutFieldsArray = 'BNK_ID'
          PutFieldsArray = 'P_ACNT_BNK'
          ReferCaption = #1057#1095#1077#1090' '#1074' '#1073#1072#1085#1082#1077
          TypeFindFieldName = 'BNK_CODE'
          xReferId = 0
          IsHarbourRefer = True
        end
        object lePolBankCode1: xbLabelEdit
          Left = 296
          Top = 24
          Width = 120
          Height = 21
          BorderColor = clWindowText
          Caption = #1074' '#1073#1072#1085#1082#1077
          CaptionAlignment = taLeftJustify
          DataField = 'PRTACNT_BNK_COD_B'
          DataSource = ADSDocCmp
          ButtonsColor = clBlack
          EnabledColor = clWhite
          TabOrder = 2
          LabelWidth = 42
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object lerPolAcnt2: xbLabelEditRefer
          Left = 136
          Top = 46
          Width = 150
          Height = 21
          BorderColor = clWindowText
          Caption = #1056#1072#1089#1095#1077#1090#1085#1099#1081' '#1089#1095#1077#1090
          CaptionAlignment = taLeftJustify
          DataField = 'PRTACNTCMP_NUM'
          DataSource = ADSDocCmp
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 3
          LabelWidth = 0
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'P_ACNT_CMP'
          BeforeButtonClick = lerPolAcnt2_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 'Accnt;-1;50;1;-1;'#1057#1095#1077#1090'|GetBankName;-1;150;1;-1;'#1041#1072#1085#1082
          FindFieldName = 'ACCNT'
          FindFieldType = tfCharacterString
          ListDataSet = DSPolAcnt2
          OutFieldsArray = 'REC_ID'
          PutFieldsArray = 'P_ACNT_CMP'
          ReferCaption = #1057#1095#1077#1090' '#1074' '#1073#1072#1085#1082#1077
          TypeFindFieldName = 'ACCNT'
          xReferId = 0
          IsHarbourRefer = True
        end
        object lerDocOsnVid: xbLabelEditRefer
          Left = 6
          Top = 68
          Width = 280
          Height = 21
          BorderColor = clWindowText
          Caption = #1044#1086#1082'.-'#1086#1089#1085#1086#1074#1072#1085#1080#1077'        '#1074#1080#1076'      '
          CaptionAlignment = taLeftJustify
          DataField = 'APCARD_CNTYPE'
          DataSource = ADS
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 5
          LabelWidth = 130
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          OnEnter = lerDocOsnVid_Enter
          OnExit = lerDocOsnVid_Exit
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'ACNT_ID;ID_OBL'
          BeforeButtonClick = lerDocOsnVid_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 
            'CNCTG;-1;45;1;-1;'#1050#1072#1090'-'#1088#1080#1103'|DOC_VID;-1;30;1;-1;'#1042#1080#1076'|CNJURNO;-1;125;1' +
            ';-1;'#1053#1086#1084#1077#1088'|CNREGNO;-1;40;1;-1;'#1053#1086#1084#1077#1088'|DOC_DATE;-1;60;1;-1;'#1044#1072#1090#1072'|CUR;' +
            '-1;40;1;-1;'#1042#1072#1083#1102#1090#1072'|OST;-1;80;1;-1;'#1054#1089#1090#1072#1090#1086#1082'|CURS;-1;50;1;-1;'#1050#1091#1088#1089'|SU' +
            'MMA;-1;90;1;-1;'#1057#1091#1084#1084#1072' '#1087#1086' '#1082#1091#1088#1089#1091
          FindFieldName = 'CARD_ID'
          FindFieldType = tfCharacterString
          ListDataSet = DSApCardSpr
          OutFieldsArray = 'CARD_ID'
          PutFieldsArray = 'ACNT_ID'
          ReferCaption = #1044#1086#1082#1091#1084#1077#1085#1090#1099'-'#1086#1089#1085#1086#1074#1072#1085#1080#1103
          ReferWidth = 580
          TypeFindFieldName = 'CARD_ID'
          xReferId = 0
          IsHarbourRefer = True
          OnSelect = lerDocOsnVid_Select
        end
        object leDocOsnJurNum: xbLabelEdit
          Left = 296
          Top = 68
          Width = 175
          Height = 21
          BorderColor = clWindowText
          Caption = #1085#1086#1084#1077#1088'    '
          CaptionAlignment = taLeftJustify
          DataField = 'APCARD_CNJURNO'
          DataSource = ADS
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 6
          LabelWidth = 42
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object ledDocOsnDate: xbLabelEditCalend
          Left = 533
          Top = 68
          Width = 100
          Height = 21
          BorderColor = clWindowText
          Caption = #1076#1072#1090#1072'        '
          CaptionAlignment = taLeftJustify
          DataField = 'APCARD_CNJURD'
          DataSource = ADS
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          EditMask = '!99/99/0000;1; '
          TabOrder = 8
          LabelWidth = 30
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          MaxLength = 10
          Text = '  /  /    '
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2;Alt+Down'
          EnabledEdit = False
          VisibleButton = False
        end
        object lerBORegNum: xbLabelEditRefer
          Left = 246
          Top = 112
          Width = 170
          Height = 21
          BorderColor = clWindowText
          Caption = #1041#1054' '#1088#1077#1075'. '#1085#1086#1084#1077#1088
          CaptionAlignment = taLeftJustify
          DataField = 'BO_REG_NUM'
          DataSource = ADS
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 15
          LabelWidth = 0
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          Required = True
          OnExit = lerBORegNum_Exit
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'BO_REG_NUM'
          BeforeButtonClick = lerBORegNum_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 
            'REG_NUM;-1;100;1;-1;'#1056#1077#1075'. '#1085#1086#1084#1077#1088'|REG_DATE;-1;100;1;-1;'#1044#1072#1090#1072' '#1088#1077#1075#1080#1089#1090#1088 +
            #1072#1094#1080#1080
          FindFieldName = 'REG_NUM'
          FindFieldType = tfCharacterString
          FindFieldValue = 'BO_REG_NUM'
          ListDataSet = DSFinPlnSpr
          OutFieldsArray = 'REG_NUM'
          PutFieldsArray = 'BO_REG_NUM'
          ReferCaption = #1044#1086#1082#1091#1084#1077#1085#1090#1099'-'#1086#1089#1085#1086#1074#1072#1085#1080#1103
          ReferWidth = 550
          TypeFindFieldName = 'REG_NUM'
          xReferId = 0
          IsHarbourRefer = True
          OnSelect = lerBORegNum_Select
        end
        object leDocOsnRegNum: xbLabelEdit
          Left = 476
          Top = 68
          Width = 45
          Height = 21
          BorderColor = clWindowText
          Caption = #1085#1086#1084#1077#1088'    '
          CaptionAlignment = taLeftJustify
          DataField = 'APCARD_CNREGNO'
          DataSource = ADS
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 7
          LabelWidth = 0
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object leAcNum: xbLabelEdit
          Left = 436
          Top = 90
          Width = 122
          Height = 21
          BorderColor = clWindowText
          Caption = #1085#1086#1084#1077#1088'    '
          CaptionAlignment = taLeftJustify
          DataField = 'AC_NUM'
          DataSource = ADSDocCmp
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 11
          LabelWidth = 0
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object ledAcDate: xbLabelEditCalend
          Left = 563
          Top = 90
          Width = 70
          Height = 21
          BorderColor = clWindowText
          Caption = #1076#1072#1090#1072
          CaptionAlignment = taLeftJustify
          DataField = 'AC_DATE'
          DataSource = ADSDocCmp
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          EditMask = '!99/99/0000;1; '
          TabOrder = 12
          LabelWidth = 0
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          MaxLength = 10
          Text = '  /  /    '
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2;Alt+Down'
          EnabledEdit = False
          VisibleButton = False
        end
        object leAcTp: xbLabelEdit
          Left = 81
          Top = 90
          Width = 350
          Height = 21
          BorderColor = clWindowText
          Caption = #1087#1086#1076#1088#1086#1073#1085#1086
          CaptionExtender = ceNone
          CaptionAlignment = taLeftJustify
          DataField = 'AC_TP'
          DataSource = ADSDocCmp
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 10
          LabelWidth = 55
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object btPredmet: xbButton
          Left = 638
          Top = 90
          Width = 65
          Height = 21
          Caption = #1055#1088#1077#1076#1084#1077#1090
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ParentShowHint = False
          RoundedButton = True
          ShowHint = True
          TabOrder = 13
          OnClick = btPredmet_Click
          Anchors = [akLeft, akBottom]
          ButtonColor = clBlack
        end
        object lecOblLNum: xbLabelEditCalc
          Left = 638
          Top = 68
          Width = 44
          Height = 21
          BorderColor = clWindowText
          Caption = #1069#1090#1072#1087
          CaptionAlignment = taLeftJustify
          DataField = 'OBL_LNUM'
          DataSource = ADS
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          DisabledFontColor = clBtnText
          Enabled = False
          EditMask = '000;;'
          TabOrder = 9
          LabelWidth = 0
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          MaxLength = 3
          Text = '   '
          OnEnter = lecSumma_Enter
          OnExit = lecSumma_Exit
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'ID_OBL'
          EnabledEdit = False
          VisibleButton = False
          OnSelect = lecSumma_Select
        end
        object cbNoList: xbCheckBox
          Left = 6
          Top = 112
          Width = 220
          Height = 21
          Caption = #1041#1054' '#1088#1077#1075'. '#1085#1086#1084#1077#1088' . . . . . . . . '#1085#1077#1090' '#1074' '#1088#1077#1077#1089#1090#1088#1077
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 14
          TabStop = True
          OnClick = cbNoList_Click
          ValueChecked = '1'
          ValueUnchecked = '0'
          DataField = 'NO_LIST'
          DataSource = ADS
        end
      end
      object lerVal: xbLabelEditRefer
        Left = 8
        Top = 321
        Width = 120
        Height = 21
        BorderColor = clWindowText
        Caption = #1042#1072#1083#1102#1090#1072
        CaptionAlignment = taLeftJustify
        DataField = 'CURR'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 16
        LabelWidth = 50
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'CURR'
        EnabledEdit = False
        EnabledButton = False
        BeforeButtonClick = lerVal_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'CODE;-1;50;1;-1;'#1050#1086#1076'|NAME;-1;200;1;-1;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldName = 'CODE'
        FindFieldType = tfCharacterString
        OutFieldsArray = 'CODE'
        PutFieldsArray = 'CURR'
        ReferCaption = #1057#1087#1088#1072#1074#1086#1095#1085#1080#1082' '#1074#1072#1083#1102#1090
        TypeFindFieldName = 'CODE'
        xReferId = 0
        IsHarbourRefer = True
      end
      object lecSumma: xbLabelEditCalc
        Left = 8
        Top = 321
        Width = 286
        Height = 21
        BorderColor = clWindowText
        Caption = #1057#1091#1084#1084#1072
        CaptionAlignment = taLeftJustify
        DataField = 'SUM'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        TabOrder = 17
        LabelWidth = 136
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        OnEnter = lecSumma_Enter
        OnExit = lecSumma_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        VisibleButton = False
        OnSelect = lecSumma_Select
      end
      object cbAvans: xbCheckBox
        Left = 302
        Top = 321
        Width = 60
        Height = 21
        Caption = #1040#1074#1072#1085#1089' . . . . . . . . . .'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 18
        TabStop = True
        OnClick = bIsState_Click
        ValueChecked = '1'
        ValueUnchecked = '0'
        DataField = 'ADV'
        DataSource = ADS
      end
      object lerNalModelCode: xbLabelEditRefer
        Left = 372
        Top = 321
        Width = 267
        Height = 21
        BorderColor = clWindowText
        Caption = #1053#1072#1083#1086#1075#1086#1074#1072#1103' '#1084#1086#1076#1077#1083#1100
        CaptionAlignment = taLeftJustify
        DataField = 'TAXMOD_NAME'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 19
        LabelWidth = 100
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnEnter = lerNalModelCode_Enter
        OnExit = lerNalModelCode_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'TAX_MOD_ID'
        BeforeButtonClick = lerNalModelCode_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'MD_CODE;-1;50;1;-1;'#1050#1086#1076'|MD_NAME;-1;200;1;-1;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldName = 'MD_NAME'
        FindFieldType = tfCharacterString
        ListDataSet = DSTaxMod
        OutFieldsArray = 'MOD_ID'
        PutFieldsArray = 'TAX_MOD_ID'
        ReferCaption = #1053#1072#1083#1086#1075#1086#1074#1099#1077' '#1084#1086#1076#1077#1083#1080
        TypeFindFieldName = 'MD_NAME'
        xReferId = 0
        IsHarbourRefer = True
        OnSelect = lerNalModelCode_Select
      end
      object memNaznPlat: xbMemo
        Left = 144
        Top = 343
        Width = 476
        Height = 34
        ColorFlat = clBtnFace
        ParentColor = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        MaxLength = 210
        ParentFont = False
        TabOrder = 20
        OnKeyDown = memNaznPlat_KeyDown
        AutoDisplay = False
        BorderStyle = bsNone
        Color = clWhite
        DisabledColor = clInactiveBorder
        DisabledFontColor = 7368816
        DataField = 'COMMENT'
        DataSource = ADS
      end
      object btNaznPlat: xbButton
        Left = 622
        Top = 343
        Width = 21
        Height = 21
        Caption = '...'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        RoundedButton = True
        TabOrder = 21
        OnClick = btNaznPlat_Click
        ButtonColor = clBlack
      end
      object lerPlQue: xbLabelEditRefer
        Left = 598
        Top = 46
        Width = 120
        Height = 21
        BorderColor = clWindowText
        Caption = #1054#1095#1077#1088#1077#1076#1085#1086#1089#1090#1100
        CaptionAlignment = taLeftJustify
        DataField = 'PL_QUE'
        DataSource = ADSDocCmp
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 9
        LabelWidth = 70
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnEnter = lerGlavCode_Enter
        OnExit = lerGlavCode_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'PL_QUE'
        BeforeButtonClick = lerGlavCode_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'CODE;-1;100;1;0;'#1050#1086#1076'|NAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldName = 'PL_QUE'
        FindFieldType = tfCharacterString
        ListDataSet = DSPlQue
        OutFieldsArray = 'CODE'
        PutFieldsArray = 'PL_QUE'
        ReferCaption = #1057#1087#1080#1089#1086#1082
        ReferWidth = 450
        TypeFindFieldName = 'PL_QUE'
        xReferId = 0
        IsHarbourRefer = True
      end
      object leBnkNum: xbLabelEdit
        Left = 408
        Top = 68
        Width = 185
        Height = 21
        BorderColor = clWindowText
        Caption = #1044#1086#1082'.'#1073#1072#1085#1082#1072': '#1085#1086#1084#1077#1088'     '
        CaptionAlignment = taLeftJustify
        DataField = 'BNK_NUM'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 12
        LabelWidth = 95
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leBnkDate: xbLabelEdit
        Left = 598
        Top = 68
        Width = 120
        Height = 21
        BorderColor = clWindowText
        Caption = ' '#1076#1072#1090#1072'    '
        CaptionExtender = ceNone
        CaptionAlignment = taLeftJustify
        DataField = 'BNK_DATE'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 13
        LabelWidth = 30
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnExit = leRegDate_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
    end
    object TabSheet2: TTabSheet
      Caption = #1056#1072#1089#1096#1080#1092#1088#1086#1074#1082#1072
      DesignSize = (
        726
        378)
      object bFrame2: xbFrame
        Left = 8
        Top = 8
        Width = 710
        Height = 364
        TabOrder = 0
        Anchors = [akLeft, akTop, akRight, akBottom]
        OnClick = bFrame2_Click
        object GridBudExp: xbGrid
          Left = 0
          Top = 0
          Width = 710
          Height = 351
          Align = alTop
          Anchors = [akLeft, akTop, akRight, akBottom]
          AutoFitColWidths = True
          DataSource = ADSBudExp
          Flat = True
          FooterColor = clWindow
          FooterFont.Charset = DEFAULT_CHARSET
          FooterFont.Color = clWindowText
          FooterFont.Height = -11
          FooterFont.Name = 'MS Sans Serif'
          FooterFont.Style = []
          Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgConfirmDelete]
          ReadOnly = True
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          UseMultiTitle = True
          VertScrollBar.VisibleMode = sbAlwaysShowEh
          OnDblClick = GridBudExpFin_DblClick
          OnKeyPress = GridBudExpFin_KeyPress
          IdGrid = '{2B08D3A5-5F32-4306-8558-C3D5686CF2CD}'
          Columns = <
            item
              EditButtons = <>
              FieldName = 'FIN_TP'
              Footers = <>
              Title.Caption = #1048#1060
              Width = 33
            end
            item
              EditButtons = <>
              FieldName = 'EXP_DIM'
              Footers = <>
              Title.Caption = #1040#1085#1072#1083#1080#1090#1080#1082#1072' '#1087#1083#1072#1090#1077#1083#1100#1097#1080#1082#1072
              Width = 174
            end
            item
              EditButtons = <>
              FieldName = 'DOP_DIM'
              Footers = <>
              Title.Caption = #1040#1085#1072#1083#1080#1090#1080#1082#1072' '#1087#1086#1083#1091#1095#1072#1090#1077#1083#1103
              Width = 174
            end
            item
              Alignment = taRightJustify
              EditButtons = <>
              FieldName = 'SUM_KR'
              Footers = <>
              Title.Caption = #1057#1091#1084#1084#1072
              Width = 98
            end
            item
              EditButtons = <>
              FieldName = 'PRIM'
              Footers = <>
              Title.Caption = #1053#1072#1079#1085#1072#1095#1077#1085#1080#1077
              Width = 178
            end
            item
              Alignment = taCenter
              EditButtons = <>
              FieldName = 'VIS_STRTP'
              Footers = <>
              Title.Caption = ' '
              Width = 16
            end>
        end
        object GridItogBudExp: xbGrid
          Left = 0
          Top = 347
          Width = 710
          Height = 17
          TabStop = False
          Align = alBottom
          AutoFitColWidths = True
          ColorActiveCursor = clWindow
          ColorActiveCursorFont = clWindowText
          DataSource = ADSItogBudExp
          Enabled = False
          FixedColor = clWindow
          Flat = True
          FooterColor = clWindow
          FooterFont.Charset = DEFAULT_CHARSET
          FooterFont.Color = clWindowText
          FooterFont.Height = -11
          FooterFont.Name = 'MS Sans Serif'
          FooterFont.Style = []
          FrozenCols = 5
          HorzScrollBar.Visible = False
          Options = [dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgConfirmDelete]
          OptionsEh = [dghFixed3D, dghClearSelection]
          ReadOnly = True
          RowOddColor = clWindow
          TabOrder = 1
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          UseMultiTitle = True
          VertScrollBar.VisibleMode = sbAlwaysShowEh
          IdGrid = '{C93E721F-29AA-4B7C-820E-75C32B59F2C0}'
          Columns = <
            item
              EditButtons = <>
              FieldName = 'FIN_TP'
              Footers = <>
              Width = 33
            end
            item
              Alignment = taRightJustify
              EditButtons = <>
              FieldName = 'EXP_DIM'
              Footers = <>
              Width = 179
            end
            item
              Alignment = taRightJustify
              EditButtons = <>
              FieldName = 'DOP_DIM'
              Footers = <>
              Width = 179
            end
            item
              Alignment = taRightJustify
              EditButtons = <>
              FieldName = 'SUM_KR'
              Footers = <>
              Width = 100
            end
            item
              EditButtons = <>
              FieldName = 'PRIM'
              Footers = <>
              Width = 182
            end
            item
              AutoFitColWidth = False
              EditButtons = <>
              FieldName = 'EMPTY_COL'
              Footers = <>
              Width = 0
            end>
        end
      end
    end
    object TabSheet3: TTabSheet
      Caption = #1055#1088#1086#1074#1086#1076#1082#1080
      DesignSize = (
        726
        378)
      object txtopert: xbLabel
        Left = 261
        Top = 9
        Width = 302
        Height = 17
        Caption = 'txtopert'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
        Layout = tlCenter
        DataField = 'TYPEOP_NAME'
        DataSource = ADS
      end
      object lblDt: xbLabel
        Left = 6
        Top = 348
        Width = 714
        Height = 16
        Anchors = [akLeft, akRight, akBottom]
        Caption = '1'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
      end
      object lblKt: xbLabel
        Left = 6
        Top = 362
        Width = 714
        Height = 16
        Anchors = [akLeft, akRight, akBottom]
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
      end
      object rfOPerT: xbLabelEditRefer
        Left = 6
        Top = 6
        Width = 250
        Height = 21
        BorderColor = clWindowText
        Caption = #1058#1080#1087#1086#1074#1072#1103' '#1086#1087#1077#1088#1072#1094#1080#1103
        CaptionAlignment = taLeftJustify
        DataField = 'TYPEOP_CODE'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 0
        LabelWidth = 124
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'TYPE_OP'
        OnClearButtonClick = rfOPerT_ClearButtonClick
        VisibleButton = True
        UseStandartHint = True
        FindFieldName = 'code'
        FindFieldType = tfCharacterString
        OutFieldsArray = 'REC_ID'
        PutFieldsArray = 'TYPE_OP'
        ReferCaption = #1057#1087#1080#1089#1086#1082' '#1090#1080#1087#1086#1074#1099#1093' '#1086#1087#1077#1088#1072#1094#1080#1081
        TypeFindFieldName = 'code'
        xReferId = 0
        IsHarbourRefer = False
      end
      object bGrProv: xbGrid
        Left = 6
        Top = 31
        Width = 714
        Height = 315
        Anchors = [akLeft, akTop, akRight, akBottom]
        AutoFitColWidths = True
        DataSource = adsMain
        Flat = True
        FooterColor = clWindow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -11
        FooterFont.Name = 'MS Sans Serif'
        FooterFont.Style = []
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
        ReadOnly = True
        TabOrder = 1
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        UseMultiTitle = True
        VTitleMargin = 4
        OnDblClick = bGrid2_DblClick
        OnKeyPress = bGrid2_KeyPress
        IdGrid = '{A38D282F-9736-4FC3-B9B9-A83DF297FD74}'
        Columns = <
          item
            Checkboxes = True
            EditButtons = <>
            FieldName = 'X_ISMARK_'
            Footers = <>
            Title.Caption = ' '
            Width = 24
          end
          item
            EditButtons = <>
            FieldName = 'DT_SCHET'
            Footers = <>
            Title.Caption = #1057#1095#1077#1090'|'#1044#1077#1073#1077#1090
            Width = 89
          end
          item
            EditButtons = <>
            FieldName = 'KT_SCHET'
            Footers = <>
            Title.Caption = #1057#1095#1077#1090'|'#1050#1088#1077#1076#1080#1090
            Width = 89
          end
          item
            EditButtons = <>
            FieldName = 'NAMEOPER'
            Footers = <>
            Title.Caption = #1057#1086#1076#1077#1088#1078#1072#1085#1080#1077
            Width = 359
          end
          item
            EditButtons = <>
            FieldName = 'SUMMA'
            Footers = <>
            Title.Caption = #1057#1091#1084#1084#1072
            Width = 134
          end>
      end
    end
  end
  object btnOK: xbButton
    Left = 578
    Top = 409
    Width = 75
    Height = 21
    Hint = #1057#1086#1093#1088#1072#1085#1077#1085#1080#1077' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (F10)'
    Caption = #1054#1050
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 6
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btnCANCEL: xbButton
    Left = 661
    Top = 409
    Width = 75
    Height = 21
    Hint = #1042#1099#1093#1086#1076' '#1080#1079' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (Esc)'
    Caption = #1054#1090#1084#1077#1085#1072
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 7
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object pOperation: xbPopupButton
    Left = 495
    Top = 409
    Width = 75
    Height = 21
    Caption = #1054#1087#1077#1088#1072#1094#1080#1080
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = MenuOperation
    RoundedButton = True
    TabOrder = 5
    OnClick = pOperation_Click
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btRaschet: xbPopupButton
    Left = 223
    Top = 409
    Width = 75
    Height = 21
    Caption = #1056#1072#1089#1095#1077#1090#1099
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = MenuRaschet
    RoundedButton = True
    TabOrder = 2
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object pbDopData: xbPopupButton
    Left = 387
    Top = 409
    Width = 100
    Height = 21
    Caption = #1044#1086#1087'. '#1076#1072#1085#1085#1099#1077
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = MenuDopData
    RoundedButton = True
    TabOrder = 4
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btNalogi: xbButton
    Left = 306
    Top = 409
    Width = 75
    Height = 21
    Hint = ' '#1053#1072#1076#1073#1072#1074#1082#1080' (Ctrl+N)'
    Caption = #1053#1072#1083#1086#1075#1080
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 3
    OnClick = btNalogi_Click
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object bDocDim: xbButton
    Left = 136
    Top = 409
    Width = 75
    Height = 21
    Hint = #1042#1074#1086#1076' Ctrl-D'
    Caption = #1048#1079#1084#1077#1088#1077#1085#1080#1103
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 1
    OnClick = bPlDoc_Click
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <>
    OEMTranslate = False
    Left = 109
    Top = 3
  end
  object ADS: xbADSDataSource
    DataSet = DS
    Left = 145
    Top = 3
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_FIN_DOC'
    Active = False
    Left = 72
    Top = 3
  end
  object BODocCmp: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_DOC_CMP'
    Active = False
    Left = 165
    Top = 130
  end
  object DSDocCmp: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BODocCmp
    FieldDefs = <>
    OEMTranslate = False
    Left = 167
    Top = 165
  end
  object ADSDocCmp: xbADSDataSource
    DataSet = DSDocCmp
    Left = 607
    Top = 194
  end
  object BOMvTp: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_MOVE_TP'
    Active = False
    Left = 262
    Top = 94
  end
  object DSMvTp: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOMvTp
    FieldDefs = <>
    OEMTranslate = False
    Left = 315
    Top = 96
  end
  object BOReasons: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_REASONS'
    Active = False
    Left = 38
    Top = 130
  end
  object DSReasons: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOReasons
    FieldDefs = <>
    OEMTranslate = False
    Left = 97
    Top = 130
  end
  object BOBudExp: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_BUD_EXP'
    Active = False
    Left = 271
    Top = 201
  end
  object DSBudExp: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOBudExp
    FieldDefs = <>
    ReadOnly = True
    OEMTranslate = False
    Left = 351
    Top = 195
  end
  object ADSBudExp: xbADSDataSource
    DataSet = DSBudExp
    Left = 438
    Top = 194
  end
  object DSItogBudExp: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    ReadOnly = True
    OEMTranslate = False
    Left = 353
    Top = 244
  end
  object ADSItogBudExp: xbADSDataSource
    DataSet = DSItogBudExp
    Left = 443
    Top = 243
  end
  object BOBudLev: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_BUD_LEV'
    Active = False
    Left = 265
    Top = 48
  end
  object DSBudLev: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOBudLev
    FieldDefs = <>
    OEMTranslate = False
    Left = 318
    Top = 48
  end
  object MenuOperation: xbPopupMenu
    Left = 610
    Top = 245
    object pStatus: TMenuItem
      Caption = #1057#1090#1072#1090#1091#1089'                                             Alt-S'
      object pStatus1: TMenuItem
        Caption = #1063#1077#1088#1085#1086#1074#1080#1082
      end
      object pStatus2: TMenuItem
        Caption = #1055#1077#1088#1077#1076#1072#1085
      end
      object pStatus3: TMenuItem
        Caption = #1054#1087#1083#1072#1095#1077#1085
      end
    end
    object miCopyProv: TMenuItem
      Caption = #1050#1086#1087#1080#1088#1086#1074#1072#1090#1100' '#1087#1088#1086#1074#1086#1076#1082#1091'                       F5'
      OnClick = miCopyProv_Click
    end
    object miCopyBudExp: TMenuItem
      Caption = #1050#1086#1087#1080#1088#1086#1074#1072#1090#1100' '#1089#1090#1088#1086#1082#1091' '#1088#1072#1089#1096#1080#1092#1088#1086#1074#1082#1080'   F5'
      OnClick = miCopyBudExp_Click
    end
    object miNaznPlat: TMenuItem
      Caption = #1055#1077#1088#1077#1092#1086#1088#1084#1080#1088#1086#1074#1072#1090#1100' '#1085#1072#1079#1085#1072#1095#1077#1085#1080#1077'  Ctrl+P'
      OnClick = miNaznPlat_Click
    end
  end
  object adsMain: xbADSDataSource
    DataSet = DSMAIN
    Left = 544
    Top = 198
  end
  object DSMAIN: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    xbsClassName = 'MAIN'
    BObject = BO
    FieldDefs = <
      item
        Name = 'NNOPER'
        DataType = ftFloat
      end
      item
        Name = 'TASK'
        DataType = ftString
        Size = 2
      end
      item
        Name = 'TaskName'
        DataType = ftString
        Size = 40
      end
      item
        Name = 'JrnName'
        DataType = ftString
        Size = 40
      end
      item
        Name = 'JrnCode'
        DataType = ftString
        Size = 4
      end
      item
        Name = 'DATAOPER'
        DataType = ftDate
      end
      item
        Name = 'NNDOC'
        DataType = ftString
        Size = 6
      end
      item
        Name = 'DT_SCHET'
        DataType = ftString
        Size = 16
      end
      item
        Name = 'DTName'
        DataType = ftString
        Size = 80
      end
      item
        Name = 'DT_CODE'
        DataType = ftString
        Size = 60
      end
      item
        Name = 'KT_SCHET'
        DataType = ftString
        Size = 16
      end
      item
        Name = 'KTName'
        DataType = ftString
        Size = 80
      end
      item
        Name = 'KT_CODE'
        DataType = ftString
        Size = 60
      end
      item
        Name = 'SUMMA'
        DataType = ftFloat
      end
      item
        Name = 'NAMEOPER'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'VALUTA'
        DataType = ftString
        Size = 3
      end
      item
        Name = 'VSUMMA'
        DataType = ftFloat
      end
      item
        Name = 'VCURS'
        DataType = ftFloat
      end
      item
        Name = 'SCLAD'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'STATUS'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'USER_DATE'
        DataType = ftDate
      end
      item
        Name = 'Z_STATUS'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'NNOPER_D'
        DataType = ftFloat
      end
      item
        Name = 'NNOPER_K'
        DataType = ftFloat
      end
      item
        Name = 'N_STATUS'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'CRYPT_CODE'
        DataType = ftString
        Size = 11
      end
      item
        Name = 'IDMAIN'
        DataType = ftFloat
      end
      item
        Name = 'JRN_ID'
        DataType = ftFloat
      end
      item
        Name = 'DOC_ID'
        DataType = ftFloat
      end
      item
        Name = 'VAL_ID'
        DataType = ftFloat
      end
      item
        Name = 'PSCHET'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'ENTRY_CTG'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'GL_DIM1'
        DataType = ftFloat
      end
      item
        Name = 'GL_DIM2'
        DataType = ftFloat
      end
      item
        Name = 'mainValuta'
        DataType = ftString
        Size = 3
      end
      item
        Name = 'PriznakZab'
        DataType = ftBoolean
      end>
    ReadOnly = True
    OEMTranslate = False
    Left = 548
    Top = 244
  end
  object BOPolAcnt2: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPartnerAccnt'
    Active = False
    Left = 485
    Top = 289
  end
  object DSPolAcnt2: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOPolAcnt2
    FieldDefs = <>
    OEMTranslate = False
    AfterRefresh = DS_AfterRefresh
    Left = 350
    Top = 137
  end
  object DSPolBank2: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOPolBank2
    FieldDefs = <>
    OEMTranslate = False
    Left = 412
    Top = 137
  end
  object BOPolBank2: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPartnerBank'
    Active = False
    Left = 549
    Top = 290
  end
  object DSPolAcnt1: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOPolAcnt1
    FieldDefs = <>
    OEMTranslate = False
    Left = 104
    Top = 166
  end
  object BOPolAcnt1: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPartnerAccnt'
    Active = False
    Left = 615
    Top = 290
  end
  object DSApCardSpr: TBestDataset
    Tag = 8
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'PAY\FIN_DOC.DBF'
    OEMTranslate = False
    Left = 249
    Top = 270
  end
  object DSFinPlnSpr: TBestDataset
    Tag = 8
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'PAY\FIN_DOC.DBF'
    OEMTranslate = False
    Left = 342
    Top = 294
  end
  object BOPartner: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPartner'
    Active = False
    Left = 265
  end
  object DSPartner: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOPartner
    FieldDefs = <>
    OEMTranslate = False
    Left = 324
    Top = 3
  end
  object MenuRaschet: xbPopupMenu
    Left = 472
    Top = 346
    object miDocOsn: TMenuItem
      Caption = #1044#1086#1082#1091#1084#1077#1085#1090'-'#1086#1089#1085#1086#1074#1072#1085#1080#1077
      OnClick = miDocOsn_Click
    end
    object miBalans: TMenuItem
      Caption = #1041#1072#1083#1072#1085#1089
      OnClick = miBalans_Click
    end
  end
  object MenuDopData: xbPopupMenu
    Left = 554
    Top = 346
    object MenuDopData1: TMenuItem
      Caption = #1053#1072#1083#1086#1075#1086#1074#1099#1077' '#1082#1086#1076#1099
      ShortCut = 16450
      OnClick = MenuDopData1_Click
    end
    object miPodpis: TMenuItem
      Caption = #1055#1086#1076#1087#1080#1089#1080
      OnClick = miPodpis_Click
    end
    object miOplZA: TMenuItem
      Caption = #1054#1087#1083#1072#1090#1072' '#1079#1072
      OnClick = miOplZA_Click
    end
  end
  object BOTaxMod: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsTAX_MOD'
    Active = False
    Left = 85
    Top = 280
  end
  object DSTaxMod: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOTaxMod
    FieldDefs = <>
    OEMTranslate = False
    OnUpdateRecord = DSTaxMod_UpdateRecord
    Left = 85
    Top = 230
  end
  object DSApCardObl: TBestDataset
    Tag = 8
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'PAY\FIN_DOC.DBF'
    OEMTranslate = False
    Left = 164
    Top = 269
  end
  object RFApCardObl: xbReferCaller
    ColumnsTune = 
      'LNUM;-1;50;1;0;'#1053#1086#1084#1077#1088' '#1101#1090#1072#1087#1072'|NAME;-1;170;1;0;'#1057#1086#1076#1077#1088#1078#1072#1085#1080#1077'|DATE_END;-' +
      '1;70;1;0;'#1044#1072#1090#1072'|OST;-1;90;1;0;'#1057#1091#1084#1084#1072
    ListDataSet = DSApCardObl
    ReferCaption = #1069#1090#1072#1087#1099' '#1076#1086#1075#1086#1074#1086#1088#1072
    ReferWidth = 450
    OnSelect = RFApCardObl_Select
    OnCancel = RFApCardObl_Cancel
    Left = 162
    Top = 217
  end
  object StatusMenu: xbPopupMenu
    Left = 197
    Top = 34
    object MenuStatus1: TMenuItem
      Caption = #1063#1077#1088#1085#1086#1074#1080#1082
    end
    object MenuStatus2: TMenuItem
      Caption = #1055#1077#1088#1077#1076#1072#1085
    end
    object MenuStatus3: TMenuItem
      Caption = #1054#1087#1083#1072#1095#1077#1085
    end
  end
  object RFNaznPlat: xbReferCaller
    ColumnsTune = 'TEXT;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
    ListDataSet = DSReasons
    ReferCaption = #1054#1089#1085#1086#1074#1072#1085#1080#1103' '#1087#1083#1072#1090#1077#1078#1072
    ReferWidth = 450
    OnSelect = RFNaznPlat_Select
    Left = 400
    Top = 345
  end
  object BOPlQue: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_PL_QUE'
    Active = False
    Left = 540
    Top = 118
  end
  object DSPlQue: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOPlQue
    FieldDefs = <>
    OEMTranslate = False
    Left = 593
    Top = 118
  end
  object DSFinPlnNoList: TBestDataset
    Tag = 8
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'PAY\FIN_DOC.DBF'
    OEMTranslate = False
    Left = 413
    Top = 295
  end
end
frmPayCRBudExp.prg                                                   22831object frmPayCRBudExp: TfrmPayCRBudExp
  Left = 25
  Top = 25
  Width = 500
  Height = 296
  ActiveControl = lerFinTp
  Anchors = []
  Caption = #1056#1072#1089#1096#1080#1092#1088#1086#1074#1082#1072
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  WindowState = wsNormal
  OnActivate = Form_Activate
  OnClose = Form_Close
  OnCloseQuery = Form_CloseQuery
  OnCreate = Form_Create
  OnShow = Form_Show
  DesignSize = (
    492
    262)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 8
    Top = 8
    Width = 476
    Height = 218
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    object TabSheet1: TTabSheet
      Caption = #1054#1073#1097#1077#1077
      DesignSize = (
        474
        196)
      object lbDetal: xbLabel
        Left = 8
        Top = 36
        Width = 100
        Height = 17
        Caption = #1055#1083#1072#1090#1077#1083#1100#1097#1080#1082':'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
      end
      object lbPol: xbLabel
        Left = 8
        Top = 80
        Width = 100
        Height = 17
        Caption = #1055#1086#1083#1091#1095#1072#1090#1077#1083#1100':'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
      end
      object lbFinTp: xbLabel
        Left = 196
        Top = 11
        Width = 270
        Height = 17
        Anchors = [akLeft, akTop, akRight]
        Caption = 'lbBudLev'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
      end
      object larExpAnalRas: xbLabelEditAnalitRefer
        Left = 197
        Top = 52
        Width = 100
        Height = 21
        BorderColor = clWindowText
        Caption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
        CaptionAlignment = taLeftJustify
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 3
        LabelWidth = 0
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'EXP_DIM'
        EnabledEdit = False
        VisibleButton = True
        UseStandartHint = True
        FindFieldType = tfCharacterString
        ReferCaption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
        TableName = 'PAY\DIM_TUNE'
        xReferId = 0
        IsHarbourRefer = True
        MakeChecking = True
      end
      object lecSum: xbLabelEditCalc
        Left = 8
        Top = 120
        Width = 180
        Height = 21
        BorderColor = clWindowText
        Caption = #1057#1091#1084#1084#1072
        CaptionAlignment = taLeftJustify
        DataField = 'SUM_KR'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 11
        LabelWidth = 90
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        VisibleButton = False
      end
      object leBOYear: xbLabelEdit
        Left = 398
        Top = 120
        Width = 70
        Height = 21
        BorderColor = clWindowText
        Caption = #1043#1086#1076
        CaptionAlignment = taLeftJustify
        DataField = 'EX_YEAR'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        Enabled = False
        EditMask = '0000'
        DisplayFormat = '0000'
        TabOrder = 13
        LabelWidth = 0
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        MaxLength = 4
        Text = '    '
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object btBO: xbButton
        Left = 318
        Top = 28
        Width = 150
        Height = 21
        Caption = #1041#1102#1076#1078#1077#1090#1085#1086#1077' '#1086#1073#1103#1079#1072#1090#1077#1083#1100#1089#1090#1074#1086
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        RoundedButton = True
        ShowHint = True
        TabOrder = 1
        OnClick = btBO_Click
        ButtonColor = clBlack
      end
      object larDopAnalRas: xbLabelEditAnalitRefer
        Left = 197
        Top = 96
        Width = 100
        Height = 21
        BorderColor = clWindowText
        Caption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
        CaptionAlignment = taLeftJustify
        DataField = 'DOP_DIM'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 8
        LabelWidth = 0
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'DOP_DIM'
        EnabledEdit = False
        VisibleButton = True
        UseStandartHint = True
        FindFieldType = tfCharacterString
        ReferCaption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
        TableName = 'PAY\DIM_TUNE'
        xReferId = 0
        IsHarbourRefer = True
        MakeChecking = True
      end
      object lerFinTp: xbLabelEditRefer
        Left = 8
        Top = 8
        Width = 180
        Height = 21
        BorderColor = clWindowText
        Caption = #1048#1089#1090#1086#1095#1085#1080#1082' '#1092#1080#1085'-'#1103
        CaptionAlignment = taLeftJustify
        DataField = 'FIN_TP'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 0
        LabelWidth = 90
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Required = True
        OnExit = lerFinTp_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'FIN_TP'
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'FIN_TP;-1;100;1;0;'#1050#1086#1076'|FIN_NAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldName = 'FIN_TP'
        FindFieldType = tfCharacterString
        ListDataSet = DSFinTp
        OutFieldsArray = 'FIN_TP'
        PutFieldsArray = 'FIN_TP'
        ReferCaption = #1057#1087#1080#1089#1086#1082
        ReferWidth = 450
        TypeFindFieldName = 'FIN_TP'
        xReferId = 0
        IsHarbourRefer = True
        IsMustEnter = True
        OnSelect = lerFinTp_Select
      end
      object lerDopDimTp: xbLabelEditRefer
        Left = 8
        Top = 96
        Width = 180
        Height = 21
        BorderColor = clWindowText
        Caption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
        CaptionAlignment = taLeftJustify
        DataField = 'DOP_DIM_TP'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 7
        LabelWidth = 90
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Required = True
        OnExit = lerDopDimTp_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'DOP_DIM_TP'
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'CODE;-1;100;1;0;'#1050#1086#1076'|NAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldName = 'DOP_DIM_TP'
        FindFieldType = tfCharacterString
        ListDataSet = DSDopDimTp
        OutFieldsArray = 'CODE'
        PutFieldsArray = 'DOP_DIM_TP'
        ReferCaption = #1057#1087#1080#1089#1086#1082
        ReferWidth = 450
        TypeFindFieldName = 'DOP_DIM_TP'
        xReferId = 0
        IsHarbourRefer = True
        OnSelect = lerDopDimTp_Select
      end
      object leBOMonth: xbLabelEdit
        Left = 318
        Top = 120
        Width = 68
        Height = 21
        BorderColor = clWindowText
        Caption = #1041#1054
        CaptionAlignment = taLeftJustify
        DataField = 'EX_MON'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        Enabled = False
        EditMask = '00'
        DisplayFormat = '00'
        TabOrder = 12
        LabelWidth = 30
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        MaxLength = 2
        Text = '  '
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object larDopAnalDoh: xbLabelEditAnalitRefer
        Left = 300
        Top = 96
        Width = 100
        Height = 21
        BorderColor = clWindowText
        Caption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
        CaptionAlignment = taLeftJustify
        DataField = 'DOP_DIM'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 9
        LabelWidth = 0
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'DOP_DIM'
        EnabledEdit = False
        VisibleButton = True
        UseStandartHint = True
        FindFieldType = tfCharacterString
        ReferCaption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
        TableName = 'PAY\DIM_TUNE'
        xReferId = 0
        IsHarbourRefer = True
        MakeChecking = True
      end
      object larDopAnalDif: xbLabelEditAnalitRefer
        Left = 404
        Top = 96
        Width = 60
        Height = 21
        BorderColor = clWindowText
        Caption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
        CaptionAlignment = taLeftJustify
        DataField = 'DOP_DIM'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 10
        LabelWidth = 0
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'DOP_DIM'
        EnabledEdit = False
        VisibleButton = True
        UseStandartHint = True
        FindFieldType = tfCharacterString
        ReferCaption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
        TableName = 'PAY\DIM_TUNE'
        xReferId = 0
        IsHarbourRefer = True
        MakeChecking = True
      end
      object lerPrim: xbLabelEditRefer
        Left = 8
        Top = 144
        Width = 460
        Height = 21
        BorderColor = clWindowText
        Caption = #1053#1072#1079#1085#1072#1095#1077#1085#1080#1077
        CaptionAlignment = taLeftJustify
        DataField = 'PRIM'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 14
        LabelWidth = 90
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnExit = lerPrim_Exit
        OnKeyDown = lerPrim_KeyDown
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'PRIM'
        BeforeButtonClick = lerPrim_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'TEXT;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldType = tfCharacterString
        OutFieldsArray = 'TEXT'
        PutFieldsArray = 'PRIM'
        ReferCaption = #1054#1089#1085#1086#1074#1072#1085#1080#1103' '#1087#1083#1072#1090#1077#1078#1072
        ReferWidth = 450
        xReferId = 0
        IsHarbourRefer = True
      end
      object lePrim1: xbLabelEdit
        Left = 8
        Top = 168
        Width = 460
        Height = 21
        BorderColor = clWindowText
        Caption = #1055#1088#1080#1084#1077#1095#1072#1085#1080#1077
        CaptionAlignment = taLeftJustify
        DataField = 'PRIM1'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 15
        LabelWidth = 90
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object lerExpDimTp: xbLabelEditRefer
        Left = 8
        Top = 52
        Width = 180
        Height = 21
        BorderColor = clWindowText
        Caption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
        CaptionAlignment = taLeftJustify
        DataField = 'EXP_DIM_TP'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 2
        LabelWidth = 90
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Required = True
        OnEnter = lerExpDimTp_Enter
        OnExit = lerExpDimTp_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'EXP_DIM_TP'
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'CODE;-1;100;1;0;'#1050#1086#1076'|NAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldName = 'CODE'
        FindFieldType = tfCharacterString
        ListDataSet = DSExpDimTp
        OutFieldsArray = 'CODE'
        PutFieldsArray = 'EXP_DIM_TP'
        ReferCaption = #1057#1087#1080#1089#1086#1082
        ReferWidth = 450
        TypeFindFieldName = 'CODE'
        xReferId = 0
        IsHarbourRefer = True
        OnSelect = lerExpDimTp_Select
      end
      object larExpAnalDoh: xbLabelEditAnalitRefer
        Left = 300
        Top = 52
        Width = 100
        Height = 21
        BorderColor = clWindowText
        Caption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
        CaptionAlignment = taLeftJustify
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 4
        LabelWidth = 0
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'EXP_DIM'
        EnabledEdit = False
        VisibleButton = True
        UseStandartHint = True
        FindFieldType = tfCharacterString
        ReferCaption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
        TableName = 'PAY\DIM_TUNE'
        xReferId = 0
        IsHarbourRefer = True
        MakeChecking = True
      end
      object larExpAnalDif: xbLabelEditAnalitRefer
        Left = 404
        Top = 52
        Width = 60
        Height = 21
        BorderColor = clWindowText
        Caption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
        CaptionAlignment = taLeftJustify
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 5
        LabelWidth = 0
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'EXP_DIM'
        EnabledEdit = False
        VisibleButton = True
        UseStandartHint = True
        FindFieldType = tfCharacterString
        ReferCaption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
        TableName = 'PAY\DIM_TUNE'
        xReferId = 0
        IsHarbourRefer = True
        MakeChecking = True
      end
      object leExpAnalEmp: xbLabelEdit
        Left = 197
        Top = 74
        Width = 270
        Height = 21
        BorderColor = clWindowText
        Caption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
        CaptionAlignment = taLeftJustify
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 6
        LabelWidth = 0
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
    end
  end
  object btnOK: xbButton
    Left = 325
    Top = 234
    Width = 75
    Height = 21
    Hint = #1057#1086#1093#1088#1072#1085#1077#1085#1080#1077' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (F10)'
    Caption = #1054#1050
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 2
    ModalResult = 1
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btnCANCEL: xbButton
    Left = 412
    Top = 234
    Width = 75
    Height = 21
    Hint = #1042#1099#1093#1086#1076' '#1080#1079' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (Esc)'
    Caption = #1054#1090#1084#1077#1085#1072
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 3
    ModalResult = 2
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btDopRecv: xbButton
    Left = 213
    Top = 234
    Width = 100
    Height = 21
    Hint = #1044#1086#1087#1086#1083#1085#1080#1090#1077#1083#1100#1085#1099#1077' '#1088#1077#1082#1074#1080#1079#1080#1090#1099' (Alt+F5)'
    Caption = #1044#1086#1087'. '#1088#1077#1082#1074#1080#1079#1080#1090#1099
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 1
    OnClick = btDopRecv_Click
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_BUD_EXP'
    Active = False
    Left = 261
    Top = 65533
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <>
    OEMTranslate = False
    AfterEdit = DS_AfterEdit
    Left = 336
    Top = 65533
  end
  object ADS: xbADSDataSource
    DataSet = DS
    Left = 299
    Top = 65534
  end
  object DSDIMTUNE: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'PAY\dim_tune'
    OEMTranslate = False
    IndexName = 'TAG_CODE'
    Left = 203
    Top = 65534
  end
  object RFBO: xbReferCaller
    ColumnsTune = 
      'FIN_TP;-1;50;1;0;'#1048#1060'|EXP_DIM;-1;200;1;0;'#1040#1085#1072#1083#1080#1090#1080#1082#1072'|PRIM;-1;200;1;0' +
      ';'#1055#1088#1077#1076#1084#1077#1090' '#1087#1086' '#1044#1054'|EX_MON;-1;50;1;0;'#1052#1077#1089#1103#1094'|SUM_LBO;-1;100;1;0;'#1057#1091#1084#1084#1072' '#1041 +
      #1054'|OST;-1;100;1;0;'#1054#1089#1090#1072#1090#1086#1082
    ListDataSet = DSBORef
    ReferCaption = #1042#1080#1076#1099' '#1076#1074#1080#1078#1077#1085#1080#1103
    ReferWidth = 550
    OnSelect = RFBO_Select
    Left = 57
    Top = 139
  end
  object DSBORef: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'PAY\MOVE_TP.DBF'
    OEMTranslate = False
    Left = 135
    Top = 139
  end
  object DSFinTp: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'PAY\FIN_TP.DBF'
    OEMTranslate = False
    IndexName = 'TAG_TP'
    Left = 385
    Top = 1
  end
  object DSDopDimTp: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'PAY\DopAn_TP.DBF'
    OEMTranslate = False
    IndexName = 'TAG_CODE'
    Left = 441
    Top = 1
  end
  object DSExpDimTp: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'PAY\DopAn_TP.DBF'
    OEMTranslate = False
    IndexName = 'TAG_CODE'
    Left = 122
    Top = 2
  end
end
frmPaySmetaRee.prg                                                   13675object frmPaySmetaRee: TfrmPaySmetaRee
  Left = 25
  Top = 25
  Width = 650
  Height = 404
  ActiveControl = bGrid1
  Anchors = []
  BiDiMode = bdRightToLeft
  Caption = #1042#1099#1087#1080#1089#1082#1080' '#1073#1072#1085#1082#1072
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  ParentBiDiMode = False
  Visible = True
  WindowState = wsNormal
  OnClose = Form_Close
  OnCreate = Form_Create
  OnKeyDown = Form_KeyDown
  OnKeyPress = Form_KeyPress
  DesignSize = (
    642
    370)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 8
    Top = 8
    Width = 626
    Height = 335
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    object TabSheet1: TTabSheet
      Caption = #1056#1077#1077#1089#1090#1088
      DesignSize = (
        624
        313)
      object lbObjName: xbLabel
        Left = 144
        Top = 12
        Width = 200
        Height = 17
        Anchors = [akLeft, akTop, akRight]
        Caption = 'lbObjName'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
      end
      object refFinObj: xbLabelEditRefer
        Left = 8
        Top = 8
        Width = 130
        Height = 20
        BorderColor = clWindowText
        Caption = #1054#1073#1098#1077#1082#1090' '#1091#1095#1077#1090#1072
        CaptionExtender = ceNone
        CaptionAlignment = taLeftJustify
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 0
        LabelWidth = 80
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnEnter = refFinObj_Enter
        OnExit = refFinObj_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2;Alt+Down'
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'OBJ_CODE;-1;100;1;0;'#1050#1086#1076'|OBJ_NAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldType = tfCharacterString
        ListDataSet = dsFinObj
        ReferCaption = #1057#1087#1088#1072#1074#1086#1095#1085#1080#1082' '#1086#1073#1098#1077#1082#1090#1086#1074' '#1091#1095#1077#1090#1072
        ReferHeight = 300
        ReferWidth = 300
        xReferId = 0
        IsHarbourRefer = True
        OnSelect = refFinObj_Select
        OnCancel = refFinObj_Cancel
        ReferParentWindowState = False
      end
      object bPanel1: xbPanel
        Left = 5
        Top = 34
        Width = 614
        Height = 277
        Anchors = [akLeft, akTop, akRight, akBottom]
        TabOrder = 1
        object bFrame: xbFrame
          Left = 1
          Top = 214
          Width = 612
          Height = 62
          Align = alBottom
          Caption = #1048#1079#1084#1077#1088#1077#1085#1080#1103
          Visible = False
          TabOrder = 0
          DesignSize = (
            612
            62)
          object lblDocDim: xbMemo
            Left = 3
            Top = 13
            Width = 607
            Height = 46
            ColorFlat = clBtnFace
            ParentColor = True
            Enabled = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            ReadOnly = True
            TabOrder = 0
            Lines.Strings = (
              'bMemDim')
            Anchors = [akLeft, akTop, akRight, akBottom]
            BorderStyle = bsNone
            Color = clWhite
            DisabledColor = clInactiveBorder
            DisabledFontColor = 7368816
          end
        end
        object bGrid1: xbGrid
          Left = 1
          Top = 1
          Width = 612
          Height = 213
          Align = alClient
          AutoFitColWidths = True
          DataSource = ADS
          Flat = True
          FooterColor = clWindow
          FooterFont.Charset = DEFAULT_CHARSET
          FooterFont.Color = clWindowText
          FooterFont.Height = -11
          FooterFont.Name = 'MS Sans Serif'
          FooterFont.Style = []
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgAlwaysShowSelection, dgConfirmDelete]
          OptionsEh = [dghFixed3D, dghClearSelection]
          ReadOnly = True
          TabOrder = 1
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          UseMultiTitle = True
          OnDblClick = bGrid1_DblClick
          OnKeyPress = bGrid1_KeyPress
          IdGrid = '{2F95AF0D-642C-4C49-86A9-BDD0561F2B02}'
          Styles.Style1.FieldName = 'STATUS'
          Styles.Style1.Value = '0'
          Styles.Style1.TextColor = clGreen
          Styles.Style2.FieldName = 'STATUS'
          Styles.Style2.Value = '1'
          Styles.Style2.TextColor = clBlue
          Columns = <
            item
              EditButtons = <>
              FieldName = 'X_ISMARK_'
              Footers = <>
              Title.Caption = ' '
              Width = 17
            end
            item
              EditButtons = <>
              FieldName = 'DOC_CODE'
              Footers = <>
              Title.Caption = #1044#1086#1082#1091#1084#1077#1085#1090'|'#1074#1080#1076
              Width = 26
            end
            item
              EditButtons = <>
              FieldName = 'DOP_NUM'
              Footers = <>
              Title.Caption = #1044#1086#1082#1091#1084#1077#1085#1090'|'#1085#1086#1084#1077#1088
              Width = 90
            end
            item
              EditButtons = <>
              FieldName = 'DOC_DATE'
              Footers = <>
              Title.Caption = #1044#1086#1082#1091#1084#1077#1085#1090'|'#1076#1072#1090#1072
              Width = 60
            end
            item
              EditButtons = <>
              FieldName = 'OPER_DATE'
              Footers = <>
              Title.Caption = #1044#1072#1090#1072' '#1086#1087#1077#1088#1072#1094#1080#1080
              Width = 60
            end
            item
              EditButtons = <>
              FieldName = 'PART_SHORTNAME'
              Footers = <>
              Title.Caption = #1043#1083#1072#1074#1085#1099#1081' '#1088#1072#1089#1087#1086#1088#1103#1076#1080#1090#1077#1083#1100
              Width = 141
            end
            item
              EditButtons = <>
              FieldName = 'CUR_P'
              Footers = <>
              Title.Caption = #1042#1072#1083'.'
              Width = 26
            end
            item
              EditButtons = <>
              FieldName = 'SUM_LBO'
              Footers = <>
              Title.Caption = #1044#1086#1093#1086#1076#1099
              Width = 85
            end
            item
              EditButtons = <>
              FieldName = 'SUM_LBO1'
              Footers = <>
              Title.Caption = #1056#1072#1089#1093#1086#1076#1099
              Width = 84
            end
            item
              EditButtons = <>
              FieldName = 'STATUS'
              Footers = <>
              Title.Caption = ' '
              Visible = False
              Width = 25
            end>
        end
      end
    end
  end
  object btnEXPORT: xbButton
    Left = 383
    Top = 347
    Width = 75
    Height = 21
    Hint = #1069#1082#1089#1087#1086#1088#1090' '#1086#1090#1084#1077#1095#1077#1085#1085#1099#1093' '#1076#1086#1082#1091#1084#1077#1085#1090#1086#1074' '#1074' '#1050#1083#1080#1077#1085#1090'-'#1041#1072#1085#1082' (Alt-F5)'
    Caption = #1069#1082#1089#1087#1086#1088#1090
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 1
    OnClick = btnEXPORT_Click
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object bPDOCDIM: xbPopupButton
    Left = 296
    Top = 347
    Width = 75
    Height = 21
    Caption = #1048#1079#1084#1077#1088#1077#1085#1080#1103
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = bPopupMenu3
    RoundedButton = True
    TabOrder = 2
    OnClick = bPDOCDIM_Click
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object pMenuOperation: xbPopupButton
    Left = 470
    Top = 347
    Width = 75
    Height = 21
    Caption = #1054#1087#1077#1088#1072#1094#1080#1080
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = MenuOperation
    RoundedButton = True
    TabOrder = 3
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object bpFunction: xbPopupButton
    Left = 557
    Top = 347
    Width = 75
    Height = 21
    Caption = #1060#1091#1085#1082#1094#1080#1080
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = bpnFunction
    RoundedButton = True
    TabOrder = 4
    OnClick = bpFunction_Click
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_fin_pln'
    Active = False
    Left = 39
    Top = 108
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <
      item
        Name = 'LIST_ID'
        DataType = ftString
        Size = 22
      end
      item
        Name = 'BOOK_CODE'
        DataType = ftString
        Size = 2
      end
      item
        Name = 'CTG'
        DataType = ftFloat
      end
      item
        Name = 'BOOK_PER'
        DataType = ftDate
      end
      item
        Name = 'LIST_DATE'
        DataType = ftDate
      end
      item
        Name = 'LIST_NUM'
        DataType = ftString
        Size = 6
      end
      item
        Name = 'OP_CODE'
        DataType = ftString
        Size = 22
      end
      item
        Name = 'OPNAME'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'STATUS'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'RECALC'
        DataType = ftBoolean
      end
      item
        Name = 'LST_ACT'
        DataType = ftString
        Size = 17
      end
      item
        Name = 'USER_CODE'
        DataType = ftString
        Size = 6
      end
      item
        Name = 'STATUSNAME'
        DataType = ftString
        Size = 10
      end
      item
        Name = 'CTGNAME'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'TYPE_PER'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'Typepername'
        DataType = ftString
        Size = 25
      end>
    ReadOnly = True
    OEMTranslate = False
    AfterScroll = DS_AfterScroll
    Left = 81
    Top = 108
  end
  object ADS: xbADSDataSource
    DataSet = DS
    Left = 122
    Top = 109
  end
  object adsFinObj: xbADSDataSource
    DataSet = dsFinObj
    Left = 112
    Top = 177
  end
  object dsFinObj: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'PAY\FIN_OBJ.DBF'
    OEMTranslate = False
    Left = 41
    Top = 177
  end
  object adsDocType: xbADSDataSource
    DataSet = dsDocType
    Left = 111
    Top = 241
  end
  object dsDocType: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'PAY\DOC_TYPE.DBF'
    OEMTranslate = False
    Left = 39
    Top = 241
  end
  object DSKB: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'PAY\KB.DBF'
    OEMTranslate = False
    Left = 193
    Top = 244
  end
  object ADSKB: xbADSDataSource
    DataSet = DSKB
    Left = 235
    Top = 247
  end
  object bPopupMenu3: xbPopupMenu
    Left = 313
    Top = 254
    object pEdit: TMenuItem
      Caption = #1042#1074#1086#1076' Ctrl-D'
    end
    object pShow: TMenuItem
      Caption = #1055#1088#1086#1089#1084#1086#1090#1088' '#1074#1082#1083'/'#1074#1099#1082#1083' Ctrl-F'
    end
  end
  object MenuOperation: xbPopupMenu
    Left = 411
    Top = 252
    object miGroupPrint: TMenuItem
      Caption = #1043#1088#1091#1087#1087#1086#1074#1072#1103' '#1087#1077#1095#1072#1090#1100
      ShortCut = 16504
      OnClick = miGroupPrint_Click
    end
  end
  object bpnFunction: xbPopupMenu
    Left = 386
    Top = 181
  end
end
frmPaySmeta.prg                                                      50535object frmPaySmeta: TfrmPaySmeta
  Left = 25
  Top = 25
  Width = 645
  Height = 338
  ActiveControl = leDopNum
  Anchors = []
  Caption = #1057#1074#1077#1076#1077#1085#1080#1103' '#1086' '#1089#1084#1077#1090#1085#1099#1093' '#1085#1072#1079#1085#1072#1095#1077#1085#1080#1103#1093
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  WindowState = wsNormal
  OnCloseQuery = Form_CloseQuery
  OnCreate = Form_Create
  OnShow = Form_Show
  DesignSize = (
    637
    304)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 8
    Top = 8
    Width = 623
    Height = 265
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    OnChange = bPageControl1_Change
    OnChanging = bPageControl1_Changing
    object TabSheet1: TTabSheet
      Caption = #1054#1073#1097#1077#1077
      DesignSize = (
        621
        243)
      object lcbPTp: xbLabelCombo
        Left = 8
        Top = 8
        Width = 220
        Height = 21
        ParentBackGround = True
        Caption = #1042#1080#1076' '#1087#1083#1072#1090#1077#1078#1072
        Enabled = False
        TabOrder = 0
        LabelWidth = 120
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Sorted = False
        EditColor = clWindow
        DisabledColor = clInactiveBorder
        DisabledFontColor = clBlack
        BorderColor = clWindowText
        AutoComplete = False
        Style = csDropDownList
        CharCase = ecNormal
        DropDownCount = 0
        ItemHeight = 0
        MaxLength = 0
        Items.Strings = (
          ''
          #1087#1086#1095#1090#1086#1081
          #1090#1077#1083#1077#1075#1088#1072#1092#1086#1084
          #1101#1083#1077#1082#1090#1088#1086#1085#1085#1086
          #1089#1088#1086#1095#1085#1086)
        ItemIndex = -1
        Visible = False
        UseStandartHint = True
        OnSelect = lcbPTp_Select
      end
      object lerMvTpCode: xbLabelEditRefer
        Left = 8
        Top = 56
        Width = 396
        Height = 21
        BorderColor = clWindowText
        Caption = #1042#1080#1076' '#1076#1074#1080#1078#1077#1085#1080#1103
        CaptionAlignment = taLeftJustify
        DataField = 'MOVE_NAME'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 8
        LabelWidth = 136
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnEnter = lerMvTpCode_Enter
        OnExit = lerMvTpCode_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'MOVE_TP'
        BeforeButtonClick = lerMvTpCode_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'MV_CODE;-1;50;1;-1;'#1050#1086#1076'|MV_NAME;-1;200;1;-1;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldName = 'MOVE_NAME'
        FindFieldType = tfCharacterString
        ListDataSet = DSMvTp
        OutFieldsArray = 'MV_CODE;DIR'
        PutFieldsArray = 'MOVE_TP;DIR'
        ReferCaption = #1042#1080#1076#1099' '#1076#1074#1080#1078#1077#1085#1080#1103' '#1076#1077#1085#1077#1078#1085#1099#1093' '#1089#1088#1077#1076#1089#1090#1074
        TypeFindFieldName = 'MOVE_NAME'
        xReferId = 0
        IsHarbourRefer = True
        OnSelect = lerMvTpCode_Select
      end
      object bFrame1: xbFrame
        Left = 8
        Top = 84
        Width = 605
        Height = 152
        TabOrder = 9
        Anchors = [akLeft, akTop, akRight, akBottom]
        DesignSize = (
          605
          152)
        object lbPolName: xbLabel
          Left = 296
          Top = 57
          Width = 300
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPlatName'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'OWN_SHORT_NAME'
          DataSource = ADS
        end
        object lbGlavName: xbLabel
          Left = 296
          Top = 33
          Width = 300
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbGlavName'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'PART_ORGNAME'
          DataSource = ADS
        end
        object lbPlatBankName1: xbLabel
          Left = 416
          Top = 81
          Width = 185
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPlatBankName1'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          OnClick = lbPlatBankName1_Click
          DataField = 'OWNACNT_BANK_NAME'
          DataSource = ADSDocCmp
        end
        object lbFO: xbLabel
          Left = 296
          Top = 9
          Width = 180
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbFO'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'FO_SHORTNAME'
          DataSource = ADSDocCmp
        end
        object lePlatCode: xbLabelEdit
          Left = 6
          Top = 54
          Width = 280
          Height = 21
          BorderColor = clWindowText
          Caption = #1055#1088#1077#1076#1087#1088#1080#1103#1090#1080#1077
          CaptionAlignment = taLeftJustify
          DataField = 'OWN_COD_BUD_P'
          DataSource = ADS
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 3
          LabelWidth = 130
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object lerGlavCode: xbLabelEditRefer
          Left = 6
          Top = 30
          Width = 280
          Height = 21
          BorderColor = clWindowText
          Caption = #1043#1083#1072#1074#1085#1099#1081' '#1088#1072#1089#1087#1086#1088#1103#1076#1080#1090#1077#1083#1100
          CaptionAlignment = taLeftJustify
          DataField = 'PART_COD_BUD_P'
          DataSource = ADS
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 2
          LabelWidth = 130
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          OnEnter = lerGlavCode_Enter
          OnExit = lerGlavCode_Exit
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'PRT_ID'
          BeforeButtonClick = lerGlavCode_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 'CODE;-1;100;1;0;'#1050#1086#1076'|SORTNAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
          FindFieldName = 'COD_BUD_P'
          FindFieldType = tfCharacterString
          OutFieldsArray = 'PART_ID'
          PutFieldsArray = 'PRT_ID'
          ReferCaption = #1057#1087#1080#1089#1086#1082
          ReferWidth = 450
          TypeFindFieldName = 'COD_BUD_P'
          xReferId = 0
          IsHarbourRefer = True
        end
        object lerBudLev: xbLabelEditRefer
          Left = 467
          Top = 6
          Width = 130
          Height = 21
          BorderColor = clWindowText
          Caption = #1041#1102#1076#1078#1077#1090
          CaptionAlignment = taLeftJustify
          DataField = 'BUD_LEV'
          DataSource = ADSDocCmp
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 1
          LabelWidth = 50
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          OnEnter = lerGlavCode_Enter
          OnExit = lerGlavCode_Exit
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'BUD_LEV'
          BeforeButtonClick = lerGlavCode_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 'CODE;-1;100;1;0;'#1050#1086#1076'|NAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
          FindFieldName = 'BUD_LEV'
          FindFieldType = tfCharacterString
          ListDataSet = DSBudLev
          OutFieldsArray = 'CODE'
          PutFieldsArray = 'BUD_LEV'
          ReferCaption = #1057#1087#1080#1089#1086#1082
          ReferWidth = 450
          TypeFindFieldName = 'BUD_LEV'
          xReferId = 0
          IsHarbourRefer = True
        end
        object lePlatAcnt1: xbLabelEdit
          Left = 6
          Top = 78
          Width = 280
          Height = 21
          BorderColor = clWindowText
          Caption = #1057#1095#1077#1090
          CaptionAlignment = taLeftJustify
          DataField = 'OWNACNT_NUM'
          DataSource = ADSDocCmp
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 4
          LabelWidth = 130
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object lerPlatBankCode1: xbLabelEdit
          Left = 296
          Top = 78
          Width = 110
          Height = 21
          BorderColor = clWindowText
          Caption = #1074' '#1054#1060#1050'     '
          CaptionAlignment = taLeftJustify
          DataField = 'OWNACNT_COD_BUD_P'
          DataSource = ADSDocCmp
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 5
          LabelWidth = 40
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object lecSumma: xbLabelEditCalc
          Left = 6
          Top = 102
          Width = 280
          Height = 21
          BorderColor = clWindowText
          Caption = #1054#1089#1090#1072#1090#1086#1082' '#1085#1072' '#1085#1072#1095#1072#1083#1086' '#1075#1086#1076#1072
          CaptionAlignment = taLeftJustify
          DataField = 'ADV_SUM'
          DataSource = ADS
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          DisabledFontColor = clBtnText
          TabOrder = 6
          LabelWidth = 130
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          Text = '0'
          OnEnter = lecSumma_Enter
          OnExit = lecSumma_Exit
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          VisibleButton = False
          OnSelect = lecSumma_Select
        end
        object lerFO: xbLabelEditRefer
          Left = 6
          Top = 6
          Width = 280
          Height = 21
          BorderColor = clWindowText
          Caption = #1060#1080#1085'. '#1086#1088#1075#1072#1085
          CaptionAlignment = taLeftJustify
          DataField = 'FO_COD_BUD_P'
          DataSource = ADSDocCmp
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 0
          LabelWidth = 130
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'FO_ID'
          BeforeButtonClick = lerFO_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 'CODE;-1;100;1;0;'#1050#1086#1076'|SORTNAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
          FindFieldName = 'COD_BUD_P'
          FindFieldType = tfCharacterString
          OutFieldsArray = 'PART_ID'
          PutFieldsArray = 'FO_ID'
          ReferCaption = #1057#1087#1080#1089#1086#1082
          ReferWidth = 450
          TypeFindFieldName = 'COD_BUD_P'
          xReferId = 0
          IsHarbourRefer = True
        end
      end
      object lcbStatus: xbLabelCombo
        Left = 254
        Top = 32
        Width = 150
        Height = 21
        ParentBackGround = True
        Caption = #1057#1090#1072#1090#1091#1089
        Enabled = False
        TabOrder = 6
        LabelWidth = 40
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Sorted = False
        EditColor = clWindow
        DisabledColor = clInactiveBorder
        DisabledFontColor = clBlack
        BorderColor = clWindowText
        AutoComplete = False
        Style = csDropDownList
        CharCase = ecNormal
        DropDownCount = 0
        ItemHeight = 0
        MaxLength = 0
        Items.Strings = (
          #1095#1077#1088#1085#1086#1074#1080#1082
          #1087#1077#1088#1077#1076#1072#1085
          #1086#1087#1083#1072#1095#1077#1085)
        ItemIndex = -1
        UseStandartHint = True
      end
      object leDocVid: xbLabelEdit
        Left = 8
        Top = 8
        Width = 236
        Height = 21
        BorderColor = clWindowText
        Caption = #1057#1084#1077#1090#1085#1099#1077' '#1085#1072#1079#1085#1072#1095#1077#1085#1080#1103': '#1074#1080#1076'    '
        CaptionAlignment = taLeftJustify
        DataField = 'DOC_CODE'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 1
        LabelWidth = 136
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leDocNum: xbLabelEdit
        Left = 412
        Top = 8
        Width = 70
        Height = 21
        BorderColor = clWindowText
        Caption = #1085#1086#1084#1077#1088'    '
        CaptionAlignment = taLeftJustify
        DataField = 'DOC_NUM'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 3
        LabelWidth = 0
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leDocDate: xbLabelEdit
        Left = 493
        Top = 8
        Width = 120
        Height = 21
        BorderColor = clWindowText
        Caption = #1076#1072#1090#1072'    '
        CaptionAlignment = taLeftJustify
        DataField = 'DOC_DATE'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 4
        LabelWidth = 30
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnExit = leDocDate_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leDestYear: xbLabelEdit
        Left = 122
        Top = 32
        Width = 122
        Height = 21
        BorderColor = clWindowText
        Caption = #1075#1086#1076
        CaptionExtender = ceNone
        CaptionAlignment = taLeftJustify
        DataField = 'DEST_YEAR'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        EditMask = '0000'
        TabOrder = 5
        LabelWidth = 22
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        MaxLength = 4
        Text = '    '
        OnExit = leDestYear_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leOperDate: xbLabelEdit
        Left = 443
        Top = 32
        Width = 170
        Height = 21
        BorderColor = clWindowText
        Caption = #1044#1072#1090#1072' '#1086#1087#1077#1088#1072#1094#1080#1080
        CaptionAlignment = taLeftJustify
        DataField = 'OPER_DATE'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 7
        LabelWidth = 80
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnExit = leOperDate_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leDopNum: xbLabelEdit
        Left = 254
        Top = 8
        Width = 150
        Height = 21
        BorderColor = clWindowText
        Caption = #1085#1086#1084#1077#1088'    '
        CaptionAlignment = taLeftJustify
        DataField = 'DOP_NUM'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 2
        LabelWidth = 40
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        MaxLength = 13
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
    end
    object TabSheet2: TTabSheet
      Caption = #1044#1086#1093#1086#1076#1099
      DesignSize = (
        621
        243)
      object bFrame2: xbFrame
        Left = 8
        Top = 8
        Width = 605
        Height = 229
        TabOrder = 0
        Anchors = [akLeft, akTop, akRight, akBottom]
        OnClick = bFrame2_Click
        object GridBudExp1: xbGrid
          Left = 0
          Top = 0
          Width = 605
          Height = 214
          Align = alTop
          Anchors = [akLeft, akTop, akRight, akBottom]
          AutoFitColWidths = True
          DataSource = ADSBudExp1
          Flat = True
          FooterColor = clWindow
          FooterFont.Charset = DEFAULT_CHARSET
          FooterFont.Color = clWindowText
          FooterFont.Height = -11
          FooterFont.Name = 'MS Sans Serif'
          FooterFont.Style = []
          Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgConfirmDelete]
          ReadOnly = True
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          UseMultiTitle = True
          VertScrollBar.VisibleMode = sbAlwaysShowEh
          OnDblClick = GridBudExp3_DblClick
          OnKeyPress = GridBudExp3_KeyPress
          IdGrid = '{BC467A25-BFAB-4A57-9B72-E14C3F8E74DF}'
          Columns = <
            item
              EditButtons = <>
              FieldName = 'LIC_STRNUM'
              Footers = <>
              Title.Caption = #1053#1086#1084#1077#1088' '#1079#1072#1087#1080#1089#1080' '#1088#1072#1079#1088#1077#1096#1077#1085#1080#1103
              Width = 100
            end
            item
              EditButtons = <>
              FieldName = 'EXP_DIM'
              Footers = <>
              Title.Caption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
              Width = 250
            end
            item
              Alignment = taRightJustify
              EditButtons = <>
              FieldName = 'EX_YEAR'
              Footers = <>
              Title.Caption = #1043#1086#1076
              Width = 100
            end
            item
              Alignment = taRightJustify
              EditButtons = <>
              FieldName = 'SUM_LBO'
              Footers = <>
              Title.Caption = #1057#1091#1084#1084#1072
              Width = 120
            end>
        end
        object GridItogBudExp1: xbGrid
          Left = 0
          Top = 212
          Width = 605
          Height = 17
          TabStop = False
          Align = alBottom
          AutoFitColWidths = True
          ColorActiveCursor = clWindow
          ColorActiveCursorFont = clWindowText
          DataSource = ADSItogBudExp1
          Enabled = False
          FixedColor = clWindow
          Flat = True
          FooterColor = clWindow
          FooterFont.Charset = DEFAULT_CHARSET
          FooterFont.Color = clWindowText
          FooterFont.Height = -11
          FooterFont.Name = 'MS Sans Serif'
          FooterFont.Style = []
          FrozenCols = 4
          HorzScrollBar.Visible = False
          Options = [dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgConfirmDelete]
          OptionsEh = [dghFixed3D, dghClearSelection]
          ReadOnly = True
          RowOddColor = clWindow
          TabOrder = 1
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          UseMultiTitle = True
          VertScrollBar.VisibleMode = sbAlwaysShowEh
          IdGrid = '{D27467FB-B8FD-476F-8A3B-70944F5107E4}'
          Columns = <
            item
              EditButtons = <>
              FieldName = 'LIC_STRNUM'
              Footers = <>
              Width = 100
            end
            item
              EditButtons = <>
              FieldName = 'EXP_DIM'
              Footers = <>
              Width = 250
            end
            item
              Alignment = taRightJustify
              EditButtons = <>
              FieldName = 'EX_YEAR'
              Footers = <>
              Width = 100
            end
            item
              Alignment = taRightJustify
              EditButtons = <>
              FieldName = 'SUM_LBO'
              Footers = <>
              Width = 120
            end
            item
              AutoFitColWidth = False
              EditButtons = <>
              FieldName = 'EMPTY_COL'
              Footers = <>
              Width = 0
            end>
        end
      end
    end
    object TabSheet3: TTabSheet
      Caption = #1056#1072#1089#1093#1086#1076#1099
      DesignSize = (
        621
        243)
      object bFrame3: xbFrame
        Left = 8
        Top = 8
        Width = 605
        Height = 229
        TabOrder = 0
        Anchors = [akLeft, akTop, akRight, akBottom]
        OnClick = bFrame2_Click
        object GridBudExp2: xbGrid
          Left = 0
          Top = 0
          Width = 605
          Height = 214
          Align = alTop
          Anchors = [akLeft, akTop, akRight, akBottom]
          AutoFitColWidths = True
          DataSource = ADSBudExp2
          Flat = True
          FooterColor = clWindow
          FooterFont.Charset = DEFAULT_CHARSET
          FooterFont.Color = clWindowText
          FooterFont.Height = -11
          FooterFont.Name = 'MS Sans Serif'
          FooterFont.Style = []
          Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgConfirmDelete]
          ReadOnly = True
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          UseMultiTitle = True
          VertScrollBar.VisibleMode = sbAlwaysShowEh
          OnDblClick = GridBudExp3_DblClick
          OnKeyPress = GridBudExp3_KeyPress
          IdGrid = '{906FEBAB-79EE-4FFE-8181-A564110F01FD}'
          Columns = <
            item
              EditButtons = <>
              FieldName = 'LIC_STRNUM'
              Footers = <>
              Title.Caption = #1053#1086#1084#1077#1088' '#1079#1072#1087#1080#1089#1080' '#1088#1072#1079#1088#1077#1096#1077#1085#1080#1103
              Width = 100
            end
            item
              EditButtons = <>
              FieldName = 'EXP_DIM'
              Footers = <>
              Title.Caption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
              Width = 250
            end
            item
              Alignment = taRightJustify
              EditButtons = <>
              FieldName = 'EX_YEAR'
              Footers = <>
              Title.Caption = #1043#1086#1076
              Width = 100
            end
            item
              Alignment = taRightJustify
              EditButtons = <>
              FieldName = 'SUM_LBO'
              Footers = <>
              Title.Caption = #1057#1091#1084#1084#1072
              Width = 120
            end>
        end
        object GridItogBudExp2: xbGrid
          Left = 0
          Top = 212
          Width = 605
          Height = 17
          TabStop = False
          Align = alBottom
          AutoFitColWidths = True
          ColorActiveCursor = clWindow
          ColorActiveCursorFont = clWindowText
          DataSource = ADSItogBudExp2
          Enabled = False
          FixedColor = clWindow
          Flat = True
          FooterColor = clWindow
          FooterFont.Charset = DEFAULT_CHARSET
          FooterFont.Color = clWindowText
          FooterFont.Height = -11
          FooterFont.Name = 'MS Sans Serif'
          FooterFont.Style = []
          FrozenCols = 4
          HorzScrollBar.Visible = False
          Options = [dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgConfirmDelete]
          OptionsEh = [dghFixed3D, dghClearSelection]
          ReadOnly = True
          RowOddColor = clWindow
          TabOrder = 1
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          UseMultiTitle = True
          VertScrollBar.VisibleMode = sbAlwaysShowEh
          IdGrid = '{C93E721F-29AA-4B7C-820E-75C32B59F2C0}'
          Columns = <
            item
              EditButtons = <>
              FieldName = 'LIC_STRNUM'
              Footers = <>
              Width = 100
            end
            item
              EditButtons = <>
              FieldName = 'EXP_DIM'
              Footers = <>
              Width = 250
            end
            item
              Alignment = taRightJustify
              EditButtons = <>
              FieldName = 'EX_YEAR'
              Footers = <>
              Width = 100
            end
            item
              Alignment = taRightJustify
              EditButtons = <>
              FieldName = 'SUM_LBO'
              Footers = <>
              Width = 120
            end
            item
              AutoFitColWidth = False
              EditButtons = <>
              FieldName = 'EMPTY_COL'
              Footers = <>
              Width = 0
            end>
        end
      end
    end
    object TabSheet4: TTabSheet
      Caption = #1048#1089#1090#1086#1095#1085#1080#1082#1080
      DesignSize = (
        621
        243)
      object bFrame4: xbFrame
        Left = 8
        Top = 8
        Width = 605
        Height = 229
        TabOrder = 0
        Anchors = [akLeft, akTop, akRight, akBottom]
        OnClick = bFrame2_Click
        object GridBudExp3: xbGrid
          Left = 0
          Top = 0
          Width = 605
          Height = 214
          Align = alTop
          Anchors = [akLeft, akTop, akRight, akBottom]
          AutoFitColWidths = True
          DataSource = ADSBudExp3
          Flat = True
          FooterColor = clWindow
          FooterFont.Charset = DEFAULT_CHARSET
          FooterFont.Color = clWindowText
          FooterFont.Height = -11
          FooterFont.Name = 'MS Sans Serif'
          FooterFont.Style = []
          Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgConfirmDelete]
          ReadOnly = True
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          UseMultiTitle = True
          VertScrollBar.VisibleMode = sbAlwaysShowEh
          OnDblClick = GridBudExp3_DblClick
          OnKeyPress = GridBudExp3_KeyPress
          IdGrid = '{1641A21A-F610-4256-91E3-AEC8BE2BBA44}'
          Columns = <
            item
              EditButtons = <>
              FieldName = 'LIC_STRNUM'
              Footers = <>
              Title.Caption = #1053#1086#1084#1077#1088' '#1079#1072#1087#1080#1089#1080' '#1088#1072#1079#1088#1077#1096#1077#1085#1080#1103
              Width = 100
            end
            item
              EditButtons = <>
              FieldName = 'EXP_DIM'
              Footers = <>
              Title.Caption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
              Width = 250
            end
            item
              Alignment = taRightJustify
              EditButtons = <>
              FieldName = 'EX_YEAR'
              Footers = <>
              Title.Caption = #1043#1086#1076
              Width = 100
            end
            item
              Alignment = taRightJustify
              EditButtons = <>
              FieldName = 'SUM_LBO'
              Footers = <>
              Title.Caption = #1057#1091#1084#1084#1072
              Width = 120
            end>
        end
        object GridItogBudExp3: xbGrid
          Left = 0
          Top = 212
          Width = 605
          Height = 17
          TabStop = False
          Align = alBottom
          AutoFitColWidths = True
          ColorActiveCursor = clWindow
          ColorActiveCursorFont = clWindowText
          DataSource = ADSItogBudExp3
          Enabled = False
          FixedColor = clWindow
          Flat = True
          FooterColor = clWindow
          FooterFont.Charset = DEFAULT_CHARSET
          FooterFont.Color = clWindowText
          FooterFont.Height = -11
          FooterFont.Name = 'MS Sans Serif'
          FooterFont.Style = []
          FrozenCols = 4
          HorzScrollBar.Visible = False
          Options = [dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgConfirmDelete]
          OptionsEh = [dghFixed3D, dghClearSelection]
          ReadOnly = True
          RowOddColor = clWindow
          TabOrder = 1
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          UseMultiTitle = True
          VertScrollBar.VisibleMode = sbAlwaysShowEh
          IdGrid = '{3930AA4B-6D4A-40F3-8500-DDF302A8B01F}'
          Columns = <
            item
              EditButtons = <>
              FieldName = 'LIC_STRNUM'
              Footers = <>
              Width = 100
            end
            item
              EditButtons = <>
              FieldName = 'EXP_DIM'
              Footers = <>
              Width = 250
            end
            item
              Alignment = taRightJustify
              EditButtons = <>
              FieldName = 'EX_YEAR'
              Footers = <>
              Width = 100
            end
            item
              Alignment = taRightJustify
              EditButtons = <>
              FieldName = 'SUM_LBO'
              Footers = <>
              Width = 119
            end
            item
              AutoFitColWidth = False
              EditButtons = <>
              FieldName = 'EMPTY_COL'
              Footers = <>
              Width = 0
            end>
        end
      end
    end
    object TabSheet5: TTabSheet
      Caption = #1055#1088#1086#1074#1086#1076#1082#1080
      DesignSize = (
        621
        243)
      object txtopert: xbLabel
        Left = 261
        Top = 9
        Width = 302
        Height = 17
        Caption = 'txtopert'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
        Layout = tlCenter
        DataField = 'TYPEOP_NAME'
        DataSource = ADS
      end
      object lblDt: xbLabel
        Left = 6
        Top = 213
        Width = 609
        Height = 16
        Anchors = [akLeft, akRight, akBottom]
        Caption = '1'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
      end
      object lblKt: xbLabel
        Left = 6
        Top = 227
        Width = 609
        Height = 16
        Anchors = [akLeft, akRight, akBottom]
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
      end
      object rfOPerT: xbLabelEditRefer
        Left = 6
        Top = 6
        Width = 250
        Height = 21
        BorderColor = clWindowText
        Caption = #1058#1080#1087#1086#1074#1072#1103' '#1086#1087#1077#1088#1072#1094#1080#1103
        CaptionAlignment = taLeftJustify
        DataField = 'TYPEOP_CODE'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 0
        LabelWidth = 124
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'TYPE_OP'
        OnClearButtonClick = rfOPerT_ClearButtonClick
        VisibleButton = True
        UseStandartHint = True
        FindFieldName = 'code'
        FindFieldType = tfCharacterString
        OutFieldsArray = 'REC_ID'
        PutFieldsArray = 'TYPE_OP'
        ReferCaption = #1057#1087#1080#1089#1086#1082' '#1090#1080#1087#1086#1074#1099#1093' '#1086#1087#1077#1088#1072#1094#1080#1081
        TypeFindFieldName = 'code'
        xReferId = 0
        IsHarbourRefer = False
      end
      object bGrProv: xbGrid
        Left = 6
        Top = 31
        Width = 609
        Height = 180
        Anchors = [akLeft, akTop, akRight, akBottom]
        AutoFitColWidths = True
        DataSource = adsMain
        Flat = True
        FooterColor = clWindow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -11
        FooterFont.Name = 'MS Sans Serif'
        FooterFont.Style = []
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
        ReadOnly = True
        TabOrder = 1
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        UseMultiTitle = True
        VTitleMargin = 4
        OnDblClick = bGrid2_DblClick
        OnKeyPress = bGrid2_KeyPress
        IdGrid = '{A38D282F-9736-4FC3-B9B9-A83DF297FD74}'
        Columns = <
          item
            Checkboxes = True
            EditButtons = <>
            FieldName = 'X_ISMARK_'
            Footers = <>
            Title.Caption = ' '
            Width = 22
          end
          item
            EditButtons = <>
            FieldName = 'DT_SCHET'
            Footers = <>
            Title.Caption = #1057#1095#1077#1090'|'#1044#1077#1073#1077#1090
            Width = 80
          end
          item
            EditButtons = <>
            FieldName = 'KT_SCHET'
            Footers = <>
            Title.Caption = #1057#1095#1077#1090'|'#1050#1088#1077#1076#1080#1090
            Width = 80
          end
          item
            EditButtons = <>
            FieldName = 'NAMEOPER'
            Footers = <>
            Title.Caption = #1057#1086#1076#1077#1088#1078#1072#1085#1080#1077
            Width = 323
          end
          item
            EditButtons = <>
            FieldName = 'SUMMA'
            Footers = <>
            Title.Caption = #1057#1091#1084#1084#1072
            Width = 120
          end>
      end
    end
  end
  object btnOK: xbButton
    Left = 473
    Top = 282
    Width = 75
    Height = 21
    Hint = #1057#1086#1093#1088#1072#1085#1077#1085#1080#1077' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (F10)'
    Caption = #1054#1050
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 4
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btnCANCEL: xbButton
    Left = 556
    Top = 282
    Width = 75
    Height = 21
    Hint = #1042#1099#1093#1086#1076' '#1080#1079' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (Esc)'
    Caption = #1054#1090#1084#1077#1085#1072
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 5
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object pOperation: xbPopupButton
    Left = 390
    Top = 282
    Width = 75
    Height = 21
    Caption = #1054#1087#1077#1088#1072#1094#1080#1080
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = MenuOperation
    RoundedButton = True
    TabOrder = 3
    OnClick = pOperation_Click
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object bDocDim: xbButton
    Left = 199
    Top = 282
    Width = 75
    Height = 21
    Hint = #1042#1074#1086#1076' Ctrl-D'
    Caption = #1048#1079#1084#1077#1088#1077#1085#1080#1103
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 1
    OnClick = bPlDoc_Click
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object pbDopData: xbPopupButton
    Left = 282
    Top = 282
    Width = 100
    Height = 21
    Caption = #1044#1086#1087'. '#1076#1072#1085#1085#1099#1077
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = MenuDopData
    RoundedButton = True
    TabOrder = 2
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <>
    OEMTranslate = False
    Left = 109
    Top = 3
  end
  object ADS: xbADSDataSource
    DataSet = DS
    Left = 145
    Top = 3
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_FIN_PLN'
    Active = False
    Left = 72
    Top = 3
  end
  object BOPolAcnt1: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPartnerAccnt'
    Active = False
    Left = 538
    Top = 63
  end
  object DSPolAcnt1: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOPolAcnt1
    FieldDefs = <>
    OEMTranslate = False
    Left = 538
    Top = 116
  end
  object BODocCmp: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_DOC_CMP'
    Active = False
    Left = 583
    Top = 92
  end
  object DSDocCmp: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BODocCmp
    FieldDefs = <>
    OEMTranslate = False
    Left = 585
    Top = 138
  end
  object ADSDocCmp: xbADSDataSource
    DataSet = DSDocCmp
    Left = 588
    Top = 194
  end
  object BOMvTp: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_MOVE_TP'
    Active = False
    Left = 396
    Top = 9
  end
  object DSMvTp: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOMvTp
    FieldDefs = <>
    OEMTranslate = False
    Left = 449
    Top = 11
  end
  object BOBudExp1: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_BUD_EXP'
    Active = False
    Left = 264
    Top = 73
  end
  object DSBudExp1: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOBudExp1
    FieldDefs = <>
    ReadOnly = True
    OEMTranslate = False
    Left = 343
    Top = 74
  end
  object ADSBudExp1: xbADSDataSource
    DataSet = DSBudExp1
    Left = 423
    Top = 75
  end
  object DSItogBudExp1: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    ReadOnly = True
    OEMTranslate = False
    Left = 48
    Top = 70
  end
  object ADSItogBudExp1: xbADSDataSource
    DataSet = DSItogBudExp1
    Left = 139
    Top = 69
  end
  object BOBudLev: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_BUD_LEV'
    Active = False
    Left = 520
    Top = 11
  end
  object DSBudLev: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOBudLev
    FieldDefs = <>
    OEMTranslate = False
    Left = 573
    Top = 11
  end
  object BOBudExp2: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_BUD_EXP'
    Active = False
    Left = 267
    Top = 120
  end
  object DSBudExp2: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOBudExp2
    FieldDefs = <>
    ReadOnly = True
    OEMTranslate = False
    Left = 346
    Top = 121
  end
  object ADSBudExp2: xbADSDataSource
    DataSet = DSBudExp2
    Left = 426
    Top = 122
  end
  object BOBudExp3: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_BUD_EXP'
    Active = False
    Left = 270
    Top = 172
  end
  object DSBudExp3: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOBudExp3
    FieldDefs = <>
    ReadOnly = True
    OEMTranslate = False
    Left = 349
    Top = 173
  end
  object ADSBudExp3: xbADSDataSource
    DataSet = DSBudExp3
    Left = 429
    Top = 174
  end
  object DSItogBudExp2: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    ReadOnly = True
    OEMTranslate = False
    Left = 50
    Top = 127
  end
  object ADSItogBudExp2: xbADSDataSource
    DataSet = DSItogBudExp2
    Left = 141
    Top = 126
  end
  object DSItogBudExp3: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    ReadOnly = True
    OEMTranslate = False
    Left = 53
    Top = 182
  end
  object ADSItogBudExp3: xbADSDataSource
    DataSet = DSItogBudExp3
    Left = 144
    Top = 181
  end
  object MenuOperation: xbPopupMenu
    Left = 330
    Top = 12
    object pStatus: TMenuItem
      Caption = #1057#1090#1072#1090#1091#1089'     Alt-S'
      object MenuStatus1: TMenuItem
        Caption = #1063#1077#1088#1085#1086#1074#1080#1082
      end
      object MenuStatus2: TMenuItem
        Caption = #1055#1077#1088#1077#1076#1072#1085
      end
      object MenuStatus3: TMenuItem
        Caption = #1054#1087#1083#1072#1095#1077#1085
      end
    end
    object miCopyProv: TMenuItem
      Caption = #1050#1086#1087#1080#1088#1086#1074#1072#1090#1100' '#1087#1088#1086#1074#1086#1076#1082#1091
      OnClick = miCopyProv_Click
    end
  end
  object adsMain: xbADSDataSource
    DataSet = DSMAIN
    Left = 488
    Top = 76
  end
  object DSMAIN: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    xbsClassName = 'MAIN'
    BObject = BO
    FieldDefs = <
      item
        Name = 'NNOPER'
        DataType = ftFloat
      end
      item
        Name = 'TASK'
        DataType = ftString
        Size = 2
      end
      item
        Name = 'TaskName'
        DataType = ftString
        Size = 40
      end
      item
        Name = 'JrnName'
        DataType = ftString
        Size = 40
      end
      item
        Name = 'JrnCode'
        DataType = ftString
        Size = 4
      end
      item
        Name = 'DATAOPER'
        DataType = ftDate
      end
      item
        Name = 'NNDOC'
        DataType = ftString
        Size = 6
      end
      item
        Name = 'DT_SCHET'
        DataType = ftString
        Size = 16
      end
      item
        Name = 'DTName'
        DataType = ftString
        Size = 80
      end
      item
        Name = 'DT_CODE'
        DataType = ftString
        Size = 60
      end
      item
        Name = 'KT_SCHET'
        DataType = ftString
        Size = 16
      end
      item
        Name = 'KTName'
        DataType = ftString
        Size = 80
      end
      item
        Name = 'KT_CODE'
        DataType = ftString
        Size = 60
      end
      item
        Name = 'SUMMA'
        DataType = ftFloat
      end
      item
        Name = 'NAMEOPER'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'VALUTA'
        DataType = ftString
        Size = 3
      end
      item
        Name = 'VSUMMA'
        DataType = ftFloat
      end
      item
        Name = 'VCURS'
        DataType = ftFloat
      end
      item
        Name = 'SCLAD'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'STATUS'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'USER_DATE'
        DataType = ftDate
      end
      item
        Name = 'Z_STATUS'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'NNOPER_D'
        DataType = ftFloat
      end
      item
        Name = 'NNOPER_K'
        DataType = ftFloat
      end
      item
        Name = 'N_STATUS'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'CRYPT_CODE'
        DataType = ftString
        Size = 11
      end
      item
        Name = 'IDMAIN'
        DataType = ftFloat
      end
      item
        Name = 'JRN_ID'
        DataType = ftFloat
      end
      item
        Name = 'DOC_ID'
        DataType = ftFloat
      end
      item
        Name = 'VAL_ID'
        DataType = ftFloat
      end
      item
        Name = 'PSCHET'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'ENTRY_CTG'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'GL_DIM1'
        DataType = ftFloat
      end
      item
        Name = 'GL_DIM2'
        DataType = ftFloat
      end
      item
        Name = 'mainValuta'
        DataType = ftString
        Size = 3
      end
      item
        Name = 'PriznakZab'
        DataType = ftBoolean
      end>
    ReadOnly = True
    OEMTranslate = False
    Left = 492
    Top = 132
  end
  object MenuDopData: xbPopupMenu
    Left = 392
    Top = 227
    object MenuDopData1: TMenuItem
      Caption = #1053#1072#1083#1086#1075#1086#1074#1099#1077' '#1082#1086#1076#1099'    Ctrl+B'
      OnClick = MenuDopData1_Click
    end
    object miDopRecv: TMenuItem
      Caption = #1044#1086#1087' '#1088#1077#1082#1074#1080#1079#1080#1090#1099'      Alt+F5'
      OnClick = miDopRecv_Click
    end
    object miPodpis: TMenuItem
      Caption = #1055#1086#1076#1087#1080#1089#1080'           '
      OnClick = miPodpis_Click
    end
  end
end
frmPaySmBudExp.prg                                                    6868object frmPaySmBudExp: TfrmPaySmBudExp
  Left = 25
  Top = 25
  Width = 420
  Height = 184
  ActiveControl = leLicStrNum
  Anchors = []
  Caption = #1044#1086#1093#1086#1076#1099
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  WindowState = wsNormal
  OnActivate = Form_Activate
  OnClose = Form_Close
  OnCloseQuery = Form_CloseQuery
  OnCreate = Form_Create
  OnShow = Form_Show
  DesignSize = (
    412
    150)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 8
    Top = 8
    Width = 396
    Height = 106
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    object TabSheet1: TTabSheet
      Caption = #1054#1073#1097#1077#1077
      object larAnal: xbLabelEditAnalitRefer
        Left = 8
        Top = 32
        Width = 380
        Height = 21
        BorderColor = clWindowText
        Caption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
        CaptionAlignment = taLeftJustify
        DataField = 'EXP_DIM'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 1
        LabelWidth = 150
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'EXP_DIM'
        EnabledEdit = False
        VisibleButton = True
        UseStandartHint = True
        FindFieldType = tfCharacterString
        ReferCaption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
        TableName = 'PAY\DIM_TUNE'
        xReferId = 0
        IsHarbourRefer = True
        MakeChecking = True
      end
      object lecSum: xbLabelEditCalc
        Left = 8
        Top = 56
        Width = 275
        Height = 21
        BorderColor = clWindowText
        Caption = #1057#1091#1084#1084#1072
        CaptionAlignment = taLeftJustify
        DataField = 'SUM_LBO'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 2
        LabelWidth = 150
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        VisibleButton = False
      end
      object leLicStrNum: xbLabelEdit
        Left = 8
        Top = 8
        Width = 275
        Height = 21
        BorderColor = clWindowText
        Caption = #1053#1086#1084#1077#1088' '#1079#1072#1087#1080#1089#1080' '#1088#1072#1079#1088#1077#1096#1077#1085#1080#1103
        CaptionAlignment = taLeftJustify
        DataField = 'LIC_STRNUM'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 0
        LabelWidth = 150
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leYear: xbLabelEdit
        Left = 298
        Top = 56
        Width = 90
        Height = 21
        BorderColor = clWindowText
        Caption = #1043#1086#1076
        CaptionAlignment = taLeftJustify
        DataField = 'EX_YEAR'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        EditMask = '0000'
        DisplayFormat = '0000'
        TabOrder = 3
        LabelWidth = 30
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        MaxLength = 4
        Text = '    '
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
    end
  end
  object btnOK: xbButton
    Left = 245
    Top = 122
    Width = 75
    Height = 21
    Hint = #1057#1086#1093#1088#1072#1085#1077#1085#1080#1077' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (F10)'
    Caption = #1054#1050
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 2
    ModalResult = 1
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btnCANCEL: xbButton
    Left = 332
    Top = 122
    Width = 75
    Height = 21
    Hint = #1042#1099#1093#1086#1076' '#1080#1079' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (Esc)'
    Caption = #1054#1090#1084#1077#1085#1072
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 3
    ModalResult = 2
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btDopRecv: xbButton
    Left = 133
    Top = 122
    Width = 100
    Height = 21
    Hint = #1044#1086#1087#1086#1083#1085#1080#1090#1077#1083#1100#1085#1099#1077' '#1088#1077#1082#1074#1080#1079#1080#1090#1099' (Alt+F5)'
    Caption = #1044#1086#1087'. '#1088#1077#1082#1074#1080#1079#1080#1090#1099
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 1
    OnClick = btDopRecv_Click
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_BUD_EXP'
    Active = False
    Left = 261
    Top = 65533
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <>
    OEMTranslate = False
    AfterEdit = DS_AfterEdit
    Left = 336
    Top = 65533
  end
  object ADS: xbADSDataSource
    DataSet = DS
    Left = 299
    Top = 65534
  end
  object DSDIMTUNE: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'PAY\dim_tune'
    OEMTranslate = False
    IndexName = 'TAG_CODE'
    Left = 203
    Top = 65534
  end
end
frmPayVozvrat.prg                                                    74265object frmPayVozvrat: TfrmPayVozvrat
  Left = -4
  Top = 25
  Width = 750
  Height = 465
  ActiveControl = leDopNum
  Anchors = []
  Caption = #1047#1072#1103#1074#1082#1072' '#1085#1072' '#1074#1086#1079#1074#1088#1072#1090
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  WindowState = wsNormal
  OnCloseQuery = Form_CloseQuery
  OnCreate = Form_Create
  OnShow = Form_Show
  DesignSize = (
    742
    431)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 8
    Top = 8
    Width = 728
    Height = 400
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    OnChange = bPageControl1_Change
    object TabSheet1: TTabSheet
      Caption = #1054#1073#1097#1077#1077
      DesignSize = (
        726
        378)
      object lbNaznPlat: xbLabel
        Left = 8
        Top = 330
        Width = 150
        Height = 17
        Caption = #1053#1072#1079#1085#1072#1095#1077#1085#1080#1077' . . . . . . . . . . . . . . . . . . . .'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
      end
      object bLabel1: xbLabel
        Left = 8
        Top = 347
        Width = 150
        Height = 17
        Caption = #1053#1072#1079#1085#1072#1095#1077#1085#1080#1077' . . . . . . . . . . . . . . . . . . . .'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
      end
      object lcbPTp: xbLabelCombo
        Left = 423
        Top = 46
        Width = 170
        Height = 21
        ParentBackGround = True
        Caption = #1042#1080#1076' '#1087#1083#1072#1090#1077#1078#1072
        TabOrder = 8
        LabelWidth = 80
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Sorted = False
        EditColor = clWindow
        DisabledColor = clInactiveBorder
        DisabledFontColor = clBlack
        BorderColor = clWindowText
        AutoComplete = False
        Style = csDropDownList
        CharCase = ecNormal
        DropDownCount = 0
        ItemHeight = 0
        MaxLength = 0
        Items.Strings = (
          ''
          #1087#1086#1095#1090#1086#1081
          #1090#1077#1083#1077#1075#1088#1072#1092#1086#1084
          #1101#1083#1077#1082#1090#1088#1086#1085#1085#1086
          #1089#1088#1086#1095#1085#1086)
        ItemIndex = -1
        UseStandartHint = True
        OnSelect = lcbPTp_Select
      end
      object lerMvTpCode: xbLabelEditRefer
        Left = 8
        Top = 46
        Width = 386
        Height = 21
        BorderColor = clWindowText
        Caption = #1042#1080#1076' '#1076#1074#1080#1078#1077#1085#1080#1103
        CaptionAlignment = taLeftJustify
        DataField = 'MV_NAME'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 7
        LabelWidth = 156
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnEnter = lerMvTpCode_Enter
        OnExit = lerMvTpCode_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'MV_CODE'
        BeforeButtonClick = lerMvTpCode_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'MV_CODE;-1;50;1;-1;'#1050#1086#1076'|MV_NAME;-1;200;1;-1;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldName = 'MV_NAME'
        FindFieldType = tfCharacterString
        ListDataSet = DSMvTp
        OutFieldsArray = 'MV_CODE;PRT_TP;DIR'
        PutFieldsArray = 'MV_CODE;PRT_TP;DIR'
        ReferCaption = #1042#1080#1076#1099' '#1076#1074#1080#1078#1077#1085#1080#1103' '#1076#1077#1085#1077#1078#1085#1099#1093' '#1089#1088#1077#1076#1089#1090#1074
        TypeFindFieldName = 'MV_NAME'
        xReferId = 0
        IsHarbourRefer = True
        OnSelect = lerMvTpCode_Select
      end
      object bFrame1: xbFrame
        Left = 8
        Top = 91
        Width = 710
        Height = 92
        TabOrder = 14
        Anchors = [akLeft, akTop, akRight]
        DesignSize = (
          710
          92)
        object lbPlatName: xbLabel
          Left = 296
          Top = 5
          Width = 405
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPlatName'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'FINOBJ_PART_SHORTNAME'
          DataSource = ADS
        end
        object lbGlavName: xbLabel
          Left = 296
          Top = 71
          Width = 405
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbGlavName'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'PART_ORGNAME'
          DataSource = ADSDocCmp
        end
        object lbPlatBankName1: xbLabel
          Left = 416
          Top = 28
          Width = 290
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPlatBankName1'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          OnClick = lbPlatBankName1_Click
          DataField = 'OWNACNT_BANK_NAME'
          DataSource = ADSDocCmp
        end
        object lbFO: xbLabel
          Left = 296
          Top = 49
          Width = 250
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbFO'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'FO_SHORTNAME'
          DataSource = ADSDocCmp
        end
        object lePlatCode: xbLabelEdit
          Left = 6
          Top = 2
          Width = 280
          Height = 21
          BorderColor = clWindowText
          Caption = #1055#1088#1077#1076#1087#1088#1080#1103#1090#1080#1077
          CaptionAlignment = taLeftJustify
          DataField = 'FINOBJ_COD_BUD_P'
          DataSource = ADS
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 0
          LabelWidth = 130
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object lerGlavCode: xbLabelEditRefer
          Left = 6
          Top = 68
          Width = 280
          Height = 21
          BorderColor = clWindowText
          Caption = #1043#1083#1072#1074#1085#1099#1081' '#1088#1072#1089#1087#1086#1088#1103#1076#1080#1090#1077#1083#1100
          CaptionAlignment = taLeftJustify
          DataField = 'PART_COD_BUD_P'
          DataSource = ADSDocCmp
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 5
          LabelWidth = 130
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          OnEnter = lerGlavCode_Enter
          OnExit = lerGlavCode_Exit
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'R_ID'
          BeforeButtonClick = lerGlavCode_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 'CODE;-1;100;1;0;'#1050#1086#1076'|SORTNAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
          FindFieldName = 'COD_BUD_P'
          FindFieldType = tfCharacterString
          OutFieldsArray = 'PART_ID'
          PutFieldsArray = 'R_ID'
          ReferCaption = #1057#1087#1080#1089#1086#1082
          ReferWidth = 450
          TypeFindFieldName = 'COD_BUD_P'
          xReferId = 0
          IsHarbourRefer = True
        end
        object lerBudLev: xbLabelEditRefer
          Left = 487
          Top = 46
          Width = 140
          Height = 21
          BorderColor = clWindowText
          Caption = #1041#1102#1076#1078#1077#1090
          CaptionAlignment = taLeftJustify
          DataField = 'BUD_LEV'
          DataSource = ADSDocCmp
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 4
          LabelWidth = 50
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          OnEnter = lerGlavCode_Enter
          OnExit = lerGlavCode_Exit
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'BUD_LEV'
          BeforeButtonClick = lerGlavCode_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 'CODE;-1;100;1;0;'#1050#1086#1076'|NAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
          FindFieldName = 'BUD_LEV'
          FindFieldType = tfCharacterString
          ListDataSet = DSBudLev
          OutFieldsArray = 'CODE'
          PutFieldsArray = 'BUD_LEV'
          ReferCaption = #1057#1087#1080#1089#1086#1082
          ReferWidth = 450
          TypeFindFieldName = 'BUD_LEV'
          xReferId = 0
          IsHarbourRefer = True
        end
        object lePlatAcnt1: xbLabelEdit
          Left = 6
          Top = 24
          Width = 280
          Height = 21
          BorderColor = clWindowText
          Caption = #1051#1080#1094#1077#1074#1086#1081' '#1089#1095#1077#1090
          CaptionAlignment = taLeftJustify
          DataField = 'OWNACNT_NUM'
          DataSource = ADSDocCmp
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 1
          LabelWidth = 130
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object lerPlatBankCode1: xbLabelEdit
          Left = 296
          Top = 24
          Width = 110
          Height = 21
          BorderColor = clWindowText
          Caption = #1074' '#1054#1060#1050'     '
          CaptionAlignment = taLeftJustify
          DataField = 'OWNACNT_COD_BUD_P'
          DataSource = ADSDocCmp
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 2
          LabelWidth = 40
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object lerFO: xbLabelEditRefer
          Left = 6
          Top = 46
          Width = 280
          Height = 21
          BorderColor = clWindowText
          Caption = #1060#1080#1085'. '#1086#1088#1075#1072#1085
          CaptionAlignment = taLeftJustify
          DataField = 'FO_COD_BUD_P'
          DataSource = ADSDocCmp
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 3
          LabelWidth = 130
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'FO_ID'
          BeforeButtonClick = lerFO_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 'CODE;-1;100;1;0;'#1050#1086#1076'|SORTNAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
          FindFieldName = 'COD_BUD_P'
          FindFieldType = tfCharacterString
          OutFieldsArray = 'PART_ID'
          PutFieldsArray = 'FO_ID'
          ReferCaption = #1057#1087#1080#1089#1086#1082
          ReferWidth = 450
          TypeFindFieldName = 'COD_BUD_P'
          xReferId = 0
          IsHarbourRefer = True
        end
      end
      object lcbStatus: xbLabelCombo
        Left = 254
        Top = 24
        Width = 140
        Height = 21
        ParentBackGround = True
        Caption = #1057#1090#1072#1090#1091#1089
        Enabled = False
        TabOrder = 5
        LabelWidth = 40
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Sorted = False
        EditColor = clWindow
        DisabledColor = clInactiveBorder
        DisabledFontColor = clBlack
        BorderColor = clWindowText
        AutoComplete = False
        Style = csDropDownList
        CharCase = ecNormal
        DropDownCount = 0
        ItemHeight = 0
        MaxLength = 0
        Items.Strings = (
          #1095#1077#1088#1085#1086#1074#1080#1082
          #1087#1077#1088#1077#1076#1072#1085
          #1086#1087#1083#1072#1095#1077#1085)
        ItemIndex = -1
        UseStandartHint = True
      end
      object leDocVid: xbLabelEdit
        Left = 8
        Top = 2
        Width = 236
        Height = 21
        BorderColor = clWindowText
        Caption = #1044#1086#1082#1091#1084#1077#1085#1090':     '#1074#1080#1076'    '
        CaptionAlignment = taLeftJustify
        DataField = 'DOC_CODE'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 0
        LabelWidth = 156
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leDocNum: xbLabelEdit
        Left = 402
        Top = 2
        Width = 60
        Height = 21
        BorderColor = clWindowText
        Caption = #1085#1086#1084#1077#1088'    '
        CaptionAlignment = taLeftJustify
        DataField = 'DOC_NUM'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 2
        LabelWidth = 0
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leDocDate: xbLabelEdit
        Left = 473
        Top = 2
        Width = 120
        Height = 21
        BorderColor = clWindowText
        Caption = #1076#1072#1090#1072'    '
        CaptionAlignment = taLeftJustify
        DataField = 'DOC_DATE'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 3
        LabelWidth = 30
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object lePayDate: xbLabelEdit
        Left = 8
        Top = 24
        Width = 236
        Height = 21
        BorderColor = clWindowText
        Caption = #1055#1088#1077#1076#1077#1083#1100#1085#1072#1103' '#1076#1072#1090#1072' '#1080#1089#1087#1086#1083#1085#1077#1085#1080#1103
        CaptionAlignment = taLeftJustify
        DataField = 'PAY_DATE'
        DataSource = ADSDocCmp
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 4
        LabelWidth = 156
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnExit = lePayDate_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leOperDate: xbLabelEdit
        Left = 423
        Top = 24
        Width = 170
        Height = 21
        BorderColor = clWindowText
        Caption = #1044#1072#1090#1072' '#1086#1087#1077#1088#1072#1094#1080#1080
        CaptionAlignment = taLeftJustify
        DataField = 'OPER_DATE'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 6
        LabelWidth = 80
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnExit = leOperDate_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leDopNum: xbLabelEdit
        Left = 254
        Top = 2
        Width = 140
        Height = 21
        BorderColor = clWindowText
        Caption = #1085#1086#1084#1077#1088'    '
        CaptionAlignment = taLeftJustify
        DataField = 'DOP_NUM'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 1
        LabelWidth = 40
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        MaxLength = 13
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leRegNum: xbLabelEdit
        Left = 8
        Top = 68
        Width = 236
        Height = 21
        BorderColor = clWindowText
        Caption = #1056#1077#1075#1080#1089#1090#1088#1072#1094#1080#1103' '#1074' '#1054#1060#1050'     '#1085#1086#1084#1077#1088'     '
        CaptionAlignment = taLeftJustify
        DataField = 'REG_NUM'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 10
        LabelWidth = 156
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        MaxLength = 13
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leRegDate: xbLabelEdit
        Left = 254
        Top = 68
        Width = 140
        Height = 21
        BorderColor = clWindowText
        Caption = '    '#1076#1072#1090#1072'    '
        CaptionAlignment = taLeftJustify
        DataField = 'REG_DATE'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 11
        LabelWidth = 40
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnExit = leRegDate_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object bFrame3: xbFrame
        Left = 8
        Top = 185
        Width = 710
        Height = 135
        TabOrder = 15
        Anchors = [akLeft, akTop, akRight]
        DesignSize = (
          710
          135)
        object lbPolName: xbLabel
          Left = 296
          Top = 5
          Width = 410
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPolName'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'PART_SHORTNAME'
          DataSource = ADS
        end
        object lbPolBankCode1: xbLabel
          Left = 426
          Top = 27
          Width = 280
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPolBankCode1'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'PRTACNT_BANK_NAME'
          DataSource = ADSDocCmp
        end
        object lbPolBankCode2: xbLabel
          Left = 426
          Top = 49
          Width = 280
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPolBankCode2'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          OnClick = lbBankName2_Click
          DataField = 'PRTACNTCMPBNK_NAME'
          DataSource = ADSDocCmp
        end
        object lerPolCode: xbLabelEditRefer
          Left = 6
          Top = 2
          Width = 280
          Height = 21
          BorderColor = clWindowText
          Caption = #1050#1086#1085#1090#1088#1072#1075#1077#1085#1090
          CaptionAlignment = taLeftJustify
          DataField = 'PART_CODE'
          DataSource = ADS
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 0
          LabelWidth = 130
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          OnEnter = lerPolCode_Enter
          OnExit = lerPolCode_Exit
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'PRT_ID'
          BeforeButtonClick = lerPolCode_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 'CODE;-1;100;1;0;'#1050#1086#1076'|SORTNAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
          FindFieldName = 'CODE'
          FindFieldType = tfCharacterString
          ListDataSet = DSPartner
          OutFieldsArray = 'PART_ID'
          PutFieldsArray = 'PRT_ID'
          ReferCaption = #1057#1087#1080#1089#1086#1082
          ReferWidth = 450
          TypeFindFieldName = 'CODE'
          xReferId = 0
          IsHarbourRefer = True
          OnSelect = lerPolCode_Select
        end
        object lerPolAcnt1: xbLabelEditRefer
          Left = 6
          Top = 24
          Width = 280
          Height = 21
          BorderColor = clWindowText
          Caption = #1056#1072#1089#1095#1077#1090#1085#1099#1081' '#1089#1095#1077#1090
          CaptionAlignment = taLeftJustify
          DataField = 'PRTACNT_NUM'
          DataSource = ADSDocCmp
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 1
          LabelWidth = 130
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          OnExit = lerPolAcnt1_Exit
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'P_ACNT_ID'
          BeforeButtonClick = lerPolAcnt1_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 'Accnt;-1;50;1;-1;'#1057#1095#1077#1090'|GetBankName;-1;150;1;-1;'#1041#1072#1085#1082
          FindFieldName = 'ACCNT'
          FindFieldType = tfCharacterString
          ListDataSet = DSPolAcnt1
          OutFieldsArray = 'REC_ID'
          PutFieldsArray = 'P_ACNT_ID'
          ReferCaption = #1057#1095#1077#1090' '#1074' '#1073#1072#1085#1082#1077
          TypeFindFieldName = 'ACCNT'
          xReferId = 0
          IsHarbourRefer = True
          OnSelect = lerPolAcnt1_Select
        end
        object lerPolBankCode2: xbLabelEditRefer
          Left = 296
          Top = 46
          Width = 120
          Height = 21
          BorderColor = clWindowText
          Caption = #1074' '#1073#1072#1085#1082#1077
          CaptionAlignment = taLeftJustify
          DataField = 'PRTACNTCMPBNK_CODE'
          DataSource = ADSDocCmp
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 4
          LabelWidth = 42
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'P_ACNT_BNK'
          BeforeButtonClick = lerPolBankCode2_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 'Bnk_Code;-1;50;1;-1;'#1050#1086#1076'|Bnk_Name;-1;150;1;-1;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
          FindFieldName = 'BNK_CODE'
          FindFieldType = tfCharacterString
          ListDataSet = DSPolBank2
          OutFieldsArray = 'BNK_ID'
          PutFieldsArray = 'P_ACNT_BNK'
          ReferCaption = #1057#1095#1077#1090' '#1074' '#1073#1072#1085#1082#1077
          TypeFindFieldName = 'BNK_CODE'
          xReferId = 0
          IsHarbourRefer = True
        end
        object lePolBankCode1: xbLabelEdit
          Left = 296
          Top = 24
          Width = 120
          Height = 21
          BorderColor = clWindowText
          Caption = #1074' '#1073#1072#1085#1082#1077
          CaptionAlignment = taLeftJustify
          DataField = 'PRTACNT_BNK_COD_B'
          DataSource = ADSDocCmp
          ButtonsColor = clBlack
          EnabledColor = clWhite
          TabOrder = 2
          LabelWidth = 42
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object lerPolAcnt2: xbLabelEditRefer
          Left = 136
          Top = 46
          Width = 150
          Height = 21
          BorderColor = clWindowText
          Caption = #1056#1072#1089#1095#1077#1090#1085#1099#1081' '#1089#1095#1077#1090
          CaptionAlignment = taLeftJustify
          DataField = 'PRTACNTCMP_NUM'
          DataSource = ADSDocCmp
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 3
          LabelWidth = 0
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'P_ACNT_CMP'
          BeforeButtonClick = lerPolAcnt2_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 'Accnt;-1;50;1;-1;'#1057#1095#1077#1090'|GetBankName;-1;150;1;-1;'#1041#1072#1085#1082
          FindFieldName = 'ACCNT'
          FindFieldType = tfCharacterString
          ListDataSet = DSPolAcnt2
          OutFieldsArray = 'REC_ID'
          PutFieldsArray = 'P_ACNT_CMP'
          ReferCaption = #1057#1095#1077#1090' '#1074' '#1073#1072#1085#1082#1077
          TypeFindFieldName = 'ACCNT'
          xReferId = 0
          IsHarbourRefer = True
        end
        object lerDocOsnVid: xbLabelEditRefer
          Left = 6
          Top = 68
          Width = 280
          Height = 21
          BorderColor = clWindowText
          Caption = #1044#1086#1082'.-'#1086#1089#1085#1086#1074#1072#1085#1080#1077'        '#1074#1080#1076'      '
          CaptionAlignment = taLeftJustify
          DataField = 'APCARD_CNTYPE'
          DataSource = ADS
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 5
          LabelWidth = 130
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          OnEnter = lerDocOsnVid_Enter
          OnExit = lerDocOsnVid_Exit
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'ACNT_ID'
          BeforeButtonClick = lerDocOsnVid_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 
            'DOC_VID;-1;30;1;-1;'#1042#1080#1076'|CNJURNO;-1;160;1;-1;'#1053#1086#1084#1077#1088'|CNREGNO;-1;40;1' +
            ';-1;'#1053#1086#1084#1077#1088'|DOC_DATE;-1;60;1;-1;'#1044#1072#1090#1072'|CUR;-1;40;1;-1;'#1042#1072#1083#1102#1090#1072'|OST;-1;' +
            '80;1;-1;'#1054#1089#1090#1072#1090#1086#1082'|CURS;-1;50;1;-1;'#1050#1091#1088#1089'|SUMMA;-1;90;1;-1;'#1057#1091#1084#1084#1072' '#1087#1086' '#1082 +
            #1091#1088#1089#1091
          FindFieldName = 'CARD_ID'
          FindFieldType = tfCharacterString
          ListDataSet = DSApCardSpr
          OutFieldsArray = 'CARD_ID'
          PutFieldsArray = 'ACNT_ID'
          ReferCaption = #1044#1086#1082#1091#1084#1077#1085#1090#1099'-'#1086#1089#1085#1086#1074#1072#1085#1080#1103
          ReferWidth = 580
          TypeFindFieldName = 'CARD_ID'
          xReferId = 0
          IsHarbourRefer = True
          OnSelect = lerDocOsnVid_Select
        end
        object leDocOsnJurNum: xbLabelEdit
          Left = 296
          Top = 68
          Width = 175
          Height = 21
          BorderColor = clWindowText
          Caption = #1085#1086#1084#1077#1088'    '
          CaptionAlignment = taLeftJustify
          DataField = 'APCARD_CNJURNO'
          DataSource = ADS
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 6
          LabelWidth = 42
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object ledDocOsnDate: xbLabelEditCalend
          Left = 533
          Top = 68
          Width = 100
          Height = 21
          BorderColor = clWindowText
          Caption = #1076#1072#1090#1072'        '
          CaptionAlignment = taLeftJustify
          DataField = 'APCARD_CNJURD'
          DataSource = ADS
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          EditMask = '!99/99/0000;1; '
          TabOrder = 7
          LabelWidth = 30
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          MaxLength = 10
          Text = '  /  /    '
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2;Alt+Down'
          EnabledEdit = False
          VisibleButton = False
        end
        object leDocOsnRegNum: xbLabelEdit
          Left = 476
          Top = 68
          Width = 45
          Height = 21
          BorderColor = clWindowText
          Caption = #1085#1086#1084#1077#1088'    '
          CaptionAlignment = taLeftJustify
          DataField = 'APCARD_CNREGNO'
          DataSource = ADS
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 8
          LabelWidth = 0
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object leAcTp: xbLabelEdit
          Left = 81
          Top = 90
          Width = 350
          Height = 21
          BorderColor = clWindowText
          Caption = #1087#1086#1076#1088#1086#1073#1085#1086
          CaptionExtender = ceNone
          CaptionAlignment = taLeftJustify
          DataField = 'AC_TP'
          DataSource = ADSDocCmp
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 9
          LabelWidth = 55
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object leAcNum: xbLabelEdit
          Left = 436
          Top = 90
          Width = 122
          Height = 21
          BorderColor = clWindowText
          Caption = #1085#1086#1084#1077#1088'    '
          CaptionAlignment = taLeftJustify
          DataField = 'AC_NUM'
          DataSource = ADSDocCmp
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 10
          LabelWidth = 0
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object ledAcDate: xbLabelEditCalend
          Left = 563
          Top = 90
          Width = 70
          Height = 21
          BorderColor = clWindowText
          Caption = #1076#1072#1090#1072
          CaptionAlignment = taLeftJustify
          DataField = 'AC_DATE'
          DataSource = ADSDocCmp
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          EditMask = '!99/99/0000;1; '
          TabOrder = 11
          LabelWidth = 0
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          MaxLength = 10
          Text = '  /  /    '
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2;Alt+Down'
          EnabledEdit = False
          VisibleButton = False
        end
        object cbNoList: xbCheckBox
          Left = 6
          Top = 112
          Width = 220
          Height = 21
          Caption = #1041#1054' '#1088#1077#1075'. '#1085#1086#1084#1077#1088' . . . . . . . . '#1085#1077#1090' '#1074' '#1088#1077#1077#1089#1090#1088#1077
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 12
          TabStop = True
          OnClick = cbNoList_Click
          ValueChecked = '1'
          ValueUnchecked = '0'
          DataField = 'NO_LIST'
          DataSource = ADS
        end
        object lerBORegNum: xbLabelEditRefer
          Left = 246
          Top = 112
          Width = 170
          Height = 21
          BorderColor = clWindowText
          Caption = #1041#1054' '#1088#1077#1075'. '#1085#1086#1084#1077#1088
          CaptionAlignment = taLeftJustify
          DataField = 'BO_REG_NUM'
          DataSource = ADS
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 13
          LabelWidth = 0
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          Required = True
          OnExit = lerBORegNum_Exit
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'BO_REG_NUM'
          BeforeButtonClick = lerBORegNum_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 
            'REG_NUM;-1;100;1;-1;'#1056#1077#1075'. '#1085#1086#1084#1077#1088'|REG_DATE;-1;100;1;-1;'#1044#1072#1090#1072' '#1088#1077#1075#1080#1089#1090#1088 +
            #1072#1094#1080#1080
          FindFieldName = 'REG_NUM'
          FindFieldType = tfCharacterString
          FindFieldValue = 'BO_REG_NUM'
          ListDataSet = DSFinPlnSpr
          OutFieldsArray = 'REG_NUM'
          PutFieldsArray = 'BO_REG_NUM'
          ReferCaption = #1044#1086#1082#1091#1084#1077#1085#1090#1099'-'#1086#1089#1085#1086#1074#1072#1085#1080#1103
          ReferWidth = 550
          TypeFindFieldName = 'REG_NUM'
          xReferId = 0
          IsHarbourRefer = True
          OnSelect = lerBORegNum_Select
        end
      end
      object lerVal: xbLabelEditRefer
        Left = 8
        Top = 321
        Width = 120
        Height = 21
        BorderColor = clWindowText
        Caption = #1042#1072#1083#1102#1090#1072
        CaptionAlignment = taLeftJustify
        DataField = 'CURR'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 16
        LabelWidth = 50
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'CURR'
        EnabledEdit = False
        EnabledButton = False
        BeforeButtonClick = lerVal_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'CODE;-1;50;1;-1;'#1050#1086#1076'|NAME;-1;200;1;-1;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldName = 'CODE'
        FindFieldType = tfCharacterString
        OutFieldsArray = 'CODE'
        PutFieldsArray = 'CURR'
        ReferCaption = #1057#1087#1088#1072#1074#1086#1095#1085#1080#1082' '#1074#1072#1083#1102#1090
        TypeFindFieldName = 'CODE'
        xReferId = 0
        IsHarbourRefer = True
      end
      object lecSumma: xbLabelEditCalc
        Left = 8
        Top = 321
        Width = 286
        Height = 21
        BorderColor = clWindowText
        Caption = #1057#1091#1084#1084#1072
        CaptionAlignment = taLeftJustify
        DataField = 'SUM'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        TabOrder = 17
        LabelWidth = 136
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        OnEnter = lecSumma_Enter
        OnExit = lecSumma_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        VisibleButton = False
        OnSelect = lecSumma_Select
      end
      object lerNalModelCode: xbLabelEditRefer
        Left = 304
        Top = 321
        Width = 336
        Height = 21
        BorderColor = clWindowText
        Caption = #1053#1072#1083#1086#1075#1086#1074#1072#1103' '#1084#1086#1076#1077#1083#1100
        CaptionAlignment = taLeftJustify
        DataField = 'TAXMOD_NAME'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 18
        LabelWidth = 106
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnEnter = lerNalModelCode_Enter
        OnExit = lerNalModelCode_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'TAX_MOD_ID'
        BeforeButtonClick = lerNalModelCode_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'MD_CODE;-1;50;1;-1;'#1050#1086#1076'|MD_NAME;-1;200;1;-1;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldName = 'MD_NAME'
        FindFieldType = tfCharacterString
        ListDataSet = DSTaxMod
        OutFieldsArray = 'MOD_ID'
        PutFieldsArray = 'TAX_MOD_ID'
        ReferCaption = #1053#1072#1083#1086#1075#1086#1074#1099#1077' '#1084#1086#1076#1077#1083#1080
        TypeFindFieldName = 'MD_NAME'
        xReferId = 0
        IsHarbourRefer = True
        OnSelect = lerNalModelCode_Select
      end
      object memNaznPlat: xbMemo
        Left = 144
        Top = 343
        Width = 478
        Height = 34
        ColorFlat = clBtnFace
        ParentColor = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        MaxLength = 210
        ParentFont = False
        TabOrder = 19
        OnKeyDown = memNaznPlat_KeyDown
        AutoDisplay = False
        BorderStyle = bsNone
        Color = clWhite
        DisabledColor = clInactiveBorder
        DisabledFontColor = 7368816
        DataField = 'COMMENT'
        DataSource = ADS
      end
      object btNaznPlat: xbButton
        Left = 624
        Top = 343
        Width = 21
        Height = 21
        Caption = '...'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        RoundedButton = True
        TabOrder = 20
        ButtonColor = clBlack
      end
      object lerPlQue: xbLabelEditRefer
        Left = 598
        Top = 46
        Width = 120
        Height = 21
        BorderColor = clWindowText
        Caption = #1054#1095#1077#1088#1077#1076#1085#1086#1089#1090#1100
        CaptionAlignment = taLeftJustify
        DataField = 'PL_QUE'
        DataSource = ADSDocCmp
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 9
        LabelWidth = 70
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnEnter = lerGlavCode_Enter
        OnExit = lerGlavCode_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'PL_QUE'
        BeforeButtonClick = lerGlavCode_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'CODE;-1;100;1;0;'#1050#1086#1076'|NAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldName = 'PL_QUE'
        FindFieldType = tfCharacterString
        ListDataSet = DSPlQue
        OutFieldsArray = 'CODE'
        PutFieldsArray = 'PL_QUE'
        ReferCaption = #1057#1087#1080#1089#1086#1082
        ReferWidth = 450
        TypeFindFieldName = 'PL_QUE'
        xReferId = 0
        IsHarbourRefer = True
      end
      object leBnkNum: xbLabelEdit
        Left = 408
        Top = 68
        Width = 185
        Height = 21
        BorderColor = clWindowText
        Caption = #1044#1086#1082'.'#1073#1072#1085#1082#1072': '#1085#1086#1084#1077#1088'     '
        CaptionAlignment = taLeftJustify
        DataField = 'BNK_NUM'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 12
        LabelWidth = 95
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leBnkDate: xbLabelEdit
        Left = 598
        Top = 68
        Width = 120
        Height = 21
        BorderColor = clWindowText
        Caption = ' '#1076#1072#1090#1072'    '
        CaptionExtender = ceNone
        CaptionAlignment = taLeftJustify
        DataField = 'BNK_DATE'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 13
        LabelWidth = 30
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnExit = leRegDate_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
    end
    object TabSheet2: TTabSheet
      Caption = #1056#1072#1089#1096#1080#1092#1088#1086#1074#1082#1072
      DesignSize = (
        726
        378)
      object bFrame2: xbFrame
        Left = 8
        Top = 8
        Width = 710
        Height = 364
        TabOrder = 0
        Anchors = [akLeft, akTop, akRight, akBottom]
        OnClick = bFrame2_Click
        object GridBudExp: xbGrid
          Left = 0
          Top = 0
          Width = 710
          Height = 351
          Align = alTop
          Anchors = [akLeft, akTop, akRight, akBottom]
          AutoFitColWidths = True
          DataSource = ADSBudExp
          Flat = True
          FooterColor = clWindow
          FooterFont.Charset = DEFAULT_CHARSET
          FooterFont.Color = clWindowText
          FooterFont.Height = -11
          FooterFont.Name = 'MS Sans Serif'
          FooterFont.Style = []
          Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgConfirmDelete]
          ReadOnly = True
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          UseMultiTitle = True
          VertScrollBar.VisibleMode = sbAlwaysShowEh
          OnDblClick = GridBudExpFin_DblClick
          OnKeyPress = GridBudExpFin_KeyPress
          IdGrid = '{B0BDE074-E62A-4CA1-A8AB-5750290B3D75}'
          Columns = <
            item
              EditButtons = <>
              FieldName = 'FIN_TP'
              Footers = <>
              Title.Caption = #1048#1060
              Width = 33
            end
            item
              EditButtons = <>
              FieldName = 'EXP_DIM'
              Footers = <>
              Title.Caption = #1040#1085#1072#1083#1080#1090#1080#1082#1072' '#1087#1083#1072#1090#1077#1083#1100#1097#1080#1082#1072
              Width = 174
            end
            item
              EditButtons = <>
              FieldName = 'DOP_DIM'
              Footers = <>
              Title.Caption = #1040#1085#1072#1083#1080#1090#1080#1082#1072' '#1087#1086#1083#1091#1095#1072#1090#1077#1083#1103
              Width = 174
            end
            item
              Alignment = taRightJustify
              EditButtons = <>
              FieldName = 'SUM_KR'
              Footers = <>
              Title.Caption = #1057#1091#1084#1084#1072
              Width = 98
            end
            item
              EditButtons = <>
              FieldName = 'PRIM'
              Footers = <>
              Title.Caption = #1053#1072#1079#1085#1072#1095#1077#1085#1080#1077
              Width = 178
            end
            item
              Alignment = taCenter
              EditButtons = <>
              FieldName = 'VIS_STRTP'
              Footers = <>
              Title.Caption = ' '
              Width = 16
            end>
        end
        object GridItogBudExp: xbGrid
          Left = 0
          Top = 347
          Width = 710
          Height = 17
          TabStop = False
          Align = alBottom
          AutoFitColWidths = True
          ColorActiveCursor = clWindow
          ColorActiveCursorFont = clWindowText
          DataSource = ADSItogBudExp
          Enabled = False
          FixedColor = clWindow
          Flat = True
          FooterColor = clWindow
          FooterFont.Charset = DEFAULT_CHARSET
          FooterFont.Color = clWindowText
          FooterFont.Height = -11
          FooterFont.Name = 'MS Sans Serif'
          FooterFont.Style = []
          FrozenCols = 5
          HorzScrollBar.Visible = False
          Options = [dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgConfirmDelete]
          OptionsEh = [dghFixed3D, dghClearSelection]
          ReadOnly = True
          RowOddColor = clWindow
          TabOrder = 1
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          UseMultiTitle = True
          VertScrollBar.VisibleMode = sbAlwaysShowEh
          IdGrid = '{8619C54D-8DA0-4F81-8BAE-1C4B64E51D14}'
          Columns = <
            item
              EditButtons = <>
              FieldName = 'FIN_TP'
              Footers = <>
              Width = 33
            end
            item
              Alignment = taRightJustify
              EditButtons = <>
              FieldName = 'EXP_DIM'
              Footers = <>
              Width = 179
            end
            item
              Alignment = taRightJustify
              EditButtons = <>
              FieldName = 'DOP_DIM'
              Footers = <>
              Width = 179
            end
            item
              Alignment = taRightJustify
              EditButtons = <>
              FieldName = 'SUM_KR'
              Footers = <>
              Width = 100
            end
            item
              EditButtons = <>
              FieldName = 'PRIM'
              Footers = <>
              Width = 182
            end
            item
              AutoFitColWidth = False
              EditButtons = <>
              FieldName = 'EMPTY_COL'
              Footers = <>
              Width = 0
            end>
        end
      end
    end
    object TabSheet3: TTabSheet
      Caption = #1055#1088#1086#1074#1086#1076#1082#1080
      DesignSize = (
        726
        378)
      object txtopert: xbLabel
        Left = 261
        Top = 9
        Width = 302
        Height = 17
        Caption = 'txtopert'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
        Layout = tlCenter
        DataField = 'TYPEOP_NAME'
        DataSource = ADS
      end
      object lblDt: xbLabel
        Left = 6
        Top = 348
        Width = 714
        Height = 16
        Anchors = [akLeft, akRight, akBottom]
        Caption = '1'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
      end
      object lblKt: xbLabel
        Left = 6
        Top = 362
        Width = 714
        Height = 16
        Anchors = [akLeft, akRight, akBottom]
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
      end
      object rfOPerT: xbLabelEditRefer
        Left = 6
        Top = 6
        Width = 250
        Height = 21
        BorderColor = clWindowText
        Caption = #1058#1080#1087#1086#1074#1072#1103' '#1086#1087#1077#1088#1072#1094#1080#1103
        CaptionAlignment = taLeftJustify
        DataField = 'TYPEOP_CODE'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 0
        LabelWidth = 124
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'TYPE_OP'
        OnClearButtonClick = rfOPerT_ClearButtonClick
        VisibleButton = True
        UseStandartHint = True
        FindFieldName = 'code'
        FindFieldType = tfCharacterString
        OutFieldsArray = 'REC_ID'
        PutFieldsArray = 'TYPE_OP'
        ReferCaption = #1057#1087#1080#1089#1086#1082' '#1090#1080#1087#1086#1074#1099#1093' '#1086#1087#1077#1088#1072#1094#1080#1081
        TypeFindFieldName = 'code'
        xReferId = 0
        IsHarbourRefer = False
      end
      object bGrProv: xbGrid
        Left = 6
        Top = 31
        Width = 714
        Height = 315
        Anchors = [akLeft, akTop, akRight, akBottom]
        AutoFitColWidths = True
        DataSource = adsMain
        Flat = True
        FooterColor = clWindow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -11
        FooterFont.Name = 'MS Sans Serif'
        FooterFont.Style = []
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
        ReadOnly = True
        TabOrder = 1
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        UseMultiTitle = True
        VTitleMargin = 4
        OnDblClick = bGrid2_DblClick
        OnKeyPress = bGrid2_KeyPress
        IdGrid = '{D28F213E-6D37-42AA-9B15-0DB54C52AE30}'
        Columns = <
          item
            Checkboxes = True
            EditButtons = <>
            FieldName = 'X_ISMARK_'
            Footers = <>
            Title.Caption = ' '
            Width = 22
          end
          item
            EditButtons = <>
            FieldName = 'DT_SCHET'
            Footers = <>
            Title.Caption = #1057#1095#1077#1090'|'#1044#1077#1073#1077#1090
            Width = 80
          end
          item
            EditButtons = <>
            FieldName = 'KT_SCHET'
            Footers = <>
            Title.Caption = #1057#1095#1077#1090'|'#1050#1088#1077#1076#1080#1090
            Width = 80
          end
          item
            EditButtons = <>
            FieldName = 'NAMEOPER'
            Footers = <>
            Title.Caption = #1057#1086#1076#1077#1088#1078#1072#1085#1080#1077
            Width = 323
          end
          item
            EditButtons = <>
            FieldName = 'SUMMA'
            Footers = <>
            Title.Caption = #1057#1091#1084#1084#1072
            Width = 120
          end>
      end
    end
  end
  object btnOK: xbButton
    Left = 578
    Top = 409
    Width = 75
    Height = 21
    Hint = #1057#1086#1093#1088#1072#1085#1077#1085#1080#1077' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (F10)'
    Caption = #1054#1050
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 6
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btnCANCEL: xbButton
    Left = 661
    Top = 409
    Width = 75
    Height = 21
    Hint = #1042#1099#1093#1086#1076' '#1080#1079' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (Esc)'
    Caption = #1054#1090#1084#1077#1085#1072
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 7
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object pOperation: xbPopupButton
    Left = 495
    Top = 409
    Width = 75
    Height = 21
    Caption = #1054#1087#1077#1088#1072#1094#1080#1080
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = MenuOperation
    RoundedButton = True
    TabOrder = 5
    OnClick = pOperation_Click
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btRaschet: xbPopupButton
    Left = 223
    Top = 409
    Width = 75
    Height = 21
    Caption = #1056#1072#1089#1095#1077#1090#1099
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = MenuRaschet
    RoundedButton = True
    TabOrder = 2
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object pbDopData: xbPopupButton
    Left = 387
    Top = 409
    Width = 100
    Height = 21
    Caption = #1044#1086#1087'. '#1076#1072#1085#1085#1099#1077
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = MenuDopData
    RoundedButton = True
    TabOrder = 4
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btNalogi: xbButton
    Left = 306
    Top = 409
    Width = 75
    Height = 21
    Hint = ' '#1053#1072#1076#1073#1072#1074#1082#1080' (Ctrl+N)'
    Caption = #1053#1072#1083#1086#1075#1080
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 3
    OnClick = btNalogi_Click
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object bDocDim: xbButton
    Left = 136
    Top = 409
    Width = 75
    Height = 21
    Hint = #1042#1074#1086#1076' Ctrl-D'
    Caption = #1048#1079#1084#1077#1088#1077#1085#1080#1103
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 1
    OnClick = bPlDoc_Click
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <>
    OEMTranslate = False
    Left = 109
    Top = 3
  end
  object ADS: xbADSDataSource
    DataSet = DS
    Left = 145
    Top = 3
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_FIN_DOC'
    Active = False
    Left = 72
    Top = 3
  end
  object BODocCmp: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_DOC_CMP'
    Active = False
    Left = 602
    Top = 92
  end
  object DSDocCmp: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BODocCmp
    FieldDefs = <>
    OEMTranslate = False
    Left = 604
    Top = 138
  end
  object ADSDocCmp: xbADSDataSource
    DataSet = DSDocCmp
    Left = 607
    Top = 194
  end
  object BOMvTp: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_MOVE_TP'
    Active = False
    Left = 362
    Top = 87
  end
  object DSMvTp: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOMvTp
    FieldDefs = <>
    OEMTranslate = False
    Left = 415
    Top = 89
  end
  object BOReasons: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_REASONS'
    Active = False
    Left = 475
    Top = 92
  end
  object DSReasons: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOReasons
    FieldDefs = <>
    OEMTranslate = False
    Left = 534
    Top = 92
  end
  object BOBudExp: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_BUD_EXP'
    Active = False
    Left = 271
    Top = 201
  end
  object DSBudExp: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOBudExp
    FieldDefs = <>
    ReadOnly = True
    OEMTranslate = False
    Left = 351
    Top = 195
  end
  object ADSBudExp: xbADSDataSource
    DataSet = DSBudExp
    Left = 438
    Top = 194
  end
  object DSItogBudExp: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    ReadOnly = True
    OEMTranslate = False
    Left = 353
    Top = 244
  end
  object ADSItogBudExp: xbADSDataSource
    DataSet = DSItogBudExp
    Left = 443
    Top = 243
  end
  object BOBudLev: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_BUD_LEV'
    Active = False
    Left = 533
    Top = 48
  end
  object DSBudLev: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOBudLev
    FieldDefs = <>
    OEMTranslate = False
    Left = 586
    Top = 48
  end
  object MenuOperation: xbPopupMenu
    Left = 610
    Top = 245
    object pStatus: TMenuItem
      Caption = #1057#1090#1072#1090#1091#1089'                                             Alt-S'
      object pStatus1: TMenuItem
        Caption = #1063#1077#1088#1085#1086#1074#1080#1082
      end
      object pStatus2: TMenuItem
        Caption = #1055#1077#1088#1077#1076#1072#1085
      end
      object pStatus3: TMenuItem
        Caption = #1054#1087#1083#1072#1095#1077#1085
      end
    end
    object miCopyProv: TMenuItem
      Caption = #1050#1086#1087#1080#1088#1086#1074#1072#1090#1100' '#1087#1088#1086#1074#1086#1076#1082#1091'                       F5'
      OnClick = miCopyProv_Click
    end
    object miCopyBudExp: TMenuItem
      Caption = #1050#1086#1087#1080#1088#1086#1074#1072#1090#1100' '#1089#1090#1088#1086#1082#1091' '#1088#1072#1089#1096#1080#1092#1088#1086#1074#1082#1080'   F5'
      OnClick = miCopyBudExp_Click
    end
    object miNaznPlat: TMenuItem
      Caption = #1055#1077#1088#1077#1092#1086#1088#1084#1080#1088#1086#1074#1072#1090#1100' '#1085#1072#1079#1085#1072#1095#1077#1085#1080#1077'  Ctrl+P'
      OnClick = miNaznPlat_Click
    end
  end
  object adsMain: xbADSDataSource
    DataSet = DSMAIN
    Left = 544
    Top = 198
  end
  object DSMAIN: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    xbsClassName = 'MAIN'
    BObject = BO
    FieldDefs = <
      item
        Name = 'NNOPER'
        DataType = ftFloat
      end
      item
        Name = 'TASK'
        DataType = ftString
        Size = 2
      end
      item
        Name = 'TaskName'
        DataType = ftString
        Size = 40
      end
      item
        Name = 'JrnName'
        DataType = ftString
        Size = 40
      end
      item
        Name = 'JrnCode'
        DataType = ftString
        Size = 4
      end
      item
        Name = 'DATAOPER'
        DataType = ftDate
      end
      item
        Name = 'NNDOC'
        DataType = ftString
        Size = 6
      end
      item
        Name = 'DT_SCHET'
        DataType = ftString
        Size = 16
      end
      item
        Name = 'DTName'
        DataType = ftString
        Size = 80
      end
      item
        Name = 'DT_CODE'
        DataType = ftString
        Size = 60
      end
      item
        Name = 'KT_SCHET'
        DataType = ftString
        Size = 16
      end
      item
        Name = 'KTName'
        DataType = ftString
        Size = 80
      end
      item
        Name = 'KT_CODE'
        DataType = ftString
        Size = 60
      end
      item
        Name = 'SUMMA'
        DataType = ftFloat
      end
      item
        Name = 'NAMEOPER'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'VALUTA'
        DataType = ftString
        Size = 3
      end
      item
        Name = 'VSUMMA'
        DataType = ftFloat
      end
      item
        Name = 'VCURS'
        DataType = ftFloat
      end
      item
        Name = 'SCLAD'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'STATUS'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'USER_DATE'
        DataType = ftDate
      end
      item
        Name = 'Z_STATUS'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'NNOPER_D'
        DataType = ftFloat
      end
      item
        Name = 'NNOPER_K'
        DataType = ftFloat
      end
      item
        Name = 'N_STATUS'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'CRYPT_CODE'
        DataType = ftString
        Size = 11
      end
      item
        Name = 'IDMAIN'
        DataType = ftFloat
      end
      item
        Name = 'JRN_ID'
        DataType = ftFloat
      end
      item
        Name = 'DOC_ID'
        DataType = ftFloat
      end
      item
        Name = 'VAL_ID'
        DataType = ftFloat
      end
      item
        Name = 'PSCHET'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'ENTRY_CTG'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'GL_DIM1'
        DataType = ftFloat
      end
      item
        Name = 'GL_DIM2'
        DataType = ftFloat
      end
      item
        Name = 'mainValuta'
        DataType = ftString
        Size = 3
      end
      item
        Name = 'PriznakZab'
        DataType = ftBoolean
      end>
    ReadOnly = True
    OEMTranslate = False
    Left = 548
    Top = 244
  end
  object BOPolAcnt2: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPartnerAccnt'
    Active = False
    Left = 485
    Top = 292
  end
  object DSPolAcnt2: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOPolAcnt2
    FieldDefs = <>
    OEMTranslate = False
    IndexName = 'TAG_RSCH'
    AfterRefresh = DS_AfterRefresh
    Left = 414
    Top = 137
  end
  object DSPolBank2: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOPolBank2
    FieldDefs = <>
    OEMTranslate = False
    Left = 476
    Top = 137
  end
  object BOPolBank2: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPartnerBank'
    Active = False
    Left = 549
    Top = 293
  end
  object DSPolAcnt1: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOPolAcnt1
    FieldDefs = <>
    OEMTranslate = False
    IndexName = 'TAG_RSCH'
    Left = 541
    Top = 139
  end
  object BOPolAcnt1: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPartnerAccnt'
    Active = False
    Left = 615
    Top = 293
  end
  object DSApCardSpr: TBestDataset
    Tag = 8
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'PAY\FIN_DOC.DBF'
    OEMTranslate = False
    Left = 249
    Top = 301
  end
  object DSFinPlnSpr: TBestDataset
    Tag = 8
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'PAY\FIN_DOC.DBF'
    OEMTranslate = False
    Left = 342
    Top = 302
  end
  object BOPartner: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPartner'
    Active = False
    Left = 533
  end
  object DSPartner: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOPartner
    FieldDefs = <>
    OEMTranslate = False
    Left = 592
    Top = 3
  end
  object MenuRaschet: xbPopupMenu
    Left = 472
    Top = 358
    object miDocOsn: TMenuItem
      Caption = #1044#1086#1082#1091#1084#1077#1085#1090'-'#1086#1089#1085#1086#1074#1072#1085#1080#1077
      OnClick = miDocOsn_Click
    end
    object miBalans: TMenuItem
      Caption = #1041#1072#1083#1072#1085#1089
      OnClick = miBalans_Click
    end
    object miOplDoc: TMenuItem
      Caption = #1056#1072#1079#1085#1086#1089#1082#1072' '#1086#1087#1083#1072#1090#1099' '#1087#1086' '#1076#1086#1082#1091#1084#1077#1085#1090#1072#1084' '#1086#1090#1075#1088#1091#1079#1082#1080'   Ctrl+F10'
    end
    object miOplZak: TMenuItem
      Caption = #1056#1072#1079#1085#1086#1089#1082#1072' '#1086#1087#1083#1072#1090#1099' '#1087#1086' '#1079#1072#1082#1072#1079#1072#1084' '#1086#1090#1075#1088#1091#1079#1082#1080'          Alt+F10'
    end
  end
  object MenuDopData: xbPopupMenu
    Left = 554
    Top = 358
    object MenuDopData1: TMenuItem
      Caption = #1053#1072#1083#1086#1075#1086#1074#1099#1077' '#1082#1086#1076#1099'   Ctrl+B'
      OnClick = MenuDopData1_Click
    end
    object miDopRecv: TMenuItem
      Caption = #1044#1086#1087' '#1088#1077#1082#1074#1080#1079#1080#1090#1099'      Alt+F5'
      OnClick = miDopRecv_Click
    end
    object miPodpis: TMenuItem
      Caption = #1055#1086#1076#1087#1080#1089#1080
      OnClick = miPodpis_Click
    end
    object miOplZa: TMenuItem
      Caption = #1054#1087#1083#1072#1090#1072' '#1079#1072
      OnClick = miOplZa_Click
    end
  end
  object BOTaxMod: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsTAX_MOD'
    Active = False
    Left = 94
    Top = 191
  end
  object DSTaxMod: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOTaxMod
    FieldDefs = <>
    OEMTranslate = False
    OnUpdateRecord = DSTaxMod_UpdateRecord
    Left = 94
    Top = 235
  end
  object RFApCardObl: xbReferCaller
    ColumnsTune = 
      'LNUM;-1;50;1;0;'#1053#1086#1084#1077#1088' '#1101#1090#1072#1087#1072'|NAME;-1;170;1;0;'#1057#1086#1076#1077#1088#1078#1072#1085#1080#1077'|DATE_END;-' +
      '1;70;1;0;'#1044#1072#1090#1072'|OST;-1;90;1;0;'#1057#1091#1084#1084#1072
    ListDataSet = DSApCardObl
    ReferCaption = #1069#1090#1072#1087#1099' '#1076#1086#1075#1086#1074#1086#1088#1072
    ReferWidth = 450
    OnSelect = RFApCardObl_Select
    OnCancel = RFApCardObl_Cancel
    Left = 162
    Top = 240
  end
  object DSApCardObl: TBestDataset
    Tag = 8
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'PAY\FIN_DOC.DBF'
    OEMTranslate = False
    Left = 164
    Top = 292
  end
  object StatusMenu: xbPopupMenu
    Left = 348
    Top = 34
    object MenuStatus1: TMenuItem
      Caption = #1063#1077#1088#1085#1086#1074#1080#1082
    end
    object MenuStatus2: TMenuItem
      Caption = #1055#1077#1088#1077#1076#1072#1085
    end
    object MenuStatus3: TMenuItem
      Caption = #1054#1087#1083#1072#1095#1077#1085
    end
  end
  object RFNaznPlat: xbReferCaller
    ColumnsTune = 'TEXT;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
    ListDataSet = DSReasons
    ReferCaption = #1054#1089#1085#1086#1074#1072#1085#1080#1103' '#1087#1083#1072#1090#1077#1078#1072
    ReferWidth = 450
    OnSelect = RFNaznPlat_Select
    Left = 396
    Top = 355
  end
  object BOPlQue: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_PL_QUE'
    Active = False
    Left = 394
    Top = 1
  end
  object DSPlQue: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOPlQue
    FieldDefs = <>
    OEMTranslate = False
    Left = 447
    Top = 1
  end
  object DSFinPlnNoList: TBestDataset
    Tag = 8
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'PAY\FIN_DOC.DBF'
    OEMTranslate = False
    Left = 413
    Top = 302
  end
end
frmPayZvBudExp.prg                                                   16283object frmPayZvBudExp: TfrmPayZvBudExp
  Left = 25
  Top = 25
  Width = 500
  Height = 232
  ActiveControl = lerFinTp
  Anchors = []
  Caption = #1056#1072#1089#1096#1080#1092#1088#1086#1074#1082#1072
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  WindowState = wsNormal
  OnActivate = Form_Activate
  OnClose = Form_Close
  OnCloseQuery = Form_CloseQuery
  OnCreate = Form_Create
  OnShow = Form_Show
  DesignSize = (
    492
    198)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 8
    Top = 8
    Width = 476
    Height = 154
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    object TabSheet1: TTabSheet
      Caption = #1054#1073#1097#1077#1077
      DesignSize = (
        474
        132)
      object lbFinTp: xbLabel
        Left = 196
        Top = 11
        Width = 270
        Height = 17
        Anchors = [akLeft, akTop, akRight]
        Caption = 'lbBudLev'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
      end
      object lecSum: xbLabelEditCalc
        Left = 8
        Top = 56
        Width = 180
        Height = 21
        BorderColor = clWindowText
        Caption = #1057#1091#1084#1084#1072
        CaptionAlignment = taLeftJustify
        DataField = 'SUM_KR'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 7
        LabelWidth = 90
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        OnExit = lecSum_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        VisibleButton = False
      end
      object lePrim: xbLabelEdit
        Left = 8
        Top = 80
        Width = 460
        Height = 21
        BorderColor = clWindowText
        Caption = #1053#1072#1079#1085#1072#1095#1077#1085#1080#1077
        CaptionAlignment = taLeftJustify
        DataField = 'PRIM'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 10
        LabelWidth = 90
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object lerFinTp: xbLabelEditRefer
        Left = 8
        Top = 8
        Width = 180
        Height = 21
        BorderColor = clWindowText
        Caption = #1048#1089#1090#1086#1095#1085#1080#1082' '#1092#1080#1085'-'#1103
        CaptionAlignment = taLeftJustify
        DataField = 'FIN_TP'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 0
        LabelWidth = 90
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Required = True
        OnExit = lerFinTp_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'FIN_TP'
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'FIN_TP;-1;100;1;0;'#1050#1086#1076'|FIN_NAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldName = 'FIN_TP'
        FindFieldType = tfCharacterString
        ListDataSet = DSFinTp
        OutFieldsArray = 'FIN_TP'
        PutFieldsArray = 'FIN_TP'
        ReferCaption = #1057#1087#1080#1089#1086#1082
        ReferWidth = 450
        TypeFindFieldName = 'FIN_TP'
        xReferId = 0
        IsHarbourRefer = True
        IsMustEnter = True
        OnSelect = lerFinTp_Select
      end
      object lerExpDimTp: xbLabelEditRefer
        Left = 8
        Top = 32
        Width = 180
        Height = 21
        BorderColor = clWindowText
        Caption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
        CaptionAlignment = taLeftJustify
        DataField = 'EXP_DIM_TP'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 2
        LabelWidth = 90
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Required = True
        OnEnter = lerExpDimTp_Enter
        OnExit = lerExpDimTp_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'EXP_DIM_TP'
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'CODE;-1;100;1;0;'#1050#1086#1076'|NAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldName = 'EXP_DIM_TP'
        FindFieldType = tfCharacterString
        ListDataSet = DSExpDimTp
        OutFieldsArray = 'CODE'
        PutFieldsArray = 'EXP_DIM_TP'
        ReferCaption = #1057#1087#1080#1089#1086#1082
        ReferWidth = 450
        TypeFindFieldName = 'EXP_DIM_TP'
        xReferId = 0
        IsHarbourRefer = True
        OnSelect = lerExpDimTp_Select
      end
      object larExpAnalRas: xbLabelEditAnalitRefer
        Left = 197
        Top = 32
        Width = 70
        Height = 21
        BorderColor = clWindowText
        Caption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
        CaptionAlignment = taLeftJustify
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 3
        LabelWidth = 0
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'EXP_DIM'
        EnabledEdit = False
        VisibleButton = True
        UseStandartHint = True
        FindFieldType = tfCharacterString
        ReferCaption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
        TableName = 'PAY\DIM_TUNE'
        xReferId = 0
        IsHarbourRefer = True
        MakeChecking = True
      end
      object larExpAnalDoh: xbLabelEditAnalitRefer
        Left = 270
        Top = 32
        Width = 70
        Height = 21
        BorderColor = clWindowText
        Caption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
        CaptionAlignment = taLeftJustify
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 4
        LabelWidth = 0
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'EXP_DIM'
        EnabledEdit = False
        VisibleButton = True
        UseStandartHint = True
        FindFieldType = tfCharacterString
        ReferCaption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
        TableName = 'PAY\DIM_TUNE'
        xReferId = 0
        IsHarbourRefer = True
        MakeChecking = True
      end
      object larExpAnalDif: xbLabelEditAnalitRefer
        Left = 344
        Top = 32
        Width = 70
        Height = 21
        BorderColor = clWindowText
        Caption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
        CaptionAlignment = taLeftJustify
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 5
        LabelWidth = 0
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'EXP_DIM'
        EnabledEdit = False
        VisibleButton = True
        UseStandartHint = True
        FindFieldType = tfCharacterString
        ReferCaption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
        TableName = 'PAY\DIM_TUNE'
        xReferId = 0
        IsHarbourRefer = True
        MakeChecking = True
      end
      object leOKATO: xbLabelEdit
        Left = 8
        Top = 104
        Width = 180
        Height = 21
        BorderColor = clWindowText
        Caption = #1054#1050#1040#1058#1054
        CaptionAlignment = taLeftJustify
        DataField = 'OKATO_S'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 11
        LabelWidth = 90
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leExpAnalEmp: xbLabelEdit
        Left = 418
        Top = 32
        Width = 50
        Height = 21
        BorderColor = clWindowText
        Caption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
        CaptionAlignment = taLeftJustify
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 6
        LabelWidth = 0
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object btBO: xbButton
        Left = 318
        Top = 8
        Width = 150
        Height = 21
        Caption = #1041#1102#1076#1078#1077#1090#1085#1086#1077' '#1086#1073#1103#1079#1072#1090#1077#1083#1100#1089#1090#1074#1086
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        RoundedButton = True
        ShowHint = True
        TabOrder = 1
        OnClick = btBO_Click
        ButtonColor = clBlack
      end
      object leBOMonth: xbLabelEdit
        Left = 318
        Top = 56
        Width = 68
        Height = 21
        BorderColor = clWindowText
        Caption = #1041#1054
        CaptionAlignment = taLeftJustify
        DataField = 'EX_MON'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        Enabled = False
        EditMask = '00'
        DisplayFormat = '00'
        TabOrder = 8
        LabelWidth = 30
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        MaxLength = 2
        Text = '  '
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leBOYear: xbLabelEdit
        Left = 398
        Top = 56
        Width = 70
        Height = 21
        BorderColor = clWindowText
        Caption = #1043#1086#1076
        CaptionAlignment = taLeftJustify
        DataField = 'EX_YEAR'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        Enabled = False
        EditMask = '0000'
        DisplayFormat = '0000'
        TabOrder = 9
        LabelWidth = 0
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        MaxLength = 4
        Text = '    '
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
    end
  end
  object btnOK: xbButton
    Left = 325
    Top = 170
    Width = 75
    Height = 21
    Hint = #1057#1086#1093#1088#1072#1085#1077#1085#1080#1077' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (F10)'
    Caption = #1054#1050
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 2
    ModalResult = 1
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btnCANCEL: xbButton
    Left = 412
    Top = 170
    Width = 75
    Height = 21
    Hint = #1042#1099#1093#1086#1076' '#1080#1079' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (Esc)'
    Caption = #1054#1090#1084#1077#1085#1072
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 3
    ModalResult = 2
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btDopRecv: xbButton
    Left = 213
    Top = 170
    Width = 100
    Height = 21
    Hint = #1044#1086#1087#1086#1083#1085#1080#1090#1077#1083#1100#1085#1099#1077' '#1088#1077#1082#1074#1080#1079#1080#1090#1099' (Alt+F5)'
    Caption = #1044#1086#1087'. '#1088#1077#1082#1074#1080#1079#1080#1090#1099
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 1
    OnClick = btDopRecv_Click
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_BUD_EXP'
    Active = False
    Left = 261
    Top = 65533
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <>
    OEMTranslate = False
    AfterEdit = DS_AfterEdit
    Left = 336
    Top = 65533
  end
  object ADS: xbADSDataSource
    DataSet = DS
    Left = 299
    Top = 65534
  end
  object DSDIMTUNE: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'PAY\dim_tune'
    OEMTranslate = False
    IndexName = 'TAG_CODE'
    Left = 203
    Top = 65534
  end
  object DSFinTp: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'PAY\FIN_TP.DBF'
    OEMTranslate = False
    IndexName = 'TAG_TP'
    Left = 141
    Top = 3
  end
  object DSExpDimTp: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'PAY\DopAn_TP.DBF'
    OEMTranslate = False
    IndexName = 'TAG_CODE'
    Left = 81
    Top = 2
  end
  object RFBO: xbReferCaller
    ColumnsTune = 
      'FIN_TP;-1;50;1;0;'#1048#1060'|EXP_DIM;-1;200;1;0;'#1040#1085#1072#1083#1080#1090#1080#1082#1072'|EX_YEAR;-1;80;1' +
      ';0;'#1043#1086#1076'|EX_MON;-1;50;1;0;'#1052#1077#1089#1103#1094'|SUM_OST;-1;100;1;0;'#1054#1087#1083#1072#1095#1077#1085#1086
    ListDataSet = DSBORef
    ReferCaption = #1042#1080#1076#1099' '#1076#1074#1080#1078#1077#1085#1080#1103
    ReferWidth = 550
    OnSelect = RFBO_Select
    Left = 57
    Top = 139
  end
  object DSBORef: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'PAY\MOVE_TP.DBF'
    OEMTranslate = False
    Left = 135
    Top = 139
  end
end
frmPayRashRaspRee.prg                                                17259object frmPayRashRaspRee: TfrmPayRashRaspRee
  Left = 25
  Top = 25
  Width = 650
  Height = 435
  ActiveControl = bGrid1
  Anchors = []
  BiDiMode = bdRightToLeft
  Caption = #1056#1072#1089#1093#1086#1076#1085#1099#1077' '#1088#1072#1089#1087#1080#1089#1072#1085#1080#1103
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  ParentBiDiMode = False
  Visible = True
  WindowState = wsNormal
  OnClose = Form_Close
  OnCreate = Form_Create
  DesignSize = (
    642
    401)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 8
    Top = 8
    Width = 626
    Height = 362
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    object TabSheet1: TTabSheet
      Caption = #1056#1077#1077#1089#1090#1088
      DesignSize = (
        624
        340)
      object lbObjName: xbLabel
        Left = 144
        Top = 12
        Width = 170
        Height = 17
        Anchors = [akLeft, akTop, akRight]
        Caption = 'lbObjName'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
      end
      object lbTpName: xbLabel
        Left = 454
        Top = 12
        Width = 170
        Height = 17
        Anchors = [akLeft, akTop, akRight]
        Caption = 'lbTpName'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
      end
      object refFinObj: xbLabelEditRefer
        Left = 8
        Top = 8
        Width = 130
        Height = 20
        BorderColor = clWindowText
        Caption = #1054#1073#1098#1077#1082#1090' '#1091#1095#1077#1090#1072
        CaptionExtender = ceNone
        CaptionAlignment = taLeftJustify
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 0
        LabelWidth = 80
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnEnter = refFinObj_Enter
        OnExit = refFinObj_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2;Alt+Down'
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'OBJ_CODE;-1;100;1;0;'#1050#1086#1076'|OBJ_NAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldType = tfCharacterString
        ListDataSet = dsFinObj
        ReferCaption = #1057#1087#1088#1072#1074#1086#1095#1085#1080#1082' '#1086#1073#1098#1077#1082#1090#1086#1074' '#1091#1095#1077#1090#1072
        ReferHeight = 300
        ReferWidth = 300
        xReferId = 0
        IsHarbourRefer = True
        OnSelect = refFinObj_Select
        OnCancel = refFinObj_Cancel
        ReferParentWindowState = False
      end
      object refDocType: xbLabelEditRefer
        Left = 320
        Top = 8
        Width = 130
        Height = 20
        BorderColor = clWindowText
        Caption = #1042#1080#1076' '#1076#1086#1082#1091#1084#1077#1085#1090#1072
        CaptionExtender = ceNone
        CaptionAlignment = taLeftJustify
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 1
        LabelWidth = 80
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnEnter = refDocType_Enter
        OnExit = refDocType_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2;Alt+Down'
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'TP_CODE;-1;100;1;0;'#1050#1086#1076'|TP_NAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldType = tfCharacterString
        ListDataSet = dsDocType
        ReferCaption = #1057#1087#1088#1072#1074#1086#1095#1085#1080#1082' '#1074#1080#1076#1086#1074' '#1076#1086#1082#1091#1084#1077#1085#1090#1086#1074
        ReferHeight = 300
        ReferWidth = 300
        xReferId = 0
        IsHarbourRefer = True
        OnSelect = refDocType_Select
        OnCancel = refDocType_Cancel
        ReferParentWindowState = False
      end
      object bPanel1: xbPanel
        Left = 5
        Top = 34
        Width = 614
        Height = 304
        Anchors = [akLeft, akTop, akRight, akBottom]
        TabOrder = 2
        object bFrame: xbFrame
          Left = 1
          Top = 241
          Width = 612
          Height = 62
          Align = alBottom
          Caption = #1048#1079#1084#1077#1088#1077#1085#1080#1103
          Visible = False
          TabOrder = 0
          DesignSize = (
            612
            62)
          object lblDocDim: xbMemo
            Left = 3
            Top = 13
            Width = 607
            Height = 46
            ColorFlat = clBtnFace
            ParentColor = True
            Enabled = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            ReadOnly = True
            TabOrder = 0
            Lines.Strings = (
              'bMemDim')
            Anchors = [akLeft, akTop, akRight, akBottom]
            BorderStyle = bsNone
            Color = clWhite
            DisabledColor = clInactiveBorder
            DisabledFontColor = 7368816
          end
        end
        object bGrid1: xbGrid
          Left = 1
          Top = 1
          Width = 612
          Height = 240
          Align = alClient
          AutoFitColWidths = True
          DataSource = ADS
          Flat = True
          FooterColor = clWindow
          FooterFont.Charset = DEFAULT_CHARSET
          FooterFont.Color = clWindowText
          FooterFont.Height = -11
          FooterFont.Name = 'MS Sans Serif'
          FooterFont.Style = []
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgAlwaysShowSelection, dgConfirmDelete]
          OptionsEh = [dghFixed3D, dghClearSelection]
          ReadOnly = True
          TabOrder = 1
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          UseMultiTitle = True
          OnCellClick = bGrid1_CellClick
          OnDblClick = bGrid1_DblClick
          OnKeyDown = bGrid1_KeyDown
          OnKeyPress = bGrid1_KeyPress
          IdGrid = '{2AAB0A3F-4C20-440C-AC9E-83EB2B88A015}'
          Styles.Style1.FieldName = 'GRID_STYLE1'
          Styles.Style1.Value = '1'
          Styles.Style1.TextColor = clGreen
          Styles.Style2.FieldName = 'GRID_STYLE2'
          Styles.Style2.Value = '1'
          Styles.Style2.TextColor = clBlue
          Columns = <
            item
              EditButtons = <>
              FieldName = 'X_ISMARK_'
              Footers = <>
              Title.Caption = '   '
              Width = 17
            end
            item
              EditButtons = <>
              FieldName = 'DOC_CODE'
              Footers = <>
              Title.Caption = #1042#1080#1076
              Width = 25
            end
            item
              EditButtons = <>
              FieldName = 'DOP_NUM'
              Footers = <>
              Title.Caption = #1044#1086#1082#1091#1084#1077#1085#1090'|'#1053#1086#1084#1077#1088
              Width = 80
            end
            item
              EditButtons = <>
              FieldName = 'DOC_DATE'
              Footers = <>
              Title.Caption = #1044#1086#1082#1091#1084#1077#1085#1090'|'#1044#1072#1090#1072
              Width = 60
            end
            item
              EditButtons = <>
              FieldName = 'VAR_FIELD1'
              Footers = <>
              Title.Caption = #1055#1072#1088#1090#1085#1077#1088
              Width = 101
            end
            item
              EditButtons = <>
              FieldName = 'SUM_BA'
              Footers = <>
              Title.Caption = #1047#1072' '#1090#1077#1082#1091#1097#1080#1081' '#1075#1086#1076'|'#1072#1089#1089#1080#1075#1085#1086#1074#1072#1085#1080#1103
              Width = 80
            end
            item
              EditButtons = <>
              FieldName = 'SUM_LBO'
              Footers = <>
              Title.Caption = #1047#1072' '#1090#1077#1082#1091#1097#1080#1081' '#1075#1086#1076'|'#1083#1080#1084#1080#1090#1099
              Width = 80
            end
            item
              EditButtons = <>
              FieldName = 'SUM_FIN'
              Footers = <>
              Title.Caption = #1047#1072' '#1090#1077#1082#1091#1097#1080#1081' '#1075#1086#1076'|'#1092#1080#1085#1072#1085#1089#1080#1088#1086#1074#1072#1085#1080#1077
              Width = 90
            end
            item
              EditButtons = <>
              FieldName = 'STATUS_NAME'
              Footers = <>
              Title.Caption = #1057#1090#1072#1090#1091#1089
              Width = 56
            end
            item
              EditButtons = <>
              FieldName = 'OPER_DATE'
              Footers = <>
              Title.Caption = #1044#1072#1090#1072' '#1086#1087#1077#1088#1072#1094#1080#1080
              Visible = False
              Width = 57
            end
            item
              EditButtons = <>
              FieldName = 'GRID_STYLE1'
              Footers = <>
              Visible = False
              Width = 10
            end
            item
              EditButtons = <>
              FieldName = 'GRID_STYLE2'
              Footers = <>
              Visible = False
              Width = 10
            end>
        end
      end
    end
  end
  object btnEXPORT: xbButton
    Left = 383
    Top = 375
    Width = 75
    Height = 21
    Hint = #1069#1082#1089#1087#1086#1088#1090' '#1086#1090#1084#1077#1095#1077#1085#1085#1099#1093' '#1076#1086#1082#1091#1084#1077#1085#1090#1086#1074' '#1074' '#1050#1083#1080#1077#1085#1090'-'#1041#1072#1085#1082' (Alt-F5)'
    Caption = #1069#1082#1089#1087#1086#1088#1090
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 1
    OnClick = btnEXPORT_Click
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object bPDOCDIM: xbPopupButton
    Left = 296
    Top = 375
    Width = 75
    Height = 21
    Caption = #1048#1079#1084#1077#1088#1077#1085#1080#1103
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = bPopupMenu3
    RoundedButton = True
    TabOrder = 2
    OnClick = bPDOCDIM_Click
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object pMenuOperation: xbPopupButton
    Left = 470
    Top = 375
    Width = 75
    Height = 21
    Caption = #1054#1087#1077#1088#1072#1094#1080#1080
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = MenuOperation
    RoundedButton = True
    TabOrder = 3
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object bpFunction: xbPopupButton
    Left = 557
    Top = 375
    Width = 75
    Height = 21
    Caption = #1060#1091#1085#1082#1094#1080#1080
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = bpnFunction
    RoundedButton = True
    TabOrder = 4
    OnClick = bpFunction_Click
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_fin_doc'
    Active = False
    Left = 38
    Top = 107
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <
      item
        Name = 'LIST_ID'
        DataType = ftString
        Size = 22
      end
      item
        Name = 'BOOK_CODE'
        DataType = ftString
        Size = 2
      end
      item
        Name = 'CTG'
        DataType = ftFloat
      end
      item
        Name = 'BOOK_PER'
        DataType = ftDate
      end
      item
        Name = 'LIST_DATE'
        DataType = ftDate
      end
      item
        Name = 'LIST_NUM'
        DataType = ftString
        Size = 6
      end
      item
        Name = 'OP_CODE'
        DataType = ftString
        Size = 22
      end
      item
        Name = 'OPNAME'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'STATUS'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'RECALC'
        DataType = ftBoolean
      end
      item
        Name = 'LST_ACT'
        DataType = ftString
        Size = 17
      end
      item
        Name = 'USER_CODE'
        DataType = ftString
        Size = 6
      end
      item
        Name = 'STATUSNAME'
        DataType = ftString
        Size = 10
      end
      item
        Name = 'CTGNAME'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'TYPE_PER'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'Typepername'
        DataType = ftString
        Size = 25
      end>
    ReadOnly = True
    OEMTranslate = False
    Left = 81
    Top = 108
  end
  object ADS: xbADSDataSource
    DataSet = DS
    Left = 122
    Top = 109
  end
  object adsFinObj: xbADSDataSource
    DataSet = dsFinObj
    Left = 112
    Top = 177
  end
  object dsFinObj: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'PAY\FIN_OBJ.DBF'
    OEMTranslate = False
    Left = 41
    Top = 177
  end
  object adsDocType: xbADSDataSource
    DataSet = dsDocType
    Left = 111
    Top = 241
  end
  object dsDocType: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'PAY\DOC_TYPE.DBF'
    OEMTranslate = False
    Left = 39
    Top = 241
  end
  object BODocCmp: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_DOC_CMP'
    Active = False
    Left = 165
    Top = 114
  end
  object DSDocCmp: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BODocCmp
    FieldDefs = <>
    OEMTranslate = False
    Left = 279
    Top = 128
  end
  object ADSDocCmp: xbADSDataSource
    DataSet = DSDocCmp
    Left = 345
    Top = 115
  end
  object RFDocType: xbReferCaller
    ColumnsTune = 'TP_NAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
    ListDataSet = DSDocTypeRef
    ReferCaption = #1042#1080#1076#1099' '#1076#1086#1082#1091#1084#1077#1085#1090#1086#1074
    ReferHeight = 380
    ReferWidth = 450
    OnSelect = RFDocType_Select
    ReferParentWindowState = False
    Left = 202
    Top = 181
  end
  object DSDocTypeRef: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'PAY\DOC_TYPE.DBF'
    OEMTranslate = False
    Left = 280
    Top = 181
  end
  object DSKB: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'PAY\KB.DBF'
    OEMTranslate = False
    Left = 242
    Top = 249
  end
  object ADSKB: xbADSDataSource
    DataSet = DSKB
    Left = 284
    Top = 252
  end
  object bPopupMenu3: xbPopupMenu
    Left = 348
    Top = 254
    object pEdit: TMenuItem
      Caption = #1042#1074#1086#1076' Ctrl-D'
    end
    object pShow: TMenuItem
      Caption = #1055#1088#1086#1089#1084#1086#1090#1088' '#1074#1082#1083'/'#1074#1099#1082#1083' Ctrl-F'
    end
  end
  object MenuOperation: xbPopupMenu
    Left = 436
    Top = 253
    object miGroupPrint: TMenuItem
      Caption = #1043#1088#1091#1087#1087#1086#1074#1072#1103' '#1087#1077#1095#1072#1090#1100
      ShortCut = 16504
      OnClick = miGroupPrint_Click
    end
  end
  object bpnFunction: xbPopupMenu
    Left = 387
    Top = 181
  end
end
frmSET_PAY.prg                                                        5185object frmSET_PAY: TfrmSET_PAY
  Left = 25
  Top = 25
  Width = 233
  Height = 199
  Anchors = []
  Caption = #1053#1072#1089#1090#1088#1086#1081#1082#1072
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  WindowState = wsNormal
  OnClose = Form_Close
  OnCloseQuery = Form_CloseQuery
  OnCreate = Form_Create
  OnInnerEvent = Form_InnerEvent
  DesignSize = (
    225
    165)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 8
    Top = 8
    Width = 209
    Height = 130
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    object TabSheet1: TTabSheet
      Caption = #1054#1073#1097#1077#1077
      object bFrame4: xbFrame
        Left = 8
        Top = 8
        Width = 192
        Height = 43
        Caption = #1041#1077#1079#1085#1072#1083#1080#1095#1085#1099#1077' '#1087#1083#1072#1090#1077#1078#1080
        TabOrder = 0
        object lePerBeg: xbLabelEdit
          Left = 6
          Top = 16
          Width = 180
          Height = 21
          BorderColor = clWindowText
          Caption = #1053#1072#1095#1072#1083#1086' '#1087#1077#1088#1080#1086#1076#1072
          CaptionAlignment = taLeftJustify
          DataField = 'PER_BEG'
          DataSource = ADS
          ButtonsColor = clBlack
          EnabledColor = clWhite
          TabOrder = 0
          LabelWidth = 100
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          OnExit = lePerBeg_Exit
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
      end
      object bFrame1: xbFrame
        Left = 8
        Top = 58
        Width = 192
        Height = 43
        Caption = #1053#1072#1083#1080#1095#1085#1099#1077' '#1087#1083#1072#1090#1077#1078#1080
        TabOrder = 1
        object lePerBegC: xbLabelEdit
          Left = 6
          Top = 16
          Width = 180
          Height = 21
          BorderColor = clWindowText
          Caption = #1053#1072#1095#1072#1083#1086' '#1087#1077#1088#1080#1086#1076#1072
          CaptionAlignment = taLeftJustify
          DataField = 'PER_BEG_C'
          DataSource = ADS
          ButtonsColor = clBlack
          EnabledColor = clWhite
          TabOrder = 0
          LabelWidth = 100
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          OnExit = lePerBeg_Exit
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
      end
    end
  end
  object btnOK: xbButton
    Left = 59
    Top = 144
    Width = 75
    Height = 21
    Hint = #1057#1086#1093#1088#1072#1085#1077#1085#1080#1077' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (F10)'
    Caption = #1054#1050
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 1
    OnClick = btnOK_Click
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btnCANCEL: xbButton
    Left = 142
    Top = 144
    Width = 75
    Height = 21
    Hint = #1042#1099#1093#1086#1076' '#1080#1079' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (Esc)'
    Caption = #1054#1090#1084#1077#1085#1072
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 2
    OnClick = btnCANCEL_Click
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <>
    OEMTranslate = False
    Left = 166
    Top = 29
  end
  object ADS: xbADSDataSource
    DataSet = DS
    Left = 113
    Top = 31
  end
  object REFDISTR: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    ReadOnly = True
    TableName = 'salary\np\K2Rai.dbf'
    OEMTranslate = False
    IndexName = '_01'
    Left = 264
    Top = 374
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_FIN_PRM'
    Active = False
    Left = 64
    Top = 32
  end
  object BOFinDoc: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_FIN_DOC'
    Active = False
    Left = 64
    Top = 81
  end
  object DSFinDoc: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOFinDoc
    FieldDefs = <>
    OEMTranslate = False
    Left = 107
    Top = 81
  end
end
frmPayDChKasRee.prg                                                   5737object frmPayDChKasRee: TfrmPayDChKasRee
  Left = 25
  Top = 25
  Width = 314
  Height = 320
  ActiveControl = GridDChKas
  Anchors = []
  Caption = #1050#1072#1089#1089#1086#1074#1099#1081' '#1087#1083#1072#1085
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  WindowState = wsNormal
  OnActivate = Form_Activate
  OnClose = Form_Close
  OnCloseQuery = Form_CloseQuery
  OnCreate = Form_Create
  OnResize = Form_Resize
  OnShow = Form_Show
  DesignSize = (
    306
    286)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 8
    Top = 8
    Width = 290
    Height = 242
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    object TabSheet1: TTabSheet
      Caption = #1054#1073#1097#1077#1077
      DesignSize = (
        288
        220)
      object lecSum: xbLabelEditCalc
        Left = 8
        Top = 192
        Width = 220
        Height = 21
        Anchors = [akLeft, akBottom]
        BorderColor = clWindowText
        Caption = #1048#1090#1086#1075#1086
        CaptionAlignment = taLeftJustify
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 0
        LabelWidth = 120
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        EnabledButton = False
        VisibleButton = False
      end
      object GridDChKas: xbGrid
        Left = 6
        Top = 8
        Width = 276
        Height = 177
        Anchors = [akLeft, akTop, akRight, akBottom]
        AutoFitColWidths = True
        DataSource = ADS
        Flat = True
        FooterColor = clWindow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -11
        FooterFont.Name = 'MS Sans Serif'
        FooterFont.Style = []
        Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgConfirmDelete]
        TabOrder = 1
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        UseMultiTitle = True
        OnEditButtonClick = GridDChKas_EditButtonClick
        IdGrid = '{DD005976-005C-4102-96A9-D3FB0B5612AD}'
        Columns = <
          item
            ButtonStyle = cbsEllipsis
            EditButtons = <>
            FieldName = 'CH_KAS_CD'
            Footers = <>
            ReadOnly = True
            Title.Caption = #1057#1080#1084#1074#1086#1083' '#1082#1072#1089#1089#1086#1074#1086#1075#1086' '#1087#1083#1072#1085#1072
            Width = 140
          end
          item
            Alignment = taRightJustify
            EditButtons = <>
            FieldName = 'CH_SUM'
            Footers = <>
            Title.Caption = #1057#1091#1084#1084#1072
            Width = 120
          end>
      end
    end
  end
  object btnOK: xbButton
    Left = 139
    Top = 258
    Width = 75
    Height = 21
    Hint = #1057#1086#1093#1088#1072#1085#1077#1085#1080#1077' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (F10)'
    Caption = #1054#1050
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 1
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btnCANCEL: xbButton
    Left = 226
    Top = 258
    Width = 75
    Height = 21
    Hint = #1042#1099#1093#1086#1076' '#1080#1079' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (Esc)'
    Caption = #1054#1090#1084#1077#1085#1072
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 2
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_D_CH_KAS'
    Active = False
    Left = 135
    Top = 127
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <>
    OEMTranslate = False
    AfterPost = DS_AfterPost
    OnNewRecord = DS_NewRecord
    Left = 191
    Top = 127
  end
  object ADS: xbADSDataSource
    DataSet = DS
    Left = 250
    Top = 127
  end
  object RFChKas: xbReferCaller
    ColumnsTune = 'CODE;-1;65;1;0;'#1050#1086#1076'|NAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
    ListDataSet = dsRefChKas
    ReferCaption = #1057#1080#1084#1074#1086#1083#1099' '#1082#1072#1089#1089#1086#1074#1086#1075#1086' '#1087#1083#1072#1085#1072
    OnSelect = RFChKas_Select
    OnCancel = RFChKas_Cancel
    Left = 41
    Top = 85
  end
  object dsRefChKas: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    ReadOnly = True
    TableName = 'PAY\CH_KAS'
    OEMTranslate = False
    IndexName = 'TAG_CODE'
    Left = 41
    Top = 135
  end
end
frmPayPodpis.prg                                                     11621object frmPayPodpis: TfrmPayPodpis
  Left = 25
  Top = 25
  Width = 640
  Height = 183
  Anchors = []
  Caption = #1055#1086#1076#1087#1080#1089#1080
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  WindowState = wsNormal
  OnActivate = Form_Activate
  OnClose = Form_Close
  OnCloseQuery = Form_CloseQuery
  OnCreate = Form_Create
  DesignSize = (
    632
    149)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 8
    Top = 8
    Width = 616
    Height = 105
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    object TabSheet1: TTabSheet
      Caption = #1054#1073#1097#1077#1077
      DesignSize = (
        614
        83)
      object lbDirName: xbLabel
        Left = 198
        Top = 12
        Width = 150
        Height = 17
        Caption = 'lbDirName'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
      end
      object lbBuhName: xbLabel
        Left = 198
        Top = 36
        Width = 150
        Height = 17
        Caption = 'lbBuhName'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
      end
      object lbWrkName: xbLabel
        Left = 198
        Top = 60
        Width = 150
        Height = 17
        Caption = 'lbWrkName'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
      end
      object leDirPost: xbLabelEdit
        Left = 356
        Top = 8
        Width = 250
        Height = 21
        Anchors = [akLeft, akTop, akRight]
        BorderColor = clWindowText
        Caption = #1076#1086#1083#1078#1085#1086#1089#1090#1100
        CaptionAlignment = taLeftJustify
        DataField = 'DIR_POST'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 1
        LabelWidth = 60
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object lerDirNum: xbLabelEditRefer
        Left = 8
        Top = 8
        Width = 180
        Height = 21
        BorderColor = clWindowText
        Caption = #1056#1091#1082#1086#1074#1086#1076#1080#1090#1077#1083#1100
        CaptionAlignment = taLeftJustify
        DataField = 'DIR_NUM'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 0
        LabelWidth = 110
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Required = True
        OnEnter = lerDirNum_Enter
        OnExit = lerDirNum_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'DIR_NUM'
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 
          'CODE;-1;50;1;-1;'#1058#1072#1073'.'#8470'|SHORTNAME;-1;120;1;-1;'#1060#1072#1084#1080#1083#1080#1103'|name1;-1;100' +
          ';1;-1;'#1048#1084#1103'|Name2;-1;150;1;-1;'#1054#1090#1095#1077#1089#1090#1074#1086
        FindFieldName = 'CODE'
        FindFieldType = tfCharacterString
        ListDataSet = DSDir
        OutFieldsArray = 'CODE'
        PutFieldsArray = 'DIR_NUM'
        ReferCaption = #1057#1086#1090#1088#1091#1076#1085#1080#1082#1080
        ReferWidth = 450
        TypeFindFieldName = 'CODE'
        xReferId = 0
        IsHarbourRefer = True
        OnSelect = lerDirNum_Select
      end
      object lerBuhNum: xbLabelEditRefer
        Left = 8
        Top = 32
        Width = 180
        Height = 21
        BorderColor = clWindowText
        Caption = #1043#1083#1072#1074#1085#1099#1081' '#1073#1091#1093#1075#1072#1083#1090#1077#1088
        CaptionAlignment = taLeftJustify
        DataField = 'BUH_NUM'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 2
        LabelWidth = 110
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Required = True
        OnEnter = lerBuhNum_Enter
        OnExit = lerBuhNum_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'BUH_NUM'
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 
          'CODE;-1;50;1;-1;'#1058#1072#1073'.'#8470'|SHORTNAME;-1;120;1;-1;'#1060#1072#1084#1080#1083#1080#1103'|name1;-1;100' +
          ';1;-1;'#1048#1084#1103'|Name2;-1;150;1;-1;'#1054#1090#1095#1077#1089#1090#1074#1086
        FindFieldName = 'CODE'
        FindFieldType = tfCharacterString
        ListDataSet = DSBuh
        OutFieldsArray = 'CODE'
        PutFieldsArray = 'BUH_NUM'
        ReferCaption = #1057#1086#1090#1088#1091#1076#1085#1080#1082#1080
        ReferWidth = 450
        TypeFindFieldName = 'CODE'
        xReferId = 0
        IsHarbourRefer = True
        OnSelect = lerBuhNum_Select
      end
      object leBuhPost: xbLabelEdit
        Left = 356
        Top = 32
        Width = 250
        Height = 21
        Anchors = [akLeft, akTop, akRight]
        BorderColor = clWindowText
        Caption = #1076#1086#1083#1078#1085#1086#1089#1090#1100
        CaptionAlignment = taLeftJustify
        DataField = 'BUH_POST'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 3
        LabelWidth = 60
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object lerWrkNum: xbLabelEditRefer
        Left = 8
        Top = 56
        Width = 180
        Height = 21
        BorderColor = clWindowText
        Caption = #1048#1089#1087#1086#1083#1085#1080#1090#1077#1083#1100
        CaptionAlignment = taLeftJustify
        DataField = 'WRK_NUM'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 4
        LabelWidth = 110
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Required = True
        OnEnter = lerWrkNum_Enter
        OnExit = lerWrkNum_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'WRK_NUM'
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 
          'CODE;-1;50;1;-1;'#1058#1072#1073'.'#8470'|SHORTNAME;-1;120;1;-1;'#1060#1072#1084#1080#1083#1080#1103'|name1;-1;100' +
          ';1;-1;'#1048#1084#1103'|Name2;-1;150;1;-1;'#1054#1090#1095#1077#1089#1090#1074#1086
        FindFieldName = 'CODE'
        FindFieldType = tfCharacterString
        ListDataSet = DSWrk
        OutFieldsArray = 'CODE'
        PutFieldsArray = 'WRK_NUM'
        ReferCaption = #1057#1086#1090#1088#1091#1076#1085#1080#1082#1080
        ReferWidth = 450
        TypeFindFieldName = 'CODE'
        xReferId = 0
        IsHarbourRefer = True
        OnSelect = lerWrkNum_Select
      end
      object leWrkPost: xbLabelEdit
        Left = 356
        Top = 56
        Width = 250
        Height = 21
        Anchors = [akLeft, akTop, akRight]
        BorderColor = clWindowText
        Caption = #1076#1086#1083#1078#1085#1086#1089#1090#1100
        CaptionAlignment = taLeftJustify
        DataField = 'WRK_POST'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 5
        LabelWidth = 60
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
    end
  end
  object btnOK: xbButton
    Left = 465
    Top = 121
    Width = 75
    Height = 21
    Hint = #1057#1086#1093#1088#1072#1085#1077#1085#1080#1077' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (F10)'
    Caption = #1054#1050
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 1
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btnCANCEL: xbButton
    Left = 552
    Top = 121
    Width = 75
    Height = 21
    Hint = #1042#1099#1093#1086#1076' '#1080#1079' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (Esc)'
    Caption = #1054#1090#1084#1077#1085#1072
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 2
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_DOC_CMP'
    Active = False
    Left = 95
    Top = 1
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <>
    OEMTranslate = False
    AfterEdit = DS_AfterEdit
    Left = 172
    Top = 65535
  end
  object ADS: xbADSDataSource
    DataSet = DS
    Left = 135
  end
  object BODir: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPeople'
    Active = False
    Left = 282
    Top = 9
  end
  object DSDir: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BODir
    FieldDefs = <>
    OEMTranslate = False
    Left = 329
    Top = 9
  end
  object BOBuh: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPeople'
    Active = False
    Left = 280
    Top = 56
  end
  object DSBuh: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOBuh
    FieldDefs = <>
    OEMTranslate = False
    Left = 327
    Top = 56
  end
  object BOWrk: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPeople'
    Active = False
    Left = 281
    Top = 104
  end
  object DSWrk: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOWrk
    FieldDefs = <>
    OEMTranslate = False
    Left = 328
    Top = 104
  end
end
frmPayPredmet.prg                                                     3286object frmPayPredmet: TfrmPayPredmet
  Left = 25
  Top = 25
  Width = 500
  Height = 187
  Anchors = []
  Caption = #1055#1088#1077#1076#1084#1077#1090
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  WindowState = wsNormal
  OnActivate = Form_Activate
  OnClose = Form_Close
  OnCloseQuery = Form_CloseQuery
  OnCreate = Form_Create
  DesignSize = (
    492
    153)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 8
    Top = 8
    Width = 476
    Height = 109
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    object TabSheet1: TTabSheet
      Caption = #1054#1073#1097#1077#1077
      DesignSize = (
        474
        87)
      object memAcCont: xbMemo
        Left = 8
        Top = 8
        Width = 458
        Height = 72
        ColorFlat = clBtnFace
        ParentColor = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        MaxLength = 200
        ParentFont = False
        TabOrder = 0
        OnKeyDown = memAcCont_KeyDown
        Anchors = [akLeft, akTop, akRight, akBottom]
        BorderStyle = bsNone
        Color = clWhite
        DisabledColor = clInactiveBorder
        DisabledFontColor = 7368816
        DataField = 'AC_CONT'
        DataSource = ADS
      end
    end
  end
  object btnOK: xbButton
    Left = 325
    Top = 125
    Width = 75
    Height = 21
    Hint = #1057#1086#1093#1088#1072#1085#1077#1085#1080#1077' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (F10)'
    Caption = #1054#1050
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 1
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btnCANCEL: xbButton
    Left = 412
    Top = 125
    Width = 75
    Height = 21
    Hint = #1042#1099#1093#1086#1076' '#1080#1079' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (Esc)'
    Caption = #1054#1090#1084#1077#1085#1072
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 2
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_DOC_CMP'
    Active = False
    Left = 95
    Top = 1
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <
      item
        Name = 'AC_CONT'
        DataType = ftMemo
      end>
    OEMTranslate = False
    AfterEdit = DS_AfterEdit
    Left = 172
    Top = 65535
  end
  object ADS: xbADSDataSource
    DataSet = DS
    Left = 135
  end
end
frmPayBudLevRee.prg                                                   3232object frmPayBudLevRee: TfrmPayBudLevRee
  Left = 25
  Top = 25
  Width = 522
  Height = 304
  ActiveControl = bGrid1
  Anchors = []
  Caption = #1057#1087#1088#1072#1074#1086#1095#1085#1080#1082' '#1085#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1103' '#1073#1102#1076#1078#1077#1090#1072
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  WindowState = wsNormal
  OnCreate = Form_Create
  DesignSize = (
    514
    277)
  PixelsPerInch = 96
  TextHeight = 13
  object bGrid1: xbGrid
    Left = 8
    Top = 8
    Width = 498
    Height = 227
    Anchors = [akLeft, akTop, akRight, akBottom]
    AutoFitColWidths = True
    DataSource = ADS1
    Flat = True
    FooterColor = clWindow
    FooterFont.Charset = DEFAULT_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -11
    FooterFont.Name = 'MS Sans Serif'
    FooterFont.Style = []
    Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgAlwaysShowSelection, dgConfirmDelete]
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    UseMultiTitle = True
    IdGrid = '{76820CB1-067C-4276-9E4C-A2B21D7ED750}'
    Columns = <
      item
        EditButtons = <>
        FieldName = 'CODE'
        Footers = <>
        Title.Caption = #1050#1086#1076
        Width = 103
      end
      item
        EditButtons = <>
        FieldName = 'NAME'
        Footers = <>
        Title.Caption = #1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        Width = 379
      end>
  end
  object bPopupButton1: xbPopupButton
    Left = 432
    Top = 246
    Width = 75
    Height = 21
    Caption = #1054#1087#1077#1088#1072#1094#1080#1080
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = bPopupMenu1
    RoundedButton = True
    TabOrder = 1
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object BO1: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_bud_lev'
    Active = False
    Left = 102
    Top = 119
  end
  object DS1: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO1
    FieldDefs = <
      item
        Name = 'DEP_CODE'
        DataType = ftString
        Size = 5
      end
      item
        Name = 'DEP_NAME'
        DataType = ftString
        Size = 35
      end
      item
        Name = 'DEP_NORM'
        DataType = ftFloat
      end>
    OEMTranslate = False
    Left = 392
    Top = 128
  end
  object ADS1: xbADSDataSource
    DataSet = DS1
    Left = 330
    Top = 69
  end
  object bPopupMenu1: xbPopupMenu
    Left = 244
    Top = 206
    object N14: TMenuItem
      Caption = #1042#1074#1086#1076'/'#1041#1099#1089#1090#1088#1099#1081' '#1087#1086#1080#1089#1082
      ShortCut = 8310
    end
  end
end
frmPayVznosBud.prg                                                   37442object frmPayVznosBud: TfrmPayVznosBud
  Left = 25
  Top = 25
  Width = 680
  Height = 357
  ActiveControl = leDopNum
  Anchors = []
  Caption = #1054#1073#1098#1103#1074#1083#1077#1085#1080#1077' '#1085#1072' '#1074#1079#1085#1086#1089' '#1085#1072#1083#1080#1095#1085#1099#1084#1080
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  WindowState = wsNormal
  OnCloseQuery = Form_CloseQuery
  OnCreate = Form_Create
  DesignSize = (
    672
    323)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 7
    Top = 8
    Width = 658
    Height = 284
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    OnChange = bPageControl1_Change
    object TabSheet1: TTabSheet
      Caption = #1054#1073#1097#1077#1077
      DesignSize = (
        656
        262)
      object lerMvTpCode: xbLabelEditRefer
        Left = 8
        Top = 56
        Width = 360
        Height = 21
        BorderColor = clWindowText
        Caption = #1042#1080#1076' '#1076#1074#1080#1078#1077#1085#1080#1103
        CaptionAlignment = taLeftJustify
        DataField = 'MV_NAME'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 6
        LabelWidth = 120
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnExit = lerMvTpCode_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'MV_CODE'
        BeforeButtonClick = lerMvTpCode_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'MV_CODE;-1;50;1;-1;'#1050#1086#1076'|MV_NAME;-1;200;1;-1;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldName = 'MV_NAME'
        FindFieldType = tfCharacterString
        ListDataSet = DSMvTp
        OutFieldsArray = 'MV_CODE;PRT_TP'
        PutFieldsArray = 'MV_CODE;PRT_TP'
        ReferCaption = #1042#1080#1076#1099' '#1076#1074#1080#1078#1077#1085#1080#1103' '#1076#1077#1085#1077#1078#1085#1099#1093' '#1089#1088#1077#1076#1089#1090#1074
        TypeFindFieldName = 'MV_NAME'
        xReferId = 0
        IsHarbourRefer = True
        OnSelect = lerMvTpCode_Select
      end
      object bFrame1: xbFrame
        Left = 8
        Top = 85
        Width = 640
        Height = 42
        Caption = #1055#1083#1072#1090#1077#1083#1100#1097#1080#1082
        TabOrder = 11
        Anchors = [akLeft, akTop, akRight]
        DesignSize = (
          640
          42)
        object lbPartName: xbLabel
          Left = 281
          Top = 19
          Width = 350
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPlatName'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'FIO'
          DataSource = ADSDocCmp
        end
        object lerPlatCode: xbLabelEditRefer
          Left = 6
          Top = 16
          Width = 265
          Height = 21
          BorderColor = clWindowText
          Caption = #1054#1090' '#1082#1086#1075#1086
          CaptionAlignment = taLeftJustify
          DataField = 'TABN'
          DataSource = ADSDocCmp
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 0
          LabelWidth = 114
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'TABN'
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 
            'CODE;-1;50;1;-1;'#1058#1072#1073'.'#8470'|SHORTNAME;-1;120;1;-1;'#1060#1072#1084#1080#1083#1080#1103'|name1;-1;100' +
            ';1;-1;'#1048#1084#1103'|Name2;-1;150;1;-1;'#1054#1090#1095#1077#1089#1090#1074#1086
          FindFieldName = 'CODE'
          FindFieldType = tfCharacterString
          ListDataSet = dsTabN
          OutFieldsArray = 'CODE'
          PutFieldsArray = 'TABN'
          ReferCaption = #1057#1087#1088#1072#1074#1086#1095#1085#1080#1082' '#1089#1086#1090#1088#1091#1076#1085#1080#1082#1086#1074
          TypeFindFieldName = 'CODE'
          xReferId = 0
          IsHarbourRefer = True
          OnSelect = lerPlatCode_Select
        end
      end
      object lcbStatus: xbLabelCombo
        Left = 238
        Top = 32
        Width = 130
        Height = 21
        ParentBackGround = True
        Caption = #1057#1090#1072#1090#1091#1089
        Enabled = False
        TabOrder = 5
        LabelWidth = 40
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Sorted = False
        EditColor = clWindow
        DisabledColor = clInactiveBorder
        DisabledFontColor = clBlack
        BorderColor = clWindowText
        AutoComplete = False
        Style = csDropDownList
        CharCase = ecNormal
        DropDownCount = 0
        ItemHeight = 0
        MaxLength = 0
        Items.Strings = (
          #1095#1077#1088#1085#1086#1074#1080#1082
          #1087#1077#1088#1077#1076#1072#1085
          #1086#1087#1083#1072#1095#1077#1085)
        ItemIndex = -1
        UseStandartHint = True
      end
      object leDocVid: xbLabelEdit
        Left = 8
        Top = 8
        Width = 220
        Height = 21
        BorderColor = clWindowText
        Caption = #1044#1086#1082#1091#1084#1077#1085#1090':             '#1074#1080#1076'    '
        CaptionAlignment = taLeftJustify
        DataField = 'DOC_CODE'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 0
        LabelWidth = 120
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leDocNum: xbLabelEdit
        Left = 378
        Top = 8
        Width = 70
        Height = 21
        BorderColor = clWindowText
        Caption = #1085#1086#1084#1077#1088'    '
        CaptionAlignment = taLeftJustify
        DataField = 'DOC_NUM'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 2
        LabelWidth = 0
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leDocDate: xbLabelEdit
        Left = 537
        Top = 8
        Width = 110
        Height = 21
        BorderColor = clWindowText
        Caption = #1076#1072#1090#1072'    '
        CaptionAlignment = taLeftJustify
        DataField = 'DOC_DATE'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 3
        LabelWidth = 30
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object bFrame2: xbFrame
        Left = 8
        Top = 135
        Width = 640
        Height = 90
        Caption = #1055#1086#1083#1091#1095#1072#1090#1077#1083#1100
        TabOrder = 12
        Anchors = [akLeft, akTop, akRight]
        DesignSize = (
          640
          90)
        object lbNalModelName: xbLabel
          Left = 266
          Top = 118
          Width = 300
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbNalModelName'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataSource = ADS
        end
        object bLabel1: xbLabel
          Left = 281
          Top = 19
          Width = 350
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPolName'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'FINOBJ_PART_SHORTNAME'
          DataSource = ADS
        end
        object lbBankName1: xbLabel
          Left = 411
          Top = 43
          Width = 220
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPolBankName1'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'OWNACNT_BANK_NAME'
          DataSource = ADSDocCmp
        end
        object lbBankName2: xbLabel
          Left = 411
          Top = 67
          Width = 220
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPolBankName2'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          OnClick = lbBankName2_Click
          DataField = 'OWNACNTCMPBNK_NAME'
          DataSource = ADSDocCmp
        end
        object lePolCode: xbLabelEdit
          Left = 6
          Top = 16
          Width = 265
          Height = 21
          BorderColor = clWindowText
          Caption = #1055#1088#1077#1076#1087#1088#1080#1103#1090#1080#1077
          CaptionAlignment = taLeftJustify
          DataField = 'FINOBJ_PART_CODE'
          DataSource = ADS
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 0
          LabelWidth = 114
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object lePolAcnt1: xbLabelEdit
          Left = 6
          Top = 40
          Width = 265
          Height = 21
          BorderColor = clWindowText
          Caption = #1056#1072#1089#1095#1077#1090#1085#1099#1081' '#1089#1095#1077#1090
          CaptionAlignment = taLeftJustify
          DataField = 'OWNACNT_NUM'
          DataSource = ADSDocCmp
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 1
          LabelWidth = 114
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object lePolBankCode1: xbLabelEdit
          Left = 281
          Top = 40
          Width = 120
          Height = 21
          BorderColor = clWindowText
          Caption = #1074' '#1073#1072#1085#1082#1077
          CaptionAlignment = taLeftJustify
          DataField = 'OWNACNT_BANK_CODE'
          DataSource = ADSDocCmp
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 2
          LabelWidth = 42
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object lePolAcnt2: xbLabelEdit
          Left = 120
          Top = 64
          Width = 151
          Height = 21
          BorderColor = clWindowText
          Caption = #1056#1072#1089#1095#1077#1090#1085#1099#1081' '#1089#1095#1077#1090
          CaptionAlignment = taLeftJustify
          DataField = 'OWNACNTCMP_NUM'
          DataSource = ADSDocCmp
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 3
          LabelWidth = 0
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object lerPolBankCode2: xbLabelEditRefer
          Left = 281
          Top = 64
          Width = 120
          Height = 21
          BorderColor = clWindowText
          Caption = #1074' '#1073#1072#1085#1082#1077
          CaptionAlignment = taLeftJustify
          DataField = 'OWNACNTCMPBNK_CODE'
          DataSource = ADSDocCmp
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 4
          LabelWidth = 42
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'M_ACNT_BNK'
          EnabledEdit = False
          BeforeButtonClick = lerPolBankCode2_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 'Bnk_Code;-1;50;1;-1;'#1050#1086#1076'|Bnk_Name;-1;150;1;-1;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
          FindFieldName = 'BNK_CODE'
          FindFieldType = tfCharacterString
          ListDataSet = DSPolBank2
          OutFieldsArray = 'BNK_ID'
          PutFieldsArray = 'M_ACNT_BNK'
          ReferCaption = #1057#1095#1077#1090' '#1074' '#1073#1072#1085#1082#1077
          TypeFindFieldName = 'BNK_CODE'
          xReferId = 0
          IsHarbourRefer = True
        end
      end
      object lerVal: xbLabelEditRefer
        Left = 378
        Top = 32
        Width = 145
        Height = 21
        BorderColor = clWindowText
        Caption = #1042#1072#1083#1102#1090#1072
        CaptionAlignment = taLeftJustify
        DataField = 'CURR'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 8
        LabelWidth = 50
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Visible = False
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'CURR'
        EnabledEdit = False
        EnabledButton = False
        BeforeButtonClick = lerVal_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'CODE;-1;50;1;-1;'#1050#1086#1076'|NAME;-1;200;1;-1;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldName = 'CODE'
        FindFieldType = tfCharacterString
        ListDataSet = DSVal
        OutFieldsArray = 'CODE'
        PutFieldsArray = 'CURR'
        ReferCaption = #1057#1087#1088#1072#1074#1086#1095#1085#1080#1082' '#1074#1072#1083#1102#1090
        TypeFindFieldName = 'CODE'
        xReferId = 0
        IsHarbourRefer = True
      end
      object lecSumma: xbLabelEditCalc
        Left = 528
        Top = 32
        Width = 120
        Height = 21
        BorderColor = clWindowText
        Caption = #1057#1091#1084#1084#1072
        CaptionAlignment = taLeftJustify
        DataField = 'SUM'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        Enabled = False
        TabOrder = 9
        LabelWidth = 40
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        OnEnter = lecSumma_Enter
        OnExit = lecSumma_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        EnabledEdit = False
        VisibleButton = False
        OnSelect = lecSumma_Select
      end
      object lcbPTp: xbLabelCombo
        Left = 8
        Top = 32
        Width = 220
        Height = 21
        ParentBackGround = True
        Caption = #1042#1080#1076' '#1087#1083#1072#1090#1077#1078#1072
        TabOrder = 4
        LabelWidth = 120
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Sorted = False
        EditColor = clWindow
        DisabledColor = clInactiveBorder
        DisabledFontColor = clBlack
        BorderColor = clWindowText
        AutoComplete = False
        Style = csDropDownList
        CharCase = ecNormal
        DropDownCount = 0
        ItemHeight = 0
        MaxLength = 0
        Items.Strings = (
          ''
          #1087#1086#1095#1090#1086#1081
          #1090#1077#1083#1077#1075#1088#1072#1092#1086#1084
          #1101#1083#1077#1082#1090#1088#1086#1085#1085#1086
          #1089#1088#1086#1095#1085#1086)
        ItemIndex = -1
        UseStandartHint = True
        OnSelect = lcbPTp_Select
      end
      object lerNaznPlat: xbLabelEditRefer
        Left = 8
        Top = 234
        Width = 401
        Height = 21
        BorderColor = clWindowText
        Caption = #1048#1089#1090#1086#1095#1085#1080#1082' '#1074#1079#1085#1086#1089#1072
        CaptionAlignment = taLeftJustify
        DataField = 'COMMENT'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 13
        LabelWidth = 120
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnKeyDown = lerNaznPlat_KeyDown
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'COMMENT'
        BeforeButtonClick = lerNaznPlat_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'TEXT;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldType = tfCharacterString
        ListDataSet = DSReasons
        OutFieldsArray = 'TEXT'
        PutFieldsArray = 'COMMENT'
        ReferCaption = #1054#1089#1085#1086#1074#1072#1085#1080#1103' '#1087#1083#1072#1090#1077#1078#1072
        ReferWidth = 450
        xReferId = 0
        IsHarbourRefer = True
      end
      object btChKas: xbButton
        Left = 568
        Top = 56
        Width = 80
        Height = 21
        Caption = #1050#1072#1089#1089#1086#1074#1099#1081' '#1087#1083#1072#1085
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        RoundedButton = True
        TabOrder = 10
        OnClick = btChKas_Click
        ButtonColor = clBlack
      end
      object leOperDate: xbLabelEdit
        Left = 378
        Top = 56
        Width = 145
        Height = 21
        BorderColor = clWindowText
        Caption = #1044#1072#1090#1072' '#1086#1087#1077#1088#1072#1094#1080#1080
        CaptionAlignment = taLeftJustify
        DataField = 'OPER_DATE'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 7
        LabelWidth = 80
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnExit = leOperDate_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leDopNum: xbLabelEdit
        Left = 238
        Top = 8
        Width = 130
        Height = 21
        BorderColor = clWindowText
        Caption = #1085#1086#1084#1077#1088'    '
        CaptionAlignment = taLeftJustify
        DataField = 'DOP_NUM'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 1
        LabelWidth = 40
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        MaxLength = 13
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
    end
    object TabSheet2: TTabSheet
      Caption = #1055#1088#1086#1074#1086#1076#1082#1080
      DesignSize = (
        656
        262)
      object txtopert: xbLabel
        Left = 261
        Top = 9
        Width = 302
        Height = 17
        Caption = 'txtopert'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
        Layout = tlCenter
        DataField = 'TYPEOP_NAME'
        DataSource = ADS
      end
      object lblDt: xbLabel
        Left = 6
        Top = 232
        Width = 644
        Height = 16
        Anchors = [akLeft, akRight, akBottom]
        Caption = '1'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
      end
      object lblKt: xbLabel
        Left = 6
        Top = 246
        Width = 644
        Height = 16
        Anchors = [akLeft, akRight, akBottom]
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
      end
      object rfOPerT: xbLabelEditRefer
        Left = 6
        Top = 6
        Width = 250
        Height = 21
        BorderColor = clWindowText
        Caption = #1058#1080#1087#1086#1074#1072#1103' '#1086#1087#1077#1088#1072#1094#1080#1103
        CaptionAlignment = taLeftJustify
        DataField = 'TYPEOP_CODE'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 0
        LabelWidth = 124
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'TYPE_OP'
        OnClearButtonClick = rfOPerT_ClearButtonClick
        VisibleButton = True
        UseStandartHint = True
        FindFieldName = 'code'
        FindFieldType = tfCharacterString
        OutFieldsArray = 'REC_ID'
        PutFieldsArray = 'TYPE_OP'
        ReferCaption = #1057#1087#1080#1089#1086#1082' '#1090#1080#1087#1086#1074#1099#1093' '#1086#1087#1077#1088#1072#1094#1080#1081
        TypeFindFieldName = 'code'
        xReferId = 0
        IsHarbourRefer = False
      end
      object bGrProv: xbGrid
        Left = 6
        Top = 31
        Width = 644
        Height = 199
        Anchors = [akLeft, akTop, akRight, akBottom]
        AutoFitColWidths = True
        DataSource = adsMain
        Flat = True
        FooterColor = clWindow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -11
        FooterFont.Name = 'MS Sans Serif'
        FooterFont.Style = []
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
        ReadOnly = True
        TabOrder = 1
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        UseMultiTitle = True
        VTitleMargin = 4
        OnDblClick = bGrid2_DblClick
        OnKeyPress = bGrid2_KeyPress
        IdGrid = '{A38D282F-9736-4FC3-B9B9-A83DF297FD74}'
        Columns = <
          item
            Checkboxes = True
            EditButtons = <>
            FieldName = 'X_ISMARK_'
            Footers = <>
            Title.Caption = ' '
            Width = 22
          end
          item
            EditButtons = <>
            FieldName = 'DT_SCHET'
            Footers = <>
            Title.Caption = #1057#1095#1077#1090'|'#1044#1077#1073#1077#1090
            Width = 80
          end
          item
            EditButtons = <>
            FieldName = 'KT_SCHET'
            Footers = <>
            Title.Caption = #1057#1095#1077#1090'|'#1050#1088#1077#1076#1080#1090
            Width = 80
          end
          item
            EditButtons = <>
            FieldName = 'NAMEOPER'
            Footers = <>
            Title.Caption = #1057#1086#1076#1077#1088#1078#1072#1085#1080#1077
            Width = 323
          end
          item
            EditButtons = <>
            FieldName = 'SUMMA'
            Footers = <>
            Title.Caption = #1057#1091#1084#1084#1072
            Width = 120
          end>
      end
    end
  end
  object btnOK: xbButton
    Left = 508
    Top = 301
    Width = 75
    Height = 21
    Hint = #1057#1086#1093#1088#1072#1085#1077#1085#1080#1077' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (F10)'
    Caption = #1054#1050
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 4
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btnCANCEL: xbButton
    Left = 591
    Top = 301
    Width = 75
    Height = 21
    Hint = #1042#1099#1093#1086#1076' '#1080#1079' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (Esc)'
    Caption = #1054#1090#1084#1077#1085#1072
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 5
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object pbDopData: xbPopupButton
    Left = 317
    Top = 301
    Width = 100
    Height = 21
    Caption = #1044#1086#1087'. '#1076#1072#1085#1085#1099#1077
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = MenuDopData
    RoundedButton = True
    TabOrder = 2
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object bDocDim: xbButton
    Left = 234
    Top = 301
    Width = 75
    Height = 21
    Hint = #1042#1074#1086#1076' Ctrl-D'
    Caption = #1048#1079#1084#1077#1088#1077#1085#1080#1103
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 1
    OnClick = bPlDoc_Click
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object pOperation: xbPopupButton
    Left = 425
    Top = 301
    Width = 75
    Height = 21
    Caption = #1054#1087#1077#1088#1072#1094#1080#1080
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = MenuOperation
    RoundedButton = True
    TabOrder = 3
    OnClick = pOperation_Click
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <>
    OEMTranslate = False
    Left = 109
    Top = 3
  end
  object ADS: xbADSDataSource
    DataSet = DS
    Left = 145
    Top = 3
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_FIN_DOC'
    Active = False
    Left = 72
    Top = 3
  end
  object MenuDopData: xbPopupMenu
    Left = 620
    Top = 2
    object MenuDopData1: TMenuItem
      Caption = #1053#1072#1083#1086#1075#1086#1074#1099#1077' '#1082#1086#1076#1099'   Ctrl+B'
      Enabled = False
      OnClick = MenuDopData1_Click
    end
    object MenuDopData2: TMenuItem
      Caption = #1056#1072#1089#1096#1080#1092#1088#1086#1074#1082#1072'        Ctrl+R'
      OnClick = MenuDopData2_Click
    end
    object miDopRecv: TMenuItem
      Caption = #1044#1086#1087' '#1088#1077#1082#1074#1080#1079#1080#1090#1099'      Alt+F5'
      OnClick = miDopRecv_Click
    end
    object miPodpis: TMenuItem
      Caption = #1055#1086#1076#1087#1080#1089#1080
      OnClick = miPodpis_Click
    end
  end
  object BODocCmp: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_DOC_CMP'
    Active = False
    Left = 477
    Top = 87
  end
  object DSDocCmp: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BODocCmp
    FieldDefs = <>
    OEMTranslate = False
    Left = 539
    Top = 87
  end
  object ADSDocCmp: xbADSDataSource
    DataSet = DSDocCmp
    Left = 604
    Top = 87
  end
  object BOMvTp: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_MOVE_TP'
    Active = False
    Left = 242
    Top = 6
  end
  object DSMvTp: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOMvTp
    FieldDefs = <>
    OEMTranslate = False
    Left = 295
    Top = 7
  end
  object BOVal: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsValuta'
    Active = False
    Left = 400
    Top = 17
  end
  object DSVal: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOVal
    FieldDefs = <>
    OEMTranslate = False
    Left = 453
    Top = 18
  end
  object BOPolBank2: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPartnerBank'
    Active = False
    Left = 553
    Top = 168
  end
  object DSPolBank2: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOPolBank2
    FieldDefs = <>
    OEMTranslate = False
    Left = 554
    Top = 219
  end
  object BOReasons: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_REASONS'
    Active = False
    Left = 45
    Top = 203
  end
  object DSReasons: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOReasons
    FieldDefs = <>
    OEMTranslate = False
    Left = 46
    Top = 245
  end
  object BOTabN: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPeople'
    Active = False
    Left = 371
    Top = 123
  end
  object dsTabN: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOTabN
    FieldDefs = <>
    OEMTranslate = False
    Left = 416
    Top = 124
  end
  object adsMain: xbADSDataSource
    DataSet = DSMAIN
    Left = 481
    Top = 165
  end
  object DSMAIN: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    xbsClassName = 'MAIN'
    BObject = BO
    FieldDefs = <
      item
        Name = 'NNOPER'
        DataType = ftFloat
      end
      item
        Name = 'TASK'
        DataType = ftString
        Size = 2
      end
      item
        Name = 'TaskName'
        DataType = ftString
        Size = 40
      end
      item
        Name = 'JrnName'
        DataType = ftString
        Size = 40
      end
      item
        Name = 'JrnCode'
        DataType = ftString
        Size = 4
      end
      item
        Name = 'DATAOPER'
        DataType = ftDate
      end
      item
        Name = 'NNDOC'
        DataType = ftString
        Size = 6
      end
      item
        Name = 'DT_SCHET'
        DataType = ftString
        Size = 16
      end
      item
        Name = 'DTName'
        DataType = ftString
        Size = 80
      end
      item
        Name = 'DT_CODE'
        DataType = ftString
        Size = 60
      end
      item
        Name = 'KT_SCHET'
        DataType = ftString
        Size = 16
      end
      item
        Name = 'KTName'
        DataType = ftString
        Size = 80
      end
      item
        Name = 'KT_CODE'
        DataType = ftString
        Size = 60
      end
      item
        Name = 'SUMMA'
        DataType = ftFloat
      end
      item
        Name = 'NAMEOPER'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'VALUTA'
        DataType = ftString
        Size = 3
      end
      item
        Name = 'VSUMMA'
        DataType = ftFloat
      end
      item
        Name = 'VCURS'
        DataType = ftFloat
      end
      item
        Name = 'SCLAD'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'STATUS'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'USER_DATE'
        DataType = ftDate
      end
      item
        Name = 'Z_STATUS'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'NNOPER_D'
        DataType = ftFloat
      end
      item
        Name = 'NNOPER_K'
        DataType = ftFloat
      end
      item
        Name = 'N_STATUS'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'CRYPT_CODE'
        DataType = ftString
        Size = 11
      end
      item
        Name = 'IDMAIN'
        DataType = ftFloat
      end
      item
        Name = 'JRN_ID'
        DataType = ftFloat
      end
      item
        Name = 'DOC_ID'
        DataType = ftFloat
      end
      item
        Name = 'VAL_ID'
        DataType = ftFloat
      end
      item
        Name = 'PSCHET'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'ENTRY_CTG'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'GL_DIM1'
        DataType = ftFloat
      end
      item
        Name = 'GL_DIM2'
        DataType = ftFloat
      end
      item
        Name = 'mainValuta'
        DataType = ftString
        Size = 3
      end
      item
        Name = 'PriznakZab'
        DataType = ftBoolean
      end>
    ReadOnly = True
    OEMTranslate = False
    Left = 486
    Top = 220
  end
  object StatusMenu: xbPopupMenu
    Left = 397
    Top = 184
    object MenuStatus1: TMenuItem
      Caption = #1063#1077#1088#1085#1086#1074#1080#1082
    end
    object MenuStatus2: TMenuItem
      Caption = #1055#1077#1088#1077#1076#1072#1085
    end
    object MenuStatus3: TMenuItem
      Caption = #1054#1087#1083#1072#1095#1077#1085
    end
  end
  object MenuOperation: xbPopupMenu
    Left = 403
    Top = 242
    object pStatus: TMenuItem
      Caption = #1057#1090#1072#1090#1091#1089'     Alt-S'
      object pStatus1: TMenuItem
        Caption = #1063#1077#1088#1085#1086#1074#1080#1082
      end
      object pStatus2: TMenuItem
        Caption = #1055#1077#1088#1077#1076#1072#1085
      end
      object pStatus3: TMenuItem
        Caption = #1054#1087#1083#1072#1095#1077#1085
      end
    end
    object miCopyProv: TMenuItem
      Caption = #1050#1086#1087#1080#1088#1086#1074#1072#1090#1100' '#1087#1088#1086#1074#1086#1076#1082#1091
      OnClick = miCopyProv_Click
    end
  end
end
frmPayOplZa.prg                                                       4319object frmPayOplZa: TfrmPayOplZa
  Left = 25
  Top = 25
  Width = 440
  Height = 135
  Anchors = []
  Caption = #1054#1087#1083#1072#1090#1072' '#1079#1072
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  WindowState = wsNormal
  OnActivate = Form_Activate
  OnClose = Form_Close
  OnCloseQuery = Form_CloseQuery
  OnCreate = Form_Create
  DesignSize = (
    432
    101)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 8
    Top = 8
    Width = 416
    Height = 57
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    object TabSheet1: TTabSheet
      Caption = #1054#1073#1097#1077#1077
      DesignSize = (
        414
        35)
      object lbForName: xbLabel
        Left = 198
        Top = 9
        Width = 210
        Height = 17
        Anchors = [akLeft, akTop, akRight]
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
        DataField = 'FOR_SHORTNAME'
        DataSource = ADS
      end
      object lerForCode: xbLabelEditRefer
        Left = 6
        Top = 8
        Width = 180
        Height = 21
        BorderColor = clWindowText
        Caption = #1054#1087#1083#1072#1090#1072' '#1079#1072' '
        CaptionAlignment = taLeftJustify
        DataField = 'FOR_COD_BUD_P'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 0
        LabelWidth = 70
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'FOR_ID'
        BeforeButtonClick = lerForCode_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'CODE;-1;100;1;0;'#1050#1086#1076'|SORTNAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldName = 'COD_BUD_P'
        FindFieldType = tfCharacterString
        OutFieldsArray = 'PART_ID'
        PutFieldsArray = 'R_ID'
        ReferCaption = #1057#1087#1080#1089#1086#1082
        ReferWidth = 450
        TypeFindFieldName = 'COD_BUD_P'
        xReferId = 0
        IsHarbourRefer = True
      end
    end
  end
  object btnOK: xbButton
    Left = 265
    Top = 73
    Width = 75
    Height = 21
    Hint = #1057#1086#1093#1088#1072#1085#1077#1085#1080#1077' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (F10)'
    Caption = #1054#1050
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 1
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btnCANCEL: xbButton
    Left = 352
    Top = 73
    Width = 75
    Height = 21
    Hint = #1042#1099#1093#1086#1076' '#1080#1079' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (Esc)'
    Caption = #1054#1090#1084#1077#1085#1072
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 2
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_DOC_CMP'
    Active = False
    Left = 95
    Top = 1
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <>
    OEMTranslate = False
    AfterEdit = DS_AfterEdit
    Left = 172
    Top = 65535
  end
  object ADS: xbADSDataSource
    DataSet = DS
    Left = 135
  end
end
frmPayAnul.prg                                                       30780object frmPayAnul: TfrmPayAnul
  Left = 25
  Top = 25
  Width = 680
  Height = 349
  ActiveControl = leDopNum
  Anchors = []
  Caption = #1047#1072#1087#1088#1086#1089' '#1085#1072' '#1072#1085#1085#1091#1083#1080#1088#1086#1074#1072#1085#1080#1077' '#1079#1072#1103#1074#1082#1080
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  WindowState = wsNormal
  OnCloseQuery = Form_CloseQuery
  OnCreate = Form_Create
  OnShow = Form_Show
  DesignSize = (
    672
    315)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 8
    Top = 8
    Width = 658
    Height = 284
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    OnChange = bPageControl1_Change
    object TabSheet1: TTabSheet
      Caption = #1054#1073#1097#1077#1077
      DesignSize = (
        656
        262)
      object lbNaznPlat: xbLabel
        Left = 8
        Top = 225
        Width = 150
        Height = 17
        Caption = #1055#1088#1080#1084#1077#1095#1072#1085#1080#1077' . . . . . . . . . . . . . . . . . . . .'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
      end
      object bFrame1: xbFrame
        Left = 8
        Top = 85
        Width = 640
        Height = 104
        TabOrder = 8
        Anchors = [akLeft, akTop, akRight]
        DesignSize = (
          640
          104)
        object lbPlatName: xbLabel
          Left = 296
          Top = 9
          Width = 335
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPlatName'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'FINOBJ_PART_SHORTNAME'
          DataSource = ADS
        end
        object lbGlavName: xbLabel
          Left = 296
          Top = 81
          Width = 335
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbGlavName'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'PART_ORGNAME'
          DataSource = ADSDocCmp
        end
        object lbPlatBankName1: xbLabel
          Left = 416
          Top = 34
          Width = 220
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPlatBankName1'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          OnClick = lbPlatBankName1_Click
          DataField = 'OWNACNT_BANK_NAME'
          DataSource = ADSDocCmp
        end
        object lbFO: xbLabel
          Left = 296
          Top = 57
          Width = 180
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbFO'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'FO_SHORTNAME'
          DataSource = ADSDocCmp
        end
        object lePlatCode: xbLabelEdit
          Left = 6
          Top = 6
          Width = 280
          Height = 21
          BorderColor = clWindowText
          Caption = #1055#1088#1077#1076#1087#1088#1080#1103#1090#1080#1077
          CaptionAlignment = taLeftJustify
          DataField = 'FINOBJ_COD_BUD_P'
          DataSource = ADS
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 0
          LabelWidth = 130
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object lerGlavCode: xbLabelEditRefer
          Left = 6
          Top = 78
          Width = 280
          Height = 21
          BorderColor = clWindowText
          Caption = #1043#1083#1072#1074#1085#1099#1081' '#1088#1072#1089#1087#1086#1088#1103#1076#1080#1090#1077#1083#1100
          CaptionAlignment = taLeftJustify
          DataField = 'PART_COD_BUD_P'
          DataSource = ADSDocCmp
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 5
          LabelWidth = 130
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          OnEnter = lerGlavCode_Enter
          OnExit = lerGlavCode_Exit
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'R_ID'
          BeforeButtonClick = lerGlavCode_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 'CODE;-1;100;1;0;'#1050#1086#1076'|SORTNAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
          FindFieldName = 'COD_BUD_P'
          FindFieldType = tfCharacterString
          OutFieldsArray = 'PART_ID'
          PutFieldsArray = 'R_ID'
          ReferCaption = #1057#1087#1080#1089#1086#1082
          ReferWidth = 450
          TypeFindFieldName = 'COD_BUD_P'
          xReferId = 0
          IsHarbourRefer = True
        end
        object lerBudLev: xbLabelEditRefer
          Left = 487
          Top = 54
          Width = 140
          Height = 21
          BorderColor = clWindowText
          Caption = #1041#1102#1076#1078#1077#1090
          CaptionAlignment = taLeftJustify
          DataField = 'BUD_LEV'
          DataSource = ADSDocCmp
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 4
          LabelWidth = 50
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          OnEnter = lerGlavCode_Enter
          OnExit = lerGlavCode_Exit
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'BUD_LEV'
          BeforeButtonClick = lerGlavCode_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 'CODE;-1;100;1;0;'#1050#1086#1076'|NAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
          FindFieldName = 'BUD_LEV'
          FindFieldType = tfCharacterString
          ListDataSet = DSBudLev
          OutFieldsArray = 'CODE'
          PutFieldsArray = 'BUD_LEV'
          ReferCaption = #1057#1087#1080#1089#1086#1082
          ReferWidth = 450
          TypeFindFieldName = 'BUD_LEV'
          xReferId = 0
          IsHarbourRefer = True
        end
        object lePlatAcnt1: xbLabelEdit
          Left = 6
          Top = 30
          Width = 280
          Height = 21
          BorderColor = clWindowText
          Caption = #1051#1080#1094#1077#1074#1086#1081' '#1089#1095#1077#1090
          CaptionAlignment = taLeftJustify
          DataField = 'OWNACNT_NUM'
          DataSource = ADSDocCmp
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 1
          LabelWidth = 130
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object lerPlatBankCode1: xbLabelEdit
          Left = 296
          Top = 30
          Width = 110
          Height = 21
          BorderColor = clWindowText
          Caption = #1074' '#1054#1060#1050'     '
          CaptionAlignment = taLeftJustify
          DataField = 'OWNACNT_COD_BUD_P'
          DataSource = ADSDocCmp
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 2
          LabelWidth = 40
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object lerFO: xbLabelEditRefer
          Left = 6
          Top = 54
          Width = 280
          Height = 21
          BorderColor = clWindowText
          Caption = #1060#1080#1085'. '#1086#1088#1075#1072#1085
          CaptionAlignment = taLeftJustify
          DataField = 'FO_COD_BUD_P'
          DataSource = ADSDocCmp
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 3
          LabelWidth = 130
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'FO_ID'
          BeforeButtonClick = lerFO_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 'CODE;-1;100;1;0;'#1050#1086#1076'|SORTNAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
          FindFieldName = 'COD_BUD_P'
          FindFieldType = tfCharacterString
          OutFieldsArray = 'PART_ID'
          PutFieldsArray = 'FO_ID'
          ReferCaption = #1057#1087#1080#1089#1086#1082
          ReferWidth = 450
          TypeFindFieldName = 'COD_BUD_P'
          xReferId = 0
          IsHarbourRefer = True
        end
      end
      object lcbStatus: xbLabelCombo
        Left = 8
        Top = 32
        Width = 256
        Height = 21
        ParentBackGround = True
        Caption = #1057#1090#1072#1090#1091#1089
        Enabled = False
        TabOrder = 4
        LabelWidth = 156
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Sorted = False
        EditColor = clWindow
        DisabledColor = clInactiveBorder
        DisabledFontColor = clBlack
        BorderColor = clWindowText
        AutoComplete = False
        Style = csDropDownList
        CharCase = ecNormal
        DropDownCount = 0
        ItemHeight = 0
        MaxLength = 0
        Items.Strings = (
          #1095#1077#1088#1085#1086#1074#1080#1082
          #1087#1077#1088#1077#1076#1072#1085
          #1086#1087#1083#1072#1095#1077#1085)
        ItemIndex = -1
        UseStandartHint = True
      end
      object leDocVid: xbLabelEdit
        Left = 8
        Top = 8
        Width = 256
        Height = 21
        BorderColor = clWindowText
        Caption = #1044#1086#1082#1091#1084#1077#1085#1090':     '#1074#1080#1076'    '
        CaptionAlignment = taLeftJustify
        DataField = 'DOC_CODE'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 0
        LabelWidth = 156
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leDocNum: xbLabelEdit
        Left = 432
        Top = 8
        Width = 70
        Height = 21
        BorderColor = clWindowText
        Caption = #1085#1086#1084#1077#1088'    '
        CaptionAlignment = taLeftJustify
        DataField = 'DOC_NUM'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 2
        LabelWidth = 0
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leDocDate: xbLabelEdit
        Left = 513
        Top = 8
        Width = 120
        Height = 21
        BorderColor = clWindowText
        Caption = #1076#1072#1090#1072'    '
        CaptionAlignment = taLeftJustify
        DataField = 'DOC_DATE'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 3
        LabelWidth = 30
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leOperDate: xbLabelEdit
        Left = 463
        Top = 32
        Width = 170
        Height = 21
        BorderColor = clWindowText
        Caption = #1044#1072#1090#1072' '#1086#1087#1077#1088#1072#1094#1080#1080
        CaptionAlignment = taLeftJustify
        DataField = 'OPER_DATE'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 5
        LabelWidth = 80
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnExit = leOperDate_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leDopNum: xbLabelEdit
        Left = 274
        Top = 8
        Width = 150
        Height = 21
        BorderColor = clWindowText
        Caption = #1085#1086#1084#1077#1088'    '
        CaptionAlignment = taLeftJustify
        DataField = 'DOP_NUM'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 1
        LabelWidth = 40
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leRegNum: xbLabelEdit
        Left = 8
        Top = 56
        Width = 256
        Height = 21
        BorderColor = clWindowText
        Caption = #1056#1077#1075#1080#1089#1090#1088#1072#1094#1080#1103' '#1074' '#1054#1060#1050'     '#1085#1086#1084#1077#1088'     '
        CaptionAlignment = taLeftJustify
        DataField = 'REG_NUM'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 6
        LabelWidth = 156
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        MaxLength = 13
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leRegDate: xbLabelEdit
        Left = 274
        Top = 56
        Width = 150
        Height = 21
        BorderColor = clWindowText
        Caption = '    '#1076#1072#1090#1072'    '
        CaptionAlignment = taLeftJustify
        DataField = 'REG_DATE'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 7
        LabelWidth = 40
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnExit = leRegDate_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object memNaznPlat: xbMemo
        Left = 164
        Top = 221
        Width = 456
        Height = 34
        ColorFlat = clBtnFace
        ParentColor = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        MaxLength = 210
        ParentFont = False
        TabOrder = 13
        OnKeyDown = memNaznPlat_KeyDown
        AutoDisplay = False
        BorderStyle = bsNone
        Color = clWhite
        DisabledColor = clInactiveBorder
        DisabledFontColor = 7368816
        DataField = 'COMMENT'
        DataSource = ADS
      end
      object btNaznPlat: xbButton
        Left = 622
        Top = 221
        Width = 21
        Height = 21
        Caption = '...'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        RoundedButton = True
        TabOrder = 14
        OnClick = btNaznPlat_Click
        ButtonColor = clBlack
      end
      object lerAnTp: xbLabelEditRefer
        Left = 8
        Top = 197
        Width = 256
        Height = 21
        BorderColor = clWindowText
        Caption = #1040#1085#1085#1091#1083#1080#1088#1091#1077#1084#1099#1081' '#1076#1086#1082#1091#1084#1077#1085#1090':  '#1074#1080#1076
        CaptionAlignment = taLeftJustify
        DataField = 'AN_TP'
        DataSource = ADSDocCmp
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 9
        LabelWidth = 156
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnEnter = lerAnTp_Enter
        OnExit = lerAnTp_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'AN_TP'
        BeforeButtonClick = lerAnTp_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'TP_CODE;-1;50;1;0;'#1050#1086#1076'|TP_NAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldName = 'AN_TP'
        FindFieldType = tfCharacterString
        ListDataSet = DSAnDocVid
        OutFieldsArray = 'TP_CODE'
        PutFieldsArray = 'AN_TP'
        ReferCaption = #1042#1080#1076#1099' '#1076#1086#1082#1091#1084#1077#1085#1090#1086#1074
        ReferHeight = 200
        ReferWidth = 350
        TypeFindFieldName = 'AN_TP'
        xReferId = 0
        IsHarbourRefer = True
        OnSelect = lerAnTp_Select
      end
      object lerAvDopNum: xbLabelEditRefer
        Left = 274
        Top = 197
        Width = 150
        Height = 21
        BorderColor = clWindowText
        Caption = #1085#1086#1084#1077#1088
        CaptionExtender = ceNone
        CaptionAlignment = taLeftJustify
        DataField = 'AN_DOP_NUM'
        DataSource = ADSDocCmp
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 10
        LabelWidth = 40
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Required = True
        OnExit = lerAvDopNum_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'AN_ID'
        BeforeButtonClick = lerAvDopNum_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 
          'DOC_CODE;-1;70;1;0;'#1042#1080#1076'|DOP_NUM;-1;120;1;0;'#1053#1086#1084#1077#1088'|DOC_DATE;-1;80;1' +
          ';0;'#1044#1072#1090#1072'|OPER_DATE;-1;80;1;0;'#1044#1072#1090#1072' '#1086#1087#1077#1088#1072#1094#1080#1080'|VAR_FIELD1;-1;300;1;0;' +
          #1050#1086#1085#1090#1088#1072#1075#1077#1085#1090
        FindFieldName = 'AN_ID'
        FindFieldType = tfCharacterString
        ListDataSet = DSAnDoc
        OutFieldsArray = 'RowID'
        PutFieldsArray = 'AN_ID'
        ReferCaption = #1057#1087#1080#1089#1086#1082
        ReferWidth = 550
        TypeFindFieldName = 'AN_ID'
        xReferId = 0
        IsHarbourRefer = True
        OnSelect = lerAvDopNum_Select
      end
      object leAvDocNum: xbLabelEdit
        Left = 432
        Top = 197
        Width = 70
        Height = 21
        BorderColor = clWindowText
        Caption = #1085#1086#1084#1077#1088'    '
        CaptionAlignment = taLeftJustify
        DataField = 'AN_DOC_NUM'
        DataSource = ADSDocCmp
        ButtonsColor = clBlack
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 11
        LabelWidth = 0
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leAvDocDate: xbLabelEdit
        Left = 513
        Top = 197
        Width = 120
        Height = 21
        BorderColor = clWindowText
        Caption = #1076#1072#1090#1072'    '
        CaptionAlignment = taLeftJustify
        DataField = 'AN_DOC_DATE'
        DataSource = ADSDocCmp
        ButtonsColor = clBlack
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 12
        LabelWidth = 30
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
    end
  end
  object btnOK: xbButton
    Left = 508
    Top = 293
    Width = 75
    Height = 21
    Hint = #1057#1086#1093#1088#1072#1085#1077#1085#1080#1077' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (F10)'
    Caption = #1054#1050
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 3
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btnCANCEL: xbButton
    Left = 591
    Top = 293
    Width = 75
    Height = 21
    Hint = #1042#1099#1093#1086#1076' '#1080#1079' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (Esc)'
    Caption = #1054#1090#1084#1077#1085#1072
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 4
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object pOperation: xbPopupButton
    Left = 425
    Top = 293
    Width = 75
    Height = 21
    Caption = #1054#1087#1077#1088#1072#1094#1080#1080
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = MenuOperation
    RoundedButton = True
    TabOrder = 2
    OnClick = pOperation_Click
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object pbDopData: xbPopupButton
    Left = 317
    Top = 293
    Width = 100
    Height = 21
    Caption = #1044#1086#1087'. '#1076#1072#1085#1085#1099#1077
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = MenuDopData
    RoundedButton = True
    TabOrder = 1
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object bDocDim: xbButton
    Left = 236
    Top = 293
    Width = 75
    Height = 21
    Hint = #1042#1074#1086#1076' Ctrl-D'
    Caption = #1048#1079#1084#1077#1088#1077#1085#1080#1103
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 5
    OnClick = bPlDoc_Click
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <>
    OEMTranslate = False
    Left = 109
    Top = 3
  end
  object ADS: xbADSDataSource
    DataSet = DS
    Left = 145
    Top = 3
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_FIN_DOC'
    Active = False
    Left = 72
    Top = 3
  end
  object BODocCmp: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_DOC_CMP'
    Active = False
    Left = 165
    Top = 130
  end
  object DSDocCmp: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BODocCmp
    FieldDefs = <>
    OEMTranslate = False
    Left = 167
    Top = 165
  end
  object ADSDocCmp: xbADSDataSource
    DataSet = DSDocCmp
    Left = 607
    Top = 194
  end
  object BOMvTp: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_MOVE_TP'
    Active = False
    Left = 362
    Top = 87
  end
  object DSMvTp: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOMvTp
    FieldDefs = <>
    OEMTranslate = False
    Left = 415
    Top = 89
  end
  object BOReasons: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_REASONS'
    Active = False
    Left = 38
    Top = 130
  end
  object DSReasons: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOReasons
    FieldDefs = <>
    OEMTranslate = False
    Left = 97
    Top = 130
  end
  object BOBudLev: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_BUD_LEV'
    Active = False
    Left = 533
    Top = 48
  end
  object DSBudLev: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOBudLev
    FieldDefs = <>
    OEMTranslate = False
    Left = 586
    Top = 48
  end
  object MenuOperation: xbPopupMenu
    Left = 414
    Top = 197
    object pStatus: TMenuItem
      Caption = #1057#1090#1072#1090#1091#1089'                                             Alt-S'
      object pStatus1: TMenuItem
        Caption = #1063#1077#1088#1085#1086#1074#1080#1082
      end
      object pStatus2: TMenuItem
        Caption = #1055#1077#1088#1077#1076#1072#1085
      end
      object pStatus3: TMenuItem
        Caption = #1054#1087#1083#1072#1095#1077#1085
        Visible = False
      end
    end
    object miNaznPlat: TMenuItem
      Caption = #1055#1077#1088#1077#1092#1086#1088#1084#1080#1088#1086#1074#1072#1090#1100' '#1085#1072#1079#1085#1072#1095#1077#1085#1080#1077'  Ctrl+P'
      OnClick = miNaznPlat_Click
    end
  end
  object BOPartner: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPartner'
    Active = False
    Left = 533
  end
  object DSPartner: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOPartner
    FieldDefs = <>
    OEMTranslate = False
    Left = 592
    Top = 3
  end
  object MenuRaschet: xbPopupMenu
    Left = 418
    Top = 148
    object miDocOsn: TMenuItem
      Caption = #1044#1086#1082#1091#1084#1077#1085#1090'-'#1086#1089#1085#1086#1074#1072#1085#1080#1077
      OnClick = miDocOsn_Click
    end
    object miBalans: TMenuItem
      Caption = #1041#1072#1083#1072#1085#1089
      OnClick = miBalans_Click
    end
  end
  object MenuDopData: xbPopupMenu
    Left = 500
    Top = 148
    object miDopRecv: TMenuItem
      Caption = #1044#1086#1087' '#1088#1077#1082#1074#1080#1079#1080#1090#1099'      Alt+F5'
      OnClick = miDopRecv_Click
    end
    object miPodpis: TMenuItem
      Caption = #1055#1086#1076#1087#1080#1089#1080
      OnClick = miPodpis_Click
    end
  end
  object StatusMenu: xbPopupMenu
    Left = 348
    Top = 34
    object MenuStatus1: TMenuItem
      Caption = #1063#1077#1088#1085#1086#1074#1080#1082
    end
    object MenuStatus2: TMenuItem
      Caption = #1055#1077#1088#1077#1076#1072#1085
    end
    object MenuStatus3: TMenuItem
      Caption = #1054#1087#1083#1072#1095#1077#1085
      Visible = False
    end
  end
  object RFNaznPlat: xbReferCaller
    ColumnsTune = 'TEXT;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
    ListDataSet = DSReasons
    ReferCaption = #1054#1089#1085#1086#1074#1072#1085#1080#1103' '#1087#1083#1072#1090#1077#1078#1072
    ReferWidth = 450
    OnSelect = RFNaznPlat_Select
    Left = 346
    Top = 147
  end
  object BOAnDocVid: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_DOC_TYPE'
    Active = False
    Left = 540
    Top = 118
  end
  object DSAnDocVid: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOAnDocVid
    FieldDefs = <>
    OEMTranslate = False
    Left = 593
    Top = 118
  end
  object BOAnDoc: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_FIN_DOC'
    Active = False
    Left = 242
    Top = 34
  end
  object DSAnDoc: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOAnDoc
    FieldDefs = <>
    OEMTranslate = False
    Left = 295
    Top = 34
  end
  object BODocCmpAn: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_DOC_CMP'
    Active = False
    Left = 467
    Top = 114
  end
  object DSDocCmpAn: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BODocCmpAn
    FieldDefs = <>
    OEMTranslate = False
    Left = 462
    Top = 69
  end
end
frmPayUtoch.prg                                                      51216object frmPayUtoch: TfrmPayUtoch
  Left = 25
  Top = 25
  Width = 680
  Height = 420
  ActiveControl = leDopNum
  Anchors = []
  Caption = #1059#1074#1077#1076#1086#1084#1083#1077#1085#1080#1077' '#1086#1073' '#1091#1090#1086#1095#1085#1077#1085#1080#1080' '#1074#1080#1076#1072' '#1087#1083#1072#1090#1077#1078#1072
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  WindowState = wsNormal
  OnCloseQuery = Form_CloseQuery
  OnCreate = Form_Create
  OnShow = Form_Show
  DesignSize = (
    672
    386)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 8
    Top = 8
    Width = 658
    Height = 355
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    OnChange = bPageControl1_Change
    object TabSheet1: TTabSheet
      Caption = #1054#1073#1097#1077#1077
      DesignSize = (
        656
        333)
      object lerMvTpCode: xbLabelEditRefer
        Left = 8
        Top = 56
        Width = 386
        Height = 21
        BorderColor = clWindowText
        Caption = #1042#1080#1076' '#1076#1074#1080#1078#1077#1085#1080#1103
        CaptionAlignment = taLeftJustify
        DataField = 'MV_NAME'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 6
        LabelWidth = 156
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnEnter = lerMvTpCode_Enter
        OnExit = lerMvTpCode_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'MV_CODE'
        BeforeButtonClick = lerMvTpCode_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'MV_CODE;-1;50;1;-1;'#1050#1086#1076'|MV_NAME;-1;200;1;-1;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldName = 'MV_NAME'
        FindFieldType = tfCharacterString
        ListDataSet = DSMvTp
        OutFieldsArray = 'MV_CODE;PRT_TP;DIR'
        PutFieldsArray = 'MV_CODE;PRT_TP;DIR'
        ReferCaption = #1042#1080#1076#1099' '#1076#1074#1080#1078#1077#1085#1080#1103' '#1076#1077#1085#1077#1078#1085#1099#1093' '#1089#1088#1077#1076#1089#1090#1074
        TypeFindFieldName = 'MV_NAME'
        xReferId = 0
        IsHarbourRefer = True
        OnSelect = lerMvTpCode_Select
      end
      object bFrame1: xbFrame
        Left = 8
        Top = 108
        Width = 640
        Height = 104
        TabOrder = 9
        Anchors = [akLeft, akTop, akRight]
        DesignSize = (
          640
          104)
        object lbPlatName: xbLabel
          Left = 296
          Top = 9
          Width = 335
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPlatName'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'FINOBJ_PART_SHORTNAME'
          DataSource = ADS
        end
        object lbGlavName: xbLabel
          Left = 296
          Top = 81
          Width = 335
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbGlavName'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'PART_ORGNAME'
          DataSource = ADSDocCmp
        end
        object lbPlatBankName1: xbLabel
          Left = 416
          Top = 34
          Width = 220
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPlatBankName1'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          OnClick = lbPlatBankName1_Click
          DataField = 'OWNACNT_BANK_NAME'
          DataSource = ADSDocCmp
        end
        object lbFO: xbLabel
          Left = 296
          Top = 57
          Width = 180
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbFO'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'FO_SHORTNAME'
          DataSource = ADSDocCmp
        end
        object lePlatCode: xbLabelEdit
          Left = 6
          Top = 6
          Width = 280
          Height = 21
          BorderColor = clWindowText
          Caption = #1055#1088#1077#1076#1087#1088#1080#1103#1090#1080#1077
          CaptionAlignment = taLeftJustify
          DataField = 'FINOBJ_COD_BUD_P'
          DataSource = ADS
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 0
          LabelWidth = 130
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object lerGlavCode: xbLabelEditRefer
          Left = 6
          Top = 78
          Width = 280
          Height = 21
          BorderColor = clWindowText
          Caption = #1043#1083#1072#1074#1085#1099#1081' '#1088#1072#1089#1087#1086#1088#1103#1076#1080#1090#1077#1083#1100
          CaptionAlignment = taLeftJustify
          DataField = 'PART_COD_BUD_P'
          DataSource = ADSDocCmp
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 5
          LabelWidth = 130
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          OnEnter = lerGlavCode_Enter
          OnExit = lerGlavCode_Exit
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'R_ID'
          BeforeButtonClick = lerGlavCode_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 'CODE;-1;100;1;0;'#1050#1086#1076'|SORTNAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
          FindFieldName = 'COD_BUD_P'
          FindFieldType = tfCharacterString
          OutFieldsArray = 'PART_ID'
          PutFieldsArray = 'R_ID'
          ReferCaption = #1057#1087#1080#1089#1086#1082
          ReferWidth = 450
          TypeFindFieldName = 'COD_BUD_P'
          xReferId = 0
          IsHarbourRefer = True
        end
        object lerBudLev: xbLabelEditRefer
          Left = 487
          Top = 54
          Width = 140
          Height = 21
          BorderColor = clWindowText
          Caption = #1041#1102#1076#1078#1077#1090
          CaptionAlignment = taLeftJustify
          DataField = 'BUD_LEV'
          DataSource = ADSDocCmp
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 4
          LabelWidth = 50
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          OnEnter = lerGlavCode_Enter
          OnExit = lerGlavCode_Exit
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'BUD_LEV'
          BeforeButtonClick = lerGlavCode_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 'CODE;-1;100;1;0;'#1050#1086#1076'|NAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
          FindFieldName = 'BUD_LEV'
          FindFieldType = tfCharacterString
          ListDataSet = DSBudLev
          OutFieldsArray = 'CODE'
          PutFieldsArray = 'BUD_LEV'
          ReferCaption = #1057#1087#1080#1089#1086#1082
          ReferWidth = 450
          TypeFindFieldName = 'BUD_LEV'
          xReferId = 0
          IsHarbourRefer = True
        end
        object lePlatAcnt1: xbLabelEdit
          Left = 6
          Top = 30
          Width = 280
          Height = 21
          BorderColor = clWindowText
          Caption = #1051#1080#1094#1077#1074#1086#1081' '#1089#1095#1077#1090
          CaptionAlignment = taLeftJustify
          DataField = 'OWNACNT_NUM'
          DataSource = ADSDocCmp
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 1
          LabelWidth = 130
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object lerPlatBankCode1: xbLabelEdit
          Left = 296
          Top = 30
          Width = 110
          Height = 21
          BorderColor = clWindowText
          Caption = #1074' '#1054#1060#1050'     '
          CaptionAlignment = taLeftJustify
          DataField = 'OWNACNT_COD_BUD_P'
          DataSource = ADSDocCmp
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 2
          LabelWidth = 40
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object lerFO: xbLabelEditRefer
          Left = 6
          Top = 54
          Width = 280
          Height = 21
          BorderColor = clWindowText
          Caption = #1060#1080#1085'. '#1086#1088#1075#1072#1085
          CaptionAlignment = taLeftJustify
          DataField = 'FO_COD_BUD_P'
          DataSource = ADSDocCmp
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 3
          LabelWidth = 130
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'FO_ID'
          BeforeButtonClick = lerFO_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 'CODE;-1;100;1;0;'#1050#1086#1076'|SORTNAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
          FindFieldName = 'COD_BUD_P'
          FindFieldType = tfCharacterString
          OutFieldsArray = 'PART_ID'
          PutFieldsArray = 'FO_ID'
          ReferCaption = #1057#1087#1080#1089#1086#1082
          ReferWidth = 450
          TypeFindFieldName = 'COD_BUD_P'
          xReferId = 0
          IsHarbourRefer = True
        end
      end
      object lcbStatus: xbLabelCombo
        Left = 8
        Top = 32
        Width = 236
        Height = 21
        ParentBackGround = True
        Caption = #1057#1090#1072#1090#1091#1089
        Enabled = False
        TabOrder = 4
        LabelWidth = 156
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Sorted = False
        EditColor = clWindow
        DisabledColor = clInactiveBorder
        DisabledFontColor = clBlack
        BorderColor = clWindowText
        AutoComplete = False
        Style = csDropDownList
        CharCase = ecNormal
        DropDownCount = 0
        ItemHeight = 0
        MaxLength = 0
        Items.Strings = (
          #1095#1077#1088#1085#1086#1074#1080#1082
          #1087#1077#1088#1077#1076#1072#1085
          #1086#1087#1083#1072#1095#1077#1085)
        ItemIndex = -1
        UseStandartHint = True
      end
      object leDocVid: xbLabelEdit
        Left = 8
        Top = 8
        Width = 236
        Height = 21
        BorderColor = clWindowText
        Caption = #1044#1086#1082#1091#1084#1077#1085#1090':     '#1074#1080#1076'    '
        CaptionAlignment = taLeftJustify
        DataField = 'DOC_CODE'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 0
        LabelWidth = 156
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leDocNum: xbLabelEdit
        Left = 402
        Top = 8
        Width = 60
        Height = 21
        BorderColor = clWindowText
        Caption = #1085#1086#1084#1077#1088'    '
        CaptionAlignment = taLeftJustify
        DataField = 'DOC_NUM'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 2
        LabelWidth = 0
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leDocDate: xbLabelEdit
        Left = 473
        Top = 8
        Width = 120
        Height = 21
        BorderColor = clWindowText
        Caption = #1076#1072#1090#1072'    '
        CaptionAlignment = taLeftJustify
        DataField = 'DOC_DATE'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 3
        LabelWidth = 30
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leOperDate: xbLabelEdit
        Left = 423
        Top = 32
        Width = 170
        Height = 21
        BorderColor = clWindowText
        Caption = #1044#1072#1090#1072' '#1086#1087#1077#1088#1072#1094#1080#1080
        CaptionAlignment = taLeftJustify
        DataField = 'OPER_DATE'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 5
        LabelWidth = 80
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnExit = leOperDate_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leDopNum: xbLabelEdit
        Left = 254
        Top = 8
        Width = 140
        Height = 21
        BorderColor = clWindowText
        Caption = #1085#1086#1084#1077#1088'    '
        CaptionAlignment = taLeftJustify
        DataField = 'DOP_NUM'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 1
        LabelWidth = 40
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leRegNum: xbLabelEdit
        Left = 9
        Top = 80
        Width = 236
        Height = 21
        BorderColor = clWindowText
        Caption = #1056#1077#1075#1080#1089#1090#1088#1072#1094#1080#1103' '#1074' '#1054#1060#1050'     '#1085#1086#1084#1077#1088'     '
        CaptionAlignment = taLeftJustify
        DataField = 'REG_NUM'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 7
        LabelWidth = 156
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        MaxLength = 13
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leRegDate: xbLabelEdit
        Left = 254
        Top = 80
        Width = 140
        Height = 21
        BorderColor = clWindowText
        Caption = '    '#1076#1072#1090#1072'    '
        CaptionAlignment = taLeftJustify
        DataField = 'REG_DATE'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 8
        LabelWidth = 40
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnExit = leRegDate_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object bFrame3: xbFrame
        Left = 8
        Top = 221
        Width = 640
        Height = 80
        TabOrder = 10
        Anchors = [akLeft, akTop, akRight]
        DesignSize = (
          640
          80)
        object lbPolName: xbLabel
          Left = 296
          Top = 9
          Width = 340
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPolName'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'PART_SHORTNAME'
          DataSource = ADS
        end
        object lbPolBankCode1: xbLabel
          Left = 426
          Top = 33
          Width = 210
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPolBankCode1'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'PRTACNT_BANK_NAME'
          DataSource = ADSDocCmp
        end
        object lbPolBankCode2: xbLabel
          Left = 426
          Top = 55
          Width = 210
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPolBankCode2'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          OnClick = lbBankName2_Click
          DataField = 'PRTACNTCMPBNK_NAME'
          DataSource = ADSDocCmp
        end
        object lerPolCode: xbLabelEditRefer
          Left = 6
          Top = 6
          Width = 280
          Height = 21
          BorderColor = clWindowText
          Caption = #1055#1072#1088#1090#1085#1077#1088
          CaptionAlignment = taLeftJustify
          DataField = 'PART_CODE'
          DataSource = ADS
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 0
          LabelWidth = 130
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          OnEnter = lerPolCode_Enter
          OnExit = lerPolCode_Exit
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'PRT_ID'
          BeforeButtonClick = lerPolCode_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 'CODE;-1;100;1;0;'#1050#1086#1076'|SORTNAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
          FindFieldName = 'CODE'
          FindFieldType = tfCharacterString
          ListDataSet = DSPartner
          OutFieldsArray = 'PART_ID'
          PutFieldsArray = 'PRT_ID'
          ReferCaption = #1057#1087#1080#1089#1086#1082
          ReferWidth = 450
          TypeFindFieldName = 'CODE'
          xReferId = 0
          IsHarbourRefer = True
          OnSelect = lerPolCode_Select
        end
        object lerPolAcnt1: xbLabelEditRefer
          Left = 6
          Top = 30
          Width = 280
          Height = 21
          BorderColor = clWindowText
          Caption = #1056#1072#1089#1095#1077#1090#1085#1099#1081' '#1089#1095#1077#1090
          CaptionAlignment = taLeftJustify
          DataField = 'PRTACNT_NUM'
          DataSource = ADSDocCmp
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 1
          LabelWidth = 130
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          OnExit = lerPolAcnt1_Exit
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'P_ACNT_ID'
          BeforeButtonClick = lerPolAcnt1_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 
            'Accnt;-1;130;1;-1;'#1057#1095#1077#1090'|GetBankName;-1;200;1;-1;'#1041#1072#1085#1082'|Comment;-1;1' +
            '70;1;-1;'#1050#1086#1084#1084#1077#1085#1090#1072#1088#1080#1081
          FindFieldName = 'ACCNT'
          FindFieldType = tfCharacterString
          ListDataSet = DSPolAcnt1
          OutFieldsArray = 'REC_ID'
          PutFieldsArray = 'P_ACNT_ID'
          ReferCaption = #1057#1095#1077#1090' '#1074' '#1073#1072#1085#1082#1077
          TypeFindFieldName = 'ACCNT'
          xReferId = 0
          IsHarbourRefer = True
          OnSelect = lerPolAcnt1_Select
        end
        object lerPolBankCode2: xbLabelEditRefer
          Left = 296
          Top = 54
          Width = 120
          Height = 21
          BorderColor = clWindowText
          Caption = #1074' '#1073#1072#1085#1082#1077
          CaptionAlignment = taLeftJustify
          DataField = 'PRTACNTCMPBNK_CODE'
          DataSource = ADSDocCmp
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 4
          LabelWidth = 42
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'P_ACNT_BNK'
          BeforeButtonClick = lerPolBankCode2_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 'Bnk_Code;-1;50;1;-1;'#1050#1086#1076'|Bnk_Name;-1;150;1;-1;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
          FindFieldName = 'BNK_CODE'
          FindFieldType = tfCharacterString
          ListDataSet = DSPolBank2
          OutFieldsArray = 'BNK_ID'
          PutFieldsArray = 'P_ACNT_BNK'
          ReferCaption = #1057#1095#1077#1090' '#1074' '#1073#1072#1085#1082#1077
          TypeFindFieldName = 'BNK_CODE'
          xReferId = 0
          IsHarbourRefer = True
        end
        object lePolBankCode1: xbLabelEdit
          Left = 296
          Top = 30
          Width = 120
          Height = 21
          BorderColor = clWindowText
          Caption = #1074' '#1073#1072#1085#1082#1077
          CaptionAlignment = taLeftJustify
          DataField = 'PRTACNT_BNK_COD_B'
          DataSource = ADSDocCmp
          ButtonsColor = clBlack
          EnabledColor = clWhite
          TabOrder = 2
          LabelWidth = 42
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object lerPolAcnt2: xbLabelEditRefer
          Left = 136
          Top = 54
          Width = 150
          Height = 21
          BorderColor = clWindowText
          Caption = #1056#1072#1089#1095#1077#1090#1085#1099#1081' '#1089#1095#1077#1090
          CaptionAlignment = taLeftJustify
          DataField = 'PRTACNTCMP_NUM'
          DataSource = ADSDocCmp
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 3
          LabelWidth = 0
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'P_ACNT_CMP'
          BeforeButtonClick = lerPolAcnt2_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 
            'Accnt;-1;130;1;-1;'#1057#1095#1077#1090'|GetBankName;-1;200;1;-1;'#1041#1072#1085#1082'|Comment;-1;1' +
            '70;1;-1;'#1050#1086#1084#1084#1077#1085#1090#1072#1088#1080#1081
          FindFieldName = 'ACCNT'
          FindFieldType = tfCharacterString
          ListDataSet = DSPolAcnt2
          OutFieldsArray = 'REC_ID'
          PutFieldsArray = 'P_ACNT_CMP'
          ReferCaption = #1057#1095#1077#1090' '#1074' '#1073#1072#1085#1082#1077
          TypeFindFieldName = 'ACCNT'
          xReferId = 0
          IsHarbourRefer = True
        end
      end
      object leAcNum: xbLabelEdit
        Left = 8
        Top = 305
        Width = 286
        Height = 21
        BorderColor = clWindowText
        Caption = #1047#1072#1087#1088#1086#1089' '#1085#1072' '#1091#1090#1086#1095#1085#1077#1085#1080#1077' '#1087#1083#1072#1090#1077#1078#1072
        CaptionAlignment = taLeftJustify
        DataField = 'AC_NUM'
        DataSource = ADSDocCmp
        ButtonsColor = clBlack
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 11
        LabelWidth = 156
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object ledAcDate: xbLabelEditCalend
        Left = 346
        Top = 305
        Width = 78
        Height = 21
        BorderColor = clWindowText
        Caption = #1076#1072#1090#1072
        CaptionAlignment = taLeftJustify
        DataField = 'AC_DATE'
        DataSource = ADSDocCmp
        ButtonsColor = clBlack
        EnabledColor = clWhite
        Enabled = False
        EditMask = '!99/99/0000;1; '
        TabOrder = 12
        LabelWidth = 0
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        MaxLength = 10
        Text = '  /  /    '
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2;Alt+Down'
        EnabledEdit = False
        VisibleButton = False
      end
    end
    object TabSheet2: TTabSheet
      Caption = #1056#1072#1089#1096#1080#1092#1088#1086#1074#1082#1072
      DesignSize = (
        656
        333)
      object lbGridBudExp: xbLabel
        Left = 8
        Top = 8
        Width = 250
        Height = 17
        Caption = #1048#1079#1084#1077#1085#1080#1090#1100' '#1085#1072' '#1088#1077#1082#1074#1080#1079#1080#1090#1099
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
      end
      object bFrame2: xbFrame
        Left = 8
        Top = 27
        Width = 640
        Height = 300
        TabOrder = 0
        Border = brOnlyTopLine
        Anchors = [akLeft, akTop, akRight, akBottom]
        OnClick = bFrame2_Click
        object bLabel1: xbLabel
          Left = 0
          Top = 163
          Width = 250
          Height = 17
          Caption = #1056#1077#1082#1074#1080#1079#1080#1090#1099' '#1087#1083#1072#1090#1077#1078#1085#1086#1075#1086' '#1076#1086#1082#1091#1084#1077#1085#1090#1072
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
        end
        object GridBudExp: xbGrid
          Left = 0
          Top = 0
          Width = 640
          Height = 150
          Align = alTop
          AutoFitColWidths = True
          DataSource = ADSBudExp
          Flat = True
          FooterColor = clWindow
          FooterFont.Charset = DEFAULT_CHARSET
          FooterFont.Color = clWindowText
          FooterFont.Height = -11
          FooterFont.Name = 'MS Sans Serif'
          FooterFont.Style = []
          Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgConfirmDelete]
          ReadOnly = True
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          UseMultiTitle = True
          VertScrollBar.VisibleMode = sbAlwaysShowEh
          OnDblClick = GridBudExpFin_DblClick
          OnKeyPress = GridBudExpFin_KeyPress
          IdGrid = '{329E61A8-DDF8-4AD7-9E43-8A14F141103C}'
          Columns = <
            item
              EditButtons = <>
              FieldName = 'PRE_TP'
              Footers = <>
              Title.Caption = #1044#1086#1082#1091#1084#1077#1085#1090'|'#1074#1080#1076
              Width = 30
            end
            item
              EditButtons = <>
              FieldName = 'PRE_NUM'
              Footers = <>
              Title.Caption = #1044#1086#1082#1091#1084#1077#1085#1090'|'#1085#1086#1084#1077#1088
              Width = 80
            end
            item
              EditButtons = <>
              FieldName = 'PRE_DATE'
              Footers = <>
              Title.Caption = #1044#1086#1082#1091#1084#1077#1085#1090'|'#1076#1072#1090#1072
              Width = 60
            end
            item
              EditButtons = <>
              FieldName = 'INN_S'
              Footers = <>
              Title.Caption = #1048#1053#1053
              Width = 80
            end
            item
              EditButtons = <>
              FieldName = 'KPP_S'
              Footers = <>
              Title.Caption = #1050#1055#1055
              Width = 80
            end
            item
              EditButtons = <>
              FieldName = 'OKATO_S'
              Footers = <>
              Title.Caption = #1054#1050#1040#1058#1054
              Width = 70
            end
            item
              EditButtons = <>
              FieldName = 'EXP_DIM'
              Footers = <>
              Title.Caption = #1050#1041#1050
              Width = 120
            end
            item
              Alignment = taRightJustify
              EditButtons = <>
              FieldName = 'SUM_KR'
              Footers = <>
              Title.Caption = #1057#1091#1084#1084#1072
              Width = 81
            end>
        end
        object GridBudRef: xbGrid
          Left = 0
          Top = 182
          Width = 640
          Height = 118
          Align = alBottom
          Anchors = [akLeft, akTop, akRight, akBottom]
          AutoFitColWidths = True
          DataSource = ADSBudExp
          Flat = True
          FooterColor = clWindow
          FooterFont.Charset = DEFAULT_CHARSET
          FooterFont.Color = clWindowText
          FooterFont.Height = -11
          FooterFont.Name = 'MS Sans Serif'
          FooterFont.Style = []
          Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgConfirmDelete]
          ReadOnly = True
          TabOrder = 1
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          UseMultiTitle = True
          VertScrollBar.VisibleMode = sbAlwaysShowEh
          OnDblClick = GridBudExpFin_DblClick
          OnKeyPress = GridBudExpFin_KeyPress
          IdGrid = '{A98E65F8-6FF6-4BF2-A77F-31B2946E3ECF}'
          Columns = <
            item
              EditButtons = <>
              FieldName = 'BUDREF_INN_S'
              Footers = <>
              Title.Caption = #1048#1053#1053
              Width = 120
            end
            item
              EditButtons = <>
              FieldName = 'BUDREF_KPP_S'
              Footers = <>
              Title.Caption = #1050#1055#1055
              Width = 120
            end
            item
              EditButtons = <>
              FieldName = 'BUDREF_OKATO_S'
              Footers = <>
              Title.Caption = #1054#1050#1040#1058#1054
              Width = 100
            end
            item
              EditButtons = <>
              FieldName = 'BUDREF_EXP_DIM'
              Footers = <>
              Title.Caption = #1050#1041#1050
              Width = 164
            end
            item
              Alignment = taRightJustify
              EditButtons = <>
              FieldName = 'BUDREF_SUM_KR'
              Footers = <>
              Title.Caption = #1057#1091#1084#1084#1072
              Width = 100
            end>
        end
      end
    end
    object TabSheet3: TTabSheet
      Caption = #1055#1088#1086#1074#1086#1076#1082#1080
      DesignSize = (
        656
        333)
      object txtopert: xbLabel
        Left = 261
        Top = 9
        Width = 302
        Height = 17
        Caption = 'txtopert'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
        Layout = tlCenter
        DataField = 'TYPEOP_NAME'
        DataSource = ADS
      end
      object lblDt: xbLabel
        Left = 6
        Top = 303
        Width = 644
        Height = 16
        Anchors = [akLeft, akRight, akBottom]
        Caption = '1'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
      end
      object lblKt: xbLabel
        Left = 6
        Top = 317
        Width = 644
        Height = 16
        Anchors = [akLeft, akRight, akBottom]
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
      end
      object rfOPerT: xbLabelEditRefer
        Left = 6
        Top = 6
        Width = 250
        Height = 21
        BorderColor = clWindowText
        Caption = #1058#1080#1087#1086#1074#1072#1103' '#1086#1087#1077#1088#1072#1094#1080#1103
        CaptionAlignment = taLeftJustify
        DataField = 'TYPEOP_CODE'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 0
        LabelWidth = 124
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'TYPE_OP'
        OnClearButtonClick = rfOPerT_ClearButtonClick
        VisibleButton = True
        UseStandartHint = True
        FindFieldName = 'code'
        FindFieldType = tfCharacterString
        OutFieldsArray = 'REC_ID'
        PutFieldsArray = 'TYPE_OP'
        ReferCaption = #1057#1087#1080#1089#1086#1082' '#1090#1080#1087#1086#1074#1099#1093' '#1086#1087#1077#1088#1072#1094#1080#1081
        TypeFindFieldName = 'code'
        xReferId = 0
        IsHarbourRefer = False
      end
      object bGrProv: xbGrid
        Left = 6
        Top = 31
        Width = 644
        Height = 270
        Anchors = [akLeft, akTop, akRight, akBottom]
        AutoFitColWidths = True
        DataSource = adsMain
        Flat = True
        FooterColor = clWindow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -11
        FooterFont.Name = 'MS Sans Serif'
        FooterFont.Style = []
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
        ReadOnly = True
        TabOrder = 1
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        UseMultiTitle = True
        VTitleMargin = 4
        OnDblClick = bGrid2_DblClick
        OnKeyPress = bGrid2_KeyPress
        IdGrid = '{A38D282F-9736-4FC3-B9B9-A83DF297FD74}'
        Columns = <
          item
            Checkboxes = True
            EditButtons = <>
            FieldName = 'X_ISMARK_'
            Footers = <>
            Title.Caption = ' '
            Width = 22
          end
          item
            EditButtons = <>
            FieldName = 'DT_SCHET'
            Footers = <>
            Title.Caption = #1057#1095#1077#1090'|'#1044#1077#1073#1077#1090
            Width = 80
          end
          item
            EditButtons = <>
            FieldName = 'KT_SCHET'
            Footers = <>
            Title.Caption = #1057#1095#1077#1090'|'#1050#1088#1077#1076#1080#1090
            Width = 80
          end
          item
            EditButtons = <>
            FieldName = 'NAMEOPER'
            Footers = <>
            Title.Caption = #1057#1086#1076#1077#1088#1078#1072#1085#1080#1077
            Width = 323
          end
          item
            EditButtons = <>
            FieldName = 'SUMMA'
            Footers = <>
            Title.Caption = #1057#1091#1084#1084#1072
            Width = 120
          end>
      end
    end
  end
  object btnOK: xbButton
    Left = 508
    Top = 364
    Width = 75
    Height = 21
    Hint = #1057#1086#1093#1088#1072#1085#1077#1085#1080#1077' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (F10)'
    Caption = #1054#1050
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 3
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btnCANCEL: xbButton
    Left = 591
    Top = 364
    Width = 75
    Height = 21
    Hint = #1042#1099#1093#1086#1076' '#1080#1079' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (Esc)'
    Caption = #1054#1090#1084#1077#1085#1072
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 4
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object pOperation: xbPopupButton
    Left = 425
    Top = 364
    Width = 75
    Height = 21
    Caption = #1054#1087#1077#1088#1072#1094#1080#1080
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = MenuOperation
    RoundedButton = True
    TabOrder = 2
    OnClick = pOperation_Click
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object pbDopData: xbPopupButton
    Left = 317
    Top = 364
    Width = 100
    Height = 21
    Caption = #1044#1086#1087'. '#1076#1072#1085#1085#1099#1077
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = MenuDopData
    RoundedButton = True
    TabOrder = 1
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object bDocDim: xbButton
    Left = 236
    Top = 364
    Width = 75
    Height = 21
    Hint = #1042#1074#1086#1076' Ctrl-D'
    Caption = #1048#1079#1084#1077#1088#1077#1085#1080#1103
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 5
    OnClick = bPlDoc_Click
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <>
    OEMTranslate = False
    BeforeCancel = DS_BeforeCancel
    Left = 109
    Top = 3
  end
  object ADS: xbADSDataSource
    DataSet = DS
    Left = 145
    Top = 3
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_FIN_DOC'
    Active = False
    Left = 72
    Top = 3
  end
  object BODocCmp: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_DOC_CMP'
    Active = False
    Left = 165
    Top = 130
  end
  object DSDocCmp: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BODocCmp
    FieldDefs = <>
    OEMTranslate = False
    Left = 167
    Top = 165
  end
  object ADSDocCmp: xbADSDataSource
    DataSet = DSDocCmp
    Left = 564
    Top = 42
  end
  object BOMvTp: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_MOVE_TP'
    Active = False
    Left = 262
    Top = 94
  end
  object DSMvTp: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOMvTp
    FieldDefs = <>
    OEMTranslate = False
    Left = 315
    Top = 96
  end
  object BOBudExp: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_BUD_EXP'
    Active = False
    Left = 266
    Top = 151
  end
  object DSBudExp: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOBudExp
    FieldDefs = <>
    ReadOnly = True
    OEMTranslate = False
    Left = 267
    Top = 208
  end
  object ADSBudExp: xbADSDataSource
    DataSet = DSBudExp
    Left = 265
    Top = 265
  end
  object ADSItogBudExp: xbADSDataSource
    Left = 391
    Top = 257
  end
  object BOBudLev: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_BUD_LEV'
    Active = False
    Left = 265
    Top = 48
  end
  object DSBudLev: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOBudLev
    FieldDefs = <>
    OEMTranslate = False
    Left = 318
    Top = 48
  end
  object MenuOperation: xbPopupMenu
    Left = 567
    Top = 93
    object pStatus: TMenuItem
      Caption = #1057#1090#1072#1090#1091#1089'     Alt-S'
      object pStatus1: TMenuItem
        Caption = #1063#1077#1088#1085#1086#1074#1080#1082
      end
      object pStatus2: TMenuItem
        Caption = #1055#1077#1088#1077#1076#1072#1085
      end
      object pStatus3: TMenuItem
        Caption = #1054#1087#1083#1072#1095#1077#1085
      end
    end
    object miCopyProv: TMenuItem
      Caption = #1050#1086#1087#1080#1088#1086#1074#1072#1090#1100' '#1087#1088#1086#1074#1086#1076#1082#1091
      OnClick = miCopyProv_Click
    end
  end
  object adsMain: xbADSDataSource
    DataSet = DSMAIN
    Left = 501
    Top = 46
  end
  object DSMAIN: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    xbsClassName = 'MAIN'
    BObject = BO
    FieldDefs = <
      item
        Name = 'NNOPER'
        DataType = ftFloat
      end
      item
        Name = 'TASK'
        DataType = ftString
        Size = 2
      end
      item
        Name = 'TaskName'
        DataType = ftString
        Size = 40
      end
      item
        Name = 'JrnName'
        DataType = ftString
        Size = 40
      end
      item
        Name = 'JrnCode'
        DataType = ftString
        Size = 4
      end
      item
        Name = 'DATAOPER'
        DataType = ftDate
      end
      item
        Name = 'NNDOC'
        DataType = ftString
        Size = 6
      end
      item
        Name = 'DT_SCHET'
        DataType = ftString
        Size = 16
      end
      item
        Name = 'DTName'
        DataType = ftString
        Size = 80
      end
      item
        Name = 'DT_CODE'
        DataType = ftString
        Size = 60
      end
      item
        Name = 'KT_SCHET'
        DataType = ftString
        Size = 16
      end
      item
        Name = 'KTName'
        DataType = ftString
        Size = 80
      end
      item
        Name = 'KT_CODE'
        DataType = ftString
        Size = 60
      end
      item
        Name = 'SUMMA'
        DataType = ftFloat
      end
      item
        Name = 'NAMEOPER'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'VALUTA'
        DataType = ftString
        Size = 3
      end
      item
        Name = 'VSUMMA'
        DataType = ftFloat
      end
      item
        Name = 'VCURS'
        DataType = ftFloat
      end
      item
        Name = 'SCLAD'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'STATUS'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'USER_DATE'
        DataType = ftDate
      end
      item
        Name = 'Z_STATUS'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'NNOPER_D'
        DataType = ftFloat
      end
      item
        Name = 'NNOPER_K'
        DataType = ftFloat
      end
      item
        Name = 'N_STATUS'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'CRYPT_CODE'
        DataType = ftString
        Size = 11
      end
      item
        Name = 'IDMAIN'
        DataType = ftFloat
      end
      item
        Name = 'JRN_ID'
        DataType = ftFloat
      end
      item
        Name = 'DOC_ID'
        DataType = ftFloat
      end
      item
        Name = 'VAL_ID'
        DataType = ftFloat
      end
      item
        Name = 'PSCHET'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'ENTRY_CTG'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'GL_DIM1'
        DataType = ftFloat
      end
      item
        Name = 'GL_DIM2'
        DataType = ftFloat
      end
      item
        Name = 'mainValuta'
        DataType = ftString
        Size = 3
      end
      item
        Name = 'PriznakZab'
        DataType = ftBoolean
      end>
    ReadOnly = True
    OEMTranslate = False
    Left = 505
    Top = 92
  end
  object BOPolAcnt2: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPartnerAccnt'
    Active = False
    Left = 443
    Top = 90
  end
  object DSPolAcnt2: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOPolAcnt2
    FieldDefs = <>
    OEMTranslate = False
    IndexName = 'TAG_RSCH'
    AfterRefresh = DS_AfterRefresh
    Left = 389
    Top = 203
  end
  object DSPolBank2: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOPolBank2
    FieldDefs = <>
    OEMTranslate = False
    Left = 381
    Top = 141
  end
  object BOPolBank2: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPartnerBank'
    Active = False
    Left = 506
    Top = 138
  end
  object DSPolAcnt1: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOPolAcnt1
    FieldDefs = <>
    OEMTranslate = False
    IndexName = 'TAG_RSCH'
    Left = 104
    Top = 166
  end
  object BOPolAcnt1: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPartnerAccnt'
    Active = False
    Left = 572
    Top = 138
  end
  object BOPartner: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPartner'
    Active = False
    Left = 265
  end
  object DSPartner: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOPartner
    FieldDefs = <>
    OEMTranslate = False
    Left = 324
    Top = 3
  end
  object MenuDopData: xbPopupMenu
    Left = 574
    Top = 210
    object miDopRecv: TMenuItem
      Caption = #1044#1086#1087' '#1088#1077#1082#1074#1080#1079#1080#1090#1099'      Alt+F5'
      OnClick = miDopRecv_Click
    end
    object miPodpis: TMenuItem
      Caption = #1055#1086#1076#1087#1080#1089#1080
      OnClick = miPodpis_Click
    end
  end
  object StatusMenu: xbPopupMenu
    Left = 197
    Top = 34
    object MenuStatus1: TMenuItem
      Caption = #1063#1077#1088#1085#1086#1074#1080#1082
    end
    object MenuStatus2: TMenuItem
      Caption = #1055#1077#1088#1077#1076#1072#1085
    end
    object MenuStatus3: TMenuItem
      Caption = #1054#1087#1083#1072#1095#1077#1085
    end
  end
end
frmPayUtBudExp.prg                                                   28471object frmPayUtBudExp: TfrmPayUtBudExp
  Left = 25
  Top = 20
  Width = 600
  Height = 525
  Anchors = []
  Caption = #1056#1072#1089#1096#1080#1092#1088#1086#1074#1082#1072
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  WindowState = wsNormal
  OnActivate = Form_Activate
  OnClose = Form_Close
  OnCloseQuery = Form_CloseQuery
  OnCreate = Form_Create
  OnShow = Form_Show
  DesignSize = (
    592
    491)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 8
    Top = 8
    Width = 576
    Height = 447
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    object TabSheet1: TTabSheet
      Caption = #1054#1073#1097#1077#1077
      DesignSize = (
        574
        425)
      object bFrame1: xbFrame
        Left = 8
        Top = 8
        Width = 558
        Height = 213
        Caption = #1044#1086#1082#1091#1084#1077#1085#1090
        TabOrder = 0
        Anchors = [akLeft, akTop, akRight]
        DesignSize = (
          558
          213)
        object lbRefFinName: xbLabel
          Left = 215
          Top = 43
          Width = 300
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbFinName'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'BUDREF_FINNAME'
          DataSource = ADS
        end
        object lerPreTp: xbLabelEditRefer
          Left = 6
          Top = 16
          Width = 200
          Height = 21
          BorderColor = clWindowText
          Caption = #1042#1080#1076
          CaptionExtender = ceNone
          CaptionAlignment = taLeftJustify
          DataField = 'PRE_TP'
          DataSource = ADS
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 0
          LabelWidth = 100
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          Required = True
          OnEnter = lerPreTp_Enter
          OnExit = lerPreTp_Exit
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'PRE_TP'
          BeforeButtonClick = lerPreTp_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 'TP_CODE;-1;50;1;0;'#1050#1086#1076'|TP_NAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
          FindFieldName = 'PRE_TP'
          FindFieldType = tfCharacterString
          ListDataSet = DSPreDocVid
          OutFieldsArray = 'TP_CODE'
          PutFieldsArray = 'PRE_TP'
          ReferCaption = #1042#1080#1076#1099' '#1076#1086#1082#1091#1084#1077#1085#1090#1086#1074
          ReferHeight = 200
          ReferWidth = 350
          TypeFindFieldName = 'PRE_TP'
          xReferId = 0
          IsHarbourRefer = True
          OnSelect = lerPreTp_Select
        end
        object lerPreNum: xbLabelEditRefer
          Left = 215
          Top = 16
          Width = 147
          Height = 21
          BorderColor = clWindowText
          Caption = #1085#1086#1084#1077#1088
          CaptionExtender = ceNone
          CaptionAlignment = taLeftJustify
          DataField = 'PRE_NUM'
          DataSource = ADS
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 1
          LabelWidth = 37
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          OnEnter = lerPreNum_Enter
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'REF_ID'
          BeforeButtonClick = lerPreNum_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 
            'DOP_NUM;-1;120;1;0;'#1053#1086#1084#1077#1088' '#1076#1086#1082'.|OPER_DATE;-1;80;1;0;'#1044#1072#1090#1072' '#1086#1087#1077#1088'.|BNK' +
            '_NUM;-1;80;1;0;'#1053#1086#1084#1077#1088' '#1073#1072#1085#1082'.'#1076#1086#1082'.|BNK_DATE;-1;80;1;0;'#1044#1072#1090#1072' '#1073#1072#1085#1082'.'#1076#1086#1082'|' +
            'EXP_DIM;-1;200;1;0;'#1050#1041#1050'|SUM_KR;-1;90;1;0;'#1057#1091#1084#1084#1072
          FindFieldName = 'REF_ID'
          FindFieldType = tfCharacterString
          ListDataSet = DSBudExp
          OutFieldsArray = 'RowID'
          PutFieldsArray = 'REF_ID'
          ReferCaption = #1057#1087#1080#1089#1086#1082
          ReferWidth = 550
          TypeFindFieldName = 'REF_ID'
          xReferId = 0
          IsHarbourRefer = True
          OnSelect = lerPreNum_Select
        end
        object lePreDate: xbLabelEdit
          Left = 371
          Top = 16
          Width = 97
          Height = 21
          BorderColor = clWindowText
          Caption = #1076#1072#1090#1072'    '
          CaptionAlignment = taLeftJustify
          DataField = 'PRE_DATE'
          DataSource = ADS
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 2
          LabelWidth = 27
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object leRefINN: xbLabelEdit
          Left = 6
          Top = 64
          Width = 200
          Height = 21
          BorderColor = clWindowText
          Caption = #1055#1086#1083#1091#1095#1072#1090#1077#1083#1100'    '#1048#1053#1053
          CaptionExtender = ceNone
          CaptionAlignment = taLeftJustify
          DataField = 'BUDREF_INN_S'
          DataSource = ADS
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 5
          LabelWidth = 100
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object leRefKPP: xbLabelEdit
          Left = 220
          Top = 64
          Width = 140
          Height = 21
          BorderColor = clWindowText
          Caption = #1050#1055#1055
          CaptionExtender = ceNone
          CaptionAlignment = taLeftJustify
          DataField = 'BUDREF_KPP_S'
          DataSource = ADS
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 6
          LabelWidth = 30
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object leRefName: xbLabelEdit
          Left = 6
          Top = 88
          Width = 462
          Height = 21
          BorderColor = clWindowText
          Caption = '       '#1085#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
          CaptionExtender = ceNone
          CaptionAlignment = taLeftJustify
          DataField = 'BUDREF_NAME_S'
          DataSource = ADS
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 7
          LabelWidth = 100
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object leRefOKATO: xbLabelEdit
          Left = 6
          Top = 112
          Width = 200
          Height = 21
          BorderColor = clWindowText
          Caption = #1054#1050#1040#1058#1054
          CaptionAlignment = taLeftJustify
          DataField = 'BUDREF_OKATO_S'
          DataSource = ADS
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 8
          LabelWidth = 100
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object lecRefSum: xbLabelEditCalc
          Left = 6
          Top = 160
          Width = 200
          Height = 21
          BorderColor = clWindowText
          Caption = #1057#1091#1084#1084#1072
          CaptionAlignment = taLeftJustify
          DataField = 'BUDREF_SUM_KR'
          DataSource = ADS
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 9
          LabelWidth = 100
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          Text = '0'
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          EnabledEdit = False
          VisibleButton = False
        end
        object leRefBudExp: xbLabelEdit
          Left = 215
          Top = 136
          Width = 253
          Height = 21
          BorderColor = clWindowText
          Caption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
          CaptionAlignment = taLeftJustify
          DataField = 'BUDREF_EXP_DIM'
          DataSource = ADS
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 11
          LabelWidth = 0
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object leRefPrim: xbLabelEdit
          Left = 6
          Top = 184
          Width = 462
          Height = 21
          BorderColor = clWindowText
          Caption = #1053#1072#1079#1085#1072#1095#1077#1085#1080#1077
          CaptionAlignment = taLeftJustify
          DataField = 'BUDREF_PRIM'
          DataSource = ADS
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 12
          LabelWidth = 100
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object btCreate: xbButton
          Left = 481
          Top = 16
          Width = 70
          Height = 21
          Caption = #1057#1086#1079#1076#1072#1090#1100
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ParentShowHint = False
          RoundedButton = True
          ShowHint = True
          TabOrder = 3
          OnClick = btCreate_Click
          ButtonColor = clBlack
        end
        object leRefFinTp: xbLabelEdit
          Left = 6
          Top = 40
          Width = 200
          Height = 21
          BorderColor = clWindowText
          Caption = #1048#1089#1090#1086#1095#1085#1080#1082' '#1092#1080#1085'-'#1103
          CaptionExtender = ceNone
          CaptionAlignment = taLeftJustify
          DataField = 'BUDREF_FIN_TP'
          DataSource = ADS
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 4
          LabelWidth = 100
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object leRefBudExpTp: xbLabelEdit
          Left = 6
          Top = 136
          Width = 200
          Height = 21
          BorderColor = clWindowText
          Caption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
          CaptionAlignment = taLeftJustify
          DataField = 'BUDREF_EXP_DIM_TP'
          DataSource = ADS
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 10
          LabelWidth = 100
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
      end
      object bFrame2: xbFrame
        Left = 8
        Top = 229
        Width = 558
        Height = 189
        Caption = #1048#1079#1084#1077#1085#1080#1090#1100' '#1085#1072
        TabOrder = 1
        Anchors = [akLeft, akTop, akRight]
        object leOKATO: xbLabelEdit
          Left = 6
          Top = 64
          Width = 200
          Height = 21
          BorderColor = clWindowText
          Caption = #1054#1050#1040#1058#1054
          CaptionAlignment = taLeftJustify
          DataField = 'OKATO_S'
          DataSource = ADS
          ButtonsColor = clBlack
          EnabledColor = clWhite
          TabOrder = 3
          LabelWidth = 100
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object lerExpDimTp: xbLabelEditRefer
          Left = 6
          Top = 88
          Width = 200
          Height = 21
          BorderColor = clWindowText
          Caption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
          CaptionAlignment = taLeftJustify
          DataField = 'EXP_DIM_TP'
          DataSource = ADS
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 4
          LabelWidth = 100
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          Required = True
          OnEnter = lerExpDimTp_Enter
          OnExit = lerExpDimTp_Exit
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'EXP_DIM_TP'
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 'CODE;-1;100;1;0;'#1050#1086#1076'|NAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
          FindFieldName = 'EXP_DIM_TP'
          FindFieldType = tfCharacterString
          ListDataSet = DSExpDimTp
          OutFieldsArray = 'CODE'
          PutFieldsArray = 'EXP_DIM_TP'
          ReferCaption = #1057#1087#1080#1089#1086#1082
          ReferWidth = 450
          TypeFindFieldName = 'EXP_DIM_TP'
          xReferId = 0
          IsHarbourRefer = True
          OnSelect = lerExpDimTp_Select
        end
        object larExpAnalRas: xbLabelEditAnalitRefer
          Left = 214
          Top = 88
          Width = 70
          Height = 21
          BorderColor = clWindowText
          Caption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
          CaptionAlignment = taLeftJustify
          DataSource = ADS
          ButtonsColor = clBlack
          EnabledColor = clWhite
          TabOrder = 5
          LabelWidth = 0
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'EXP_DIM'
          EnabledEdit = False
          VisibleButton = True
          UseStandartHint = True
          FindFieldType = tfCharacterString
          ReferCaption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
          TableName = 'PAY\DIM_TUNE'
          xReferId = 0
          IsHarbourRefer = True
          MakeChecking = True
        end
        object larExpAnalDoh: xbLabelEditAnalitRefer
          Left = 287
          Top = 88
          Width = 70
          Height = 21
          BorderColor = clWindowText
          Caption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
          CaptionAlignment = taLeftJustify
          DataSource = ADS
          ButtonsColor = clBlack
          EnabledColor = clWhite
          TabOrder = 6
          LabelWidth = 0
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'EXP_DIM'
          EnabledEdit = False
          VisibleButton = True
          UseStandartHint = True
          FindFieldType = tfCharacterString
          ReferCaption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
          TableName = 'PAY\DIM_TUNE'
          xReferId = 0
          IsHarbourRefer = True
          MakeChecking = True
        end
        object larExpAnalDif: xbLabelEditAnalitRefer
          Left = 361
          Top = 88
          Width = 70
          Height = 21
          BorderColor = clWindowText
          Caption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
          CaptionAlignment = taLeftJustify
          DataSource = ADS
          ButtonsColor = clBlack
          EnabledColor = clWhite
          TabOrder = 7
          LabelWidth = 0
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'EXP_DIM'
          EnabledEdit = False
          VisibleButton = True
          UseStandartHint = True
          FindFieldType = tfCharacterString
          ReferCaption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
          TableName = 'PAY\DIM_TUNE'
          xReferId = 0
          IsHarbourRefer = True
          MakeChecking = True
        end
        object lecSum: xbLabelEditCalc
          Left = 6
          Top = 112
          Width = 200
          Height = 21
          BorderColor = clWindowText
          Caption = #1057#1091#1084#1084#1072
          CaptionAlignment = taLeftJustify
          DataField = 'SUM_KR'
          DataSource = ADS
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 9
          LabelWidth = 100
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          Text = '0'
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          VisibleButton = False
        end
        object leExpAnalEmp: xbLabelEdit
          Left = 215
          Top = 112
          Width = 253
          Height = 21
          BorderColor = clWindowText
          Caption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
          CaptionAlignment = taLeftJustify
          DataSource = ADS
          ButtonsColor = clBlack
          EnabledColor = clWhite
          TabOrder = 8
          LabelWidth = 0
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object lePrim: xbLabelEdit
          Left = 6
          Top = 136
          Width = 462
          Height = 21
          BorderColor = clWindowText
          Caption = #1053#1072#1079#1085#1072#1095#1077#1085#1080#1077
          CaptionAlignment = taLeftJustify
          DataField = 'PRIM'
          DataSource = ADS
          ButtonsColor = clBlack
          EnabledColor = clWhite
          TabOrder = 10
          LabelWidth = 100
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object leINN: xbLabelEdit
          Left = 6
          Top = 16
          Width = 200
          Height = 21
          BorderColor = clWindowText
          Caption = #1055#1086#1083#1091#1095#1072#1090#1077#1083#1100'    '#1048#1053#1053
          CaptionExtender = ceNone
          CaptionAlignment = taLeftJustify
          DataField = 'INN_S'
          DataSource = ADS
          ButtonsColor = clBlack
          EnabledColor = clWhite
          TabOrder = 0
          LabelWidth = 100
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object leKPP: xbLabelEdit
          Left = 225
          Top = 16
          Width = 140
          Height = 21
          BorderColor = clWindowText
          Caption = #1050#1055#1055
          CaptionExtender = ceNone
          CaptionAlignment = taLeftJustify
          DataField = 'KPP_S'
          DataSource = ADS
          ButtonsColor = clBlack
          EnabledColor = clWhite
          TabOrder = 1
          LabelWidth = 30
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object leName: xbLabelEdit
          Left = 6
          Top = 40
          Width = 462
          Height = 21
          BorderColor = clWindowText
          Caption = '       '#1085#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
          CaptionExtender = ceNone
          CaptionAlignment = taLeftJustify
          DataField = 'NAME_S'
          DataSource = ADS
          ButtonsColor = clBlack
          EnabledColor = clWhite
          TabOrder = 2
          LabelWidth = 100
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object lePrim1: xbLabelEdit
          Left = 6
          Top = 160
          Width = 462
          Height = 21
          BorderColor = clWindowText
          Caption = #1055#1088#1080#1084#1077#1095#1072#1085#1080#1077
          CaptionAlignment = taLeftJustify
          DataField = 'PRIM1'
          DataSource = ADS
          ButtonsColor = clBlack
          EnabledColor = clWhite
          TabOrder = 11
          LabelWidth = 100
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
      end
    end
  end
  object btnOK: xbButton
    Left = 425
    Top = 463
    Width = 75
    Height = 21
    Hint = #1057#1086#1093#1088#1072#1085#1077#1085#1080#1077' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (F10)'
    Caption = #1054#1050
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 2
    ModalResult = 1
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btnCANCEL: xbButton
    Left = 512
    Top = 463
    Width = 75
    Height = 21
    Hint = #1042#1099#1093#1086#1076' '#1080#1079' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (Esc)'
    Caption = #1054#1090#1084#1077#1085#1072
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 3
    ModalResult = 2
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btDopRecv: xbButton
    Left = 313
    Top = 463
    Width = 100
    Height = 21
    Hint = #1044#1086#1087#1086#1083#1085#1080#1090#1077#1083#1100#1085#1099#1077' '#1088#1077#1082#1074#1080#1079#1080#1090#1099' (Alt+F5)'
    Caption = #1044#1086#1087'. '#1088#1077#1082#1074#1080#1079#1080#1090#1099
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 1
    OnClick = btDopRecv_Click
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_BUD_EXP'
    Active = False
    Left = 261
    Top = 65533
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <>
    OEMTranslate = False
    AfterEdit = DS_AfterEdit
    Left = 336
    Top = 65533
  end
  object ADS: xbADSDataSource
    DataSet = DS
    Left = 299
    Top = 65534
  end
  object DSDIMTUNE: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'PAY\dim_tune'
    OEMTranslate = False
    IndexName = 'TAG_CODE'
    Left = 203
    Top = 65534
  end
  object DSExpDimTp: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'PAY\DopAn_TP.DBF'
    OEMTranslate = False
    IndexName = 'TAG_CODE'
    Left = 81
    Top = 2
  end
  object DSBudExp: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'PAY\BUD_EXP.DBF'
    OEMTranslate = False
    Left = 433
    Top = 81
  end
  object BOPreDocVid: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_DOC_TYPE'
    Active = False
    Left = 484
    Top = 4
  end
  object DSPreDocVid: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOPreDocVid
    FieldDefs = <>
    OEMTranslate = False
    Left = 411
    Top = 2
  end
end
frmPayUtCrBudExp.prg                                                 16949object frmPayUtCrBudExp: TfrmPayUtCrBudExp
  Left = 25
  Top = 25
  Width = 640
  Height = 312
  Anchors = []
  Caption = #1044#1086#1082#1091#1084#1077#1085#1090
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  WindowState = wsNormal
  OnActivate = Form_Activate
  OnClose = Form_Close
  OnCloseQuery = Form_CloseQuery
  OnCreate = Form_Create
  OnShow = Form_Show
  DesignSize = (
    632
    278)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 8
    Top = 8
    Width = 616
    Height = 234
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    object TabSheet1: TTabSheet
      Caption = #1054#1073#1097#1077#1077
      DesignSize = (
        614
        212)
      object lbFinTp: xbLabel
        Left = 218
        Top = 43
        Width = 260
        Height = 17
        Anchors = [akLeft, akTop, akRight]
        Caption = 'lbBudLev'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
      end
      object lePreDate: xbLabelEdit
        Left = 510
        Top = 16
        Width = 97
        Height = 21
        BorderColor = clWindowText
        Caption = #1076#1072#1090#1072'    '
        CaptionAlignment = taLeftJustify
        DataField = 'PRE_DATE'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 2
        LabelWidth = 27
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leINN: xbLabelEdit
        Left = 8
        Top = 64
        Width = 200
        Height = 21
        BorderColor = clWindowText
        Caption = #1055#1086#1083#1091#1095#1072#1090#1077#1083#1100'    '#1048#1053#1053
        CaptionExtender = ceNone
        CaptionAlignment = taLeftJustify
        DataField = 'INN_S'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 4
        LabelWidth = 100
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leKPP: xbLabelEdit
        Left = 218
        Top = 64
        Width = 130
        Height = 21
        BorderColor = clWindowText
        Caption = #1050#1055#1055
        CaptionExtender = ceNone
        CaptionAlignment = taLeftJustify
        DataField = 'KPP_S'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 5
        LabelWidth = 30
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leName: xbLabelEdit
        Left = 8
        Top = 88
        Width = 493
        Height = 21
        BorderColor = clWindowText
        Caption = '       '#1085#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        CaptionExtender = ceNone
        CaptionAlignment = taLeftJustify
        DataField = 'NAME_S'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 6
        LabelWidth = 100
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leOKATO: xbLabelEdit
        Left = 8
        Top = 112
        Width = 200
        Height = 21
        BorderColor = clWindowText
        Caption = #1054#1050#1040#1058#1054
        CaptionAlignment = taLeftJustify
        DataField = 'OKATO_S'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 7
        LabelWidth = 100
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object lerExpDimTp: xbLabelEditRefer
        Left = 8
        Top = 136
        Width = 200
        Height = 21
        BorderColor = clWindowText
        Caption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
        CaptionAlignment = taLeftJustify
        DataField = 'EXP_DIM_TP'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 8
        LabelWidth = 100
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Required = True
        OnEnter = lerExpDimTp_Enter
        OnExit = lerExpDimTp_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'EXP_DIM_TP'
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'CODE;-1;100;1;0;'#1050#1086#1076'|NAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldName = 'EXP_DIM_TP'
        FindFieldType = tfCharacterString
        ListDataSet = DSExpDimTp
        OutFieldsArray = 'CODE'
        PutFieldsArray = 'EXP_DIM_TP'
        ReferCaption = #1057#1087#1080#1089#1086#1082
        ReferWidth = 450
        TypeFindFieldName = 'EXP_DIM_TP'
        xReferId = 0
        IsHarbourRefer = True
        OnSelect = lerExpDimTp_Select
      end
      object larExpAnalRas: xbLabelEditAnalitRefer
        Left = 216
        Top = 136
        Width = 70
        Height = 21
        BorderColor = clWindowText
        Caption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
        CaptionAlignment = taLeftJustify
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 9
        LabelWidth = 0
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'EXP_DIM'
        EnabledEdit = False
        VisibleButton = True
        UseStandartHint = True
        FindFieldType = tfCharacterString
        ReferCaption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
        TableName = 'PAY\DIM_TUNE'
        xReferId = 0
        IsHarbourRefer = True
        MakeChecking = True
      end
      object larExpAnalDoh: xbLabelEditAnalitRefer
        Left = 289
        Top = 136
        Width = 70
        Height = 21
        BorderColor = clWindowText
        Caption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
        CaptionAlignment = taLeftJustify
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 10
        LabelWidth = 0
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'EXP_DIM'
        EnabledEdit = False
        VisibleButton = True
        UseStandartHint = True
        FindFieldType = tfCharacterString
        ReferCaption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
        TableName = 'PAY\DIM_TUNE'
        xReferId = 0
        IsHarbourRefer = True
        MakeChecking = True
      end
      object larExpAnalDif: xbLabelEditAnalitRefer
        Left = 363
        Top = 136
        Width = 70
        Height = 21
        BorderColor = clWindowText
        Caption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
        CaptionAlignment = taLeftJustify
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 11
        LabelWidth = 0
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'EXP_DIM'
        EnabledEdit = False
        VisibleButton = True
        UseStandartHint = True
        FindFieldType = tfCharacterString
        ReferCaption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
        TableName = 'PAY\DIM_TUNE'
        xReferId = 0
        IsHarbourRefer = True
        MakeChecking = True
      end
      object lecSum: xbLabelEditCalc
        Left = 8
        Top = 160
        Width = 200
        Height = 21
        BorderColor = clWindowText
        Caption = #1057#1091#1084#1084#1072
        CaptionAlignment = taLeftJustify
        DataField = 'SUM_KR'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 12
        LabelWidth = 100
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        VisibleButton = False
      end
      object leExpAnalEmp: xbLabelEdit
        Left = 217
        Top = 160
        Width = 284
        Height = 21
        BorderColor = clWindowText
        Caption = #1040#1085#1072#1083#1080#1090#1080#1082#1072
        CaptionAlignment = taLeftJustify
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 13
        LabelWidth = 0
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object lePrim: xbLabelEdit
        Left = 8
        Top = 184
        Width = 493
        Height = 21
        BorderColor = clWindowText
        Caption = #1053#1072#1079#1085#1072#1095#1077#1085#1080#1077
        CaptionAlignment = taLeftJustify
        DataField = 'PRIM'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 14
        LabelWidth = 100
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object lerFinTp: xbLabelEditRefer
        Left = 8
        Top = 40
        Width = 200
        Height = 21
        BorderColor = clWindowText
        Caption = #1048#1089#1090#1086#1095#1085#1080#1082' '#1092#1080#1085'-'#1103
        CaptionAlignment = taLeftJustify
        DataField = 'FIN_TP'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 3
        LabelWidth = 100
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Required = True
        OnExit = lerFinTp_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'FIN_TP'
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'FIN_TP;-1;100;1;0;'#1050#1086#1076'|FIN_NAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldName = 'FIN_TP'
        FindFieldType = tfCharacterString
        ListDataSet = DSFinTp
        OutFieldsArray = 'FIN_TP'
        PutFieldsArray = 'FIN_TP'
        ReferCaption = #1057#1087#1080#1089#1086#1082
        ReferWidth = 450
        TypeFindFieldName = 'FIN_TP'
        xReferId = 0
        IsHarbourRefer = True
        IsMustEnter = True
        OnSelect = lerFinTp_Select
      end
      object lePreName: xbLabelEdit
        Left = 8
        Top = 16
        Width = 340
        Height = 21
        BorderColor = clWindowText
        Caption = #1044#1086#1082#1091#1084#1077#1085#1090':'
        CaptionExtender = ceNone
        CaptionAlignment = taLeftJustify
        DataField = 'PRE_NAME'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 0
        LabelWidth = 100
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object lePreNum: xbLabelEdit
        Left = 361
        Top = 16
        Width = 140
        Height = 21
        BorderColor = clWindowText
        Caption = #1085#1086#1084#1077#1088
        CaptionExtender = ceNone
        CaptionAlignment = taLeftJustify
        DataField = 'PRE_NUM'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 1
        LabelWidth = 40
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
    end
  end
  object btnOK: xbButton
    Left = 465
    Top = 250
    Width = 75
    Height = 21
    Hint = #1057#1086#1093#1088#1072#1085#1077#1085#1080#1077' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (F10)'
    Caption = #1054#1050
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 1
    ModalResult = 1
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btnCANCEL: xbButton
    Left = 552
    Top = 250
    Width = 75
    Height = 21
    Hint = #1042#1099#1093#1086#1076' '#1080#1079' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (Esc)'
    Caption = #1054#1090#1084#1077#1085#1072
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 2
    ModalResult = 2
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_BUD_EXP'
    Active = False
    Left = 261
    Top = 65533
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <>
    OEMTranslate = False
    AfterEdit = DS_AfterEdit
    Left = 336
    Top = 65533
  end
  object ADS: xbADSDataSource
    DataSet = DS
    Left = 299
    Top = 65534
  end
  object DSDIMTUNE: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'PAY\dim_tune'
    OEMTranslate = False
    IndexName = 'TAG_CODE'
    Left = 203
    Top = 65534
  end
  object DSExpDimTp: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'PAY\DopAn_TP.DBF'
    OEMTranslate = False
    IndexName = 'TAG_CODE'
    Left = 81
    Top = 2
  end
  object DSFinTp: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'PAY\FIN_TP.DBF'
    OEMTranslate = False
    IndexName = 'TAG_TP'
    Left = 387
    Top = 3
  end
end
frmPayPlatPorBud.prg                                                 56434object frmPayPlatPorBud: TfrmPayPlatPorBud
  Left = 23
  Top = 25
  Width = 720
  Height = 462
  ActiveControl = leDopNum
  Anchors = []
  Caption = #1055#1083#1072#1090#1077#1078#1085#1086#1077' '#1087#1086#1088#1091#1095#1077#1085#1080#1077
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  WindowState = wsNormal
  OnCloseQuery = Form_CloseQuery
  OnCreate = Form_Create
  OnShow = Form_Show
  DesignSize = (
    712
    428)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 8
    Top = 8
    Width = 698
    Height = 391
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    object TabSheet1: TTabSheet
      Caption = #1054#1073#1097#1077#1077
      DesignSize = (
        696
        369)
      object lbNaznPlat: xbLabel
        Left = 8
        Top = 296
        Width = 135
        Height = 17
        Caption = #1053#1072#1079#1085#1072#1095#1077#1085#1080#1077' . . . . . . . . . . . . . . . . . . . .'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
      end
      object lerMvTpCode: xbLabelEditRefer
        Left = 8
        Top = 30
        Width = 390
        Height = 21
        BorderColor = clWindowText
        Caption = #1042#1080#1076' '#1076#1074#1080#1078#1077#1085#1080#1103
        CaptionAlignment = taLeftJustify
        DataField = 'MV_NAME'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 4
        LabelWidth = 120
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnChange = lerMvTpCode_Change
        OnExit = lerMvTpCode_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'MV_CODE'
        BeforeButtonClick = lerMvTpCode_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'MV_CODE;-1;50;1;-1;'#1050#1086#1076'|MV_NAME;-1;200;1;-1;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldName = 'MV_NAME'
        FindFieldType = tfCharacterString
        ListDataSet = DSMvTp
        OutFieldsArray = 'MV_CODE;PRT_TP'
        PutFieldsArray = 'MV_CODE;PRT_TP'
        ReferCaption = #1042#1080#1076#1099' '#1076#1074#1080#1078#1077#1085#1080#1103' '#1076#1077#1085#1077#1078#1085#1099#1093' '#1089#1088#1077#1076#1089#1090#1074
        TypeFindFieldName = 'MV_NAME'
        xReferId = 0
        IsHarbourRefer = True
        OnSelect = lerMvTpCode_Select
      end
      object bFrame1: xbFrame
        Left = 8
        Top = 80
        Width = 680
        Height = 88
        Caption = #1055#1083#1072#1090#1077#1083#1100#1097#1080#1082
        TabOrder = 11
        Anchors = [akLeft, akTop, akRight]
        DesignSize = (
          680
          88)
        object lbPartName: xbLabel
          Left = 281
          Top = 17
          Width = 390
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPlatName'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'FINOBJ_PART_SHORTNAME'
          DataSource = ADS
        end
        object lbBankName1: xbLabel
          Left = 411
          Top = 41
          Width = 260
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPlatBankName1'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'OWNACNT_BANK_NAME'
          DataSource = ADSDocCmp
        end
        object lbBankName2: xbLabel
          Left = 411
          Top = 65
          Width = 260
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPlatBankName2'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          OnClick = lbBankName2_Click
          DataField = 'OWNACNTCMPBNK_NAME'
          DataSource = ADSDocCmp
        end
        object lerPlatBankCode2: xbLabelEditRefer
          Left = 281
          Top = 62
          Width = 120
          Height = 21
          BorderColor = clWindowText
          Caption = #1074' '#1073#1072#1085#1082#1077
          CaptionAlignment = taLeftJustify
          DataField = 'OWNACNTCMPBNK_CODE'
          DataSource = ADSDocCmp
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 4
          LabelWidth = 42
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'M_ACNT_BNK'
          EnabledEdit = False
          BeforeButtonClick = lerPlatBankCode2_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 'Bnk_Code;-1;50;1;-1;'#1050#1086#1076'|Bnk_Name;-1;150;1;-1;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
          FindFieldName = 'BNK_CODE'
          FindFieldType = tfCharacterString
          ListDataSet = DSPlatBank2
          OutFieldsArray = 'BNK_ID'
          PutFieldsArray = 'M_ACNT_BNK'
          ReferCaption = #1057#1095#1077#1090' '#1074' '#1073#1072#1085#1082#1077
          TypeFindFieldName = 'BNK_CODE'
          xReferId = 0
          IsHarbourRefer = True
        end
        object lePlatCode: xbLabelEdit
          Left = 6
          Top = 14
          Width = 265
          Height = 21
          BorderColor = clWindowText
          Caption = #1055#1088#1077#1076#1087#1088#1080#1103#1090#1080#1077
          CaptionAlignment = taLeftJustify
          DataField = 'FINOBJ_PART_CODE'
          DataSource = ADS
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 0
          LabelWidth = 114
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object lePlatAcnt1: xbLabelEdit
          Left = 6
          Top = 38
          Width = 265
          Height = 21
          BorderColor = clWindowText
          Caption = #1056#1072#1089#1095#1077#1090#1085#1099#1081' '#1089#1095#1077#1090
          CaptionAlignment = taLeftJustify
          DataField = 'OWNACNT_NUM'
          DataSource = ADSDocCmp
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 1
          LabelWidth = 114
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object lePlatBankCode1: xbLabelEdit
          Left = 281
          Top = 38
          Width = 120
          Height = 21
          BorderColor = clWindowText
          Caption = #1074' '#1073#1072#1085#1082#1077
          CaptionAlignment = taLeftJustify
          DataField = 'OWNACNT_BANK_CODE'
          DataSource = ADSDocCmp
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 2
          LabelWidth = 42
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object lePlatAcnt2: xbLabelEdit
          Left = 120
          Top = 62
          Width = 151
          Height = 21
          BorderColor = clWindowText
          Caption = #1056#1072#1089#1095#1077#1090#1085#1099#1081' '#1089#1095#1077#1090
          CaptionAlignment = taLeftJustify
          DataField = 'OWNACNTCMP_NUM'
          DataSource = ADSDocCmp
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 3
          LabelWidth = 0
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
      end
      object lcbStatus: xbLabelCombo
        Left = 368
        Top = 54
        Width = 140
        Height = 21
        ParentBackGround = True
        Caption = #1057#1090#1072#1090#1091#1089
        Enabled = False
        TabOrder = 9
        LabelWidth = 40
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Sorted = False
        EditColor = clWindow
        DisabledColor = clInactiveBorder
        DisabledFontColor = clBlack
        BorderColor = clWindowText
        AutoComplete = False
        Style = csDropDownList
        CharCase = ecNormal
        DropDownCount = 0
        ItemHeight = 0
        MaxLength = 0
        Items.Strings = (
          #1095#1077#1088#1085#1086#1074#1080#1082
          #1086#1087#1083#1072#1095#1077#1085
          #1087#1077#1088#1077#1076#1072#1085)
        ItemIndex = -1
        UseStandartHint = True
      end
      object leDocVid: xbLabelEdit
        Left = 8
        Top = 6
        Width = 220
        Height = 21
        BorderColor = clWindowText
        Caption = #1044#1086#1082#1091#1084#1077#1085#1090':             '#1074#1080#1076'    '
        CaptionAlignment = taLeftJustify
        DataField = 'DOC_CODE'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 0
        LabelWidth = 120
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leDocNum: xbLabelEdit
        Left = 408
        Top = 6
        Width = 100
        Height = 21
        BorderColor = clWindowText
        Caption = #1085#1086#1084#1077#1088'    '
        CaptionAlignment = taLeftJustify
        DataField = 'DOC_NUM'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 2
        LabelWidth = 0
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leDocDate: xbLabelEdit
        Left = 548
        Top = 6
        Width = 140
        Height = 21
        BorderColor = clWindowText
        Caption = '    '#1076#1072#1090#1072'    '
        CaptionExtender = ceNone
        CaptionAlignment = taLeftJustify
        DataField = 'DOC_DATE'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 3
        LabelWidth = 50
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object bFrame2: xbFrame
        Left = 8
        Top = 174
        Width = 680
        Height = 112
        Caption = #1055#1086#1083#1091#1095#1072#1090#1077#1083#1100
        TabOrder = 12
        Anchors = [akLeft, akTop, akRight]
        DesignSize = (
          680
          112)
        object lbPolName: xbLabel
          Left = 281
          Top = 17
          Width = 390
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPolName'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'PART_SHORTNAME'
          DataSource = ADS
        end
        object bLabel2: xbLabel
          Left = 411
          Top = 41
          Width = 260
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPolBankName1'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'PRTACNT_BANK_NAME'
          DataSource = ADSDocCmp
        end
        object bLabel3: xbLabel
          Left = 411
          Top = 65
          Width = 260
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPolBankName2'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          OnClick = lbBankName2_Click
          DataField = 'PRTACNTCMPBNK_NAME'
          DataSource = ADSDocCmp
        end
        object lbNalModelName: xbLabel
          Left = 266
          Top = 118
          Width = 340
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbNalModelName'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataSource = ADS
        end
        object lerPolCode: xbLabelEditRefer
          Left = 6
          Top = 14
          Width = 265
          Height = 21
          BorderColor = clWindowText
          Caption = #1055#1088#1077#1076#1087#1088#1080#1103#1090#1080#1077
          CaptionAlignment = taLeftJustify
          DataField = 'PART_CODE'
          DataSource = ADS
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 0
          LabelWidth = 114
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          OnEnter = lerPolCode_Enter
          OnExit = lerPolCode_Exit
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'PRT_ID'
          BeforeButtonClick = lerPolCode_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 'CODE;-1;100;1;0;'#1050#1086#1076'|SORTNAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
          FindFieldName = 'CODE'
          FindFieldType = tfCharacterString
          OutFieldsArray = 'PART_ID'
          PutFieldsArray = 'PRT_ID'
          ReferCaption = #1057#1087#1080#1089#1086#1082
          ReferWidth = 450
          TypeFindFieldName = 'CODE'
          xReferId = 0
          IsHarbourRefer = True
          OnSelect = lerPolCode_Select
        end
        object lerPolAcnt1: xbLabelEditRefer
          Left = 6
          Top = 38
          Width = 265
          Height = 21
          BorderColor = clWindowText
          Caption = #1056#1072#1089#1095#1077#1090#1085#1099#1081' '#1089#1095#1077#1090
          CaptionAlignment = taLeftJustify
          DataField = 'PRTACNT_NUM'
          DataSource = ADSDocCmp
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 1
          LabelWidth = 114
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'P_ACNT_ID'
          BeforeButtonClick = lerPolAcnt1_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 
            'Accnt;-1;130;1;-1;'#1057#1095#1077#1090'|GetBankName;-1;200;1;-1;'#1041#1072#1085#1082'|Comment;-1;1' +
            '70;1;-1;'#1050#1086#1084#1084#1077#1085#1090#1072#1088#1080#1081
          FindFieldName = 'ACCNT'
          FindFieldType = tfCharacterString
          ListDataSet = DSPolAcnt1
          OutFieldsArray = 'REC_ID'
          PutFieldsArray = 'P_ACNT_ID'
          ReferCaption = #1057#1095#1077#1090' '#1074' '#1073#1072#1085#1082#1077
          TypeFindFieldName = 'ACCNT'
          xReferId = 0
          IsHarbourRefer = True
          OnSelect = lerPolAcnt1_Select
        end
        object lerPolBankCode2: xbLabelEditRefer
          Left = 281
          Top = 62
          Width = 120
          Height = 21
          BorderColor = clWindowText
          Caption = #1074' '#1073#1072#1085#1082#1077
          CaptionAlignment = taLeftJustify
          DataField = 'PRTACNTCMPBNK_CODE'
          DataSource = ADSDocCmp
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 4
          LabelWidth = 42
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'P_ACNT_BNK'
          BeforeButtonClick = lerPolBankCode2_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 'Bnk_Code;-1;50;1;-1;'#1050#1086#1076'|Bnk_Name;-1;150;1;-1;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
          FindFieldName = 'BNK_CODE'
          FindFieldType = tfCharacterString
          ListDataSet = DSPolBank2
          OutFieldsArray = 'BNK_ID'
          PutFieldsArray = 'P_ACNT_BNK'
          ReferCaption = #1057#1095#1077#1090' '#1074' '#1073#1072#1085#1082#1077
          TypeFindFieldName = 'BNK_CODE'
          xReferId = 0
          IsHarbourRefer = True
        end
        object lePolBankCode1: xbLabelEdit
          Left = 281
          Top = 38
          Width = 120
          Height = 21
          BorderColor = clWindowText
          Caption = #1074' '#1073#1072#1085#1082#1077
          CaptionAlignment = taLeftJustify
          DataField = 'PRTACNT_BANK_CODE'
          DataSource = ADSDocCmp
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 2
          LabelWidth = 42
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object lerPolAcnt2: xbLabelEditRefer
          Left = 120
          Top = 62
          Width = 151
          Height = 21
          BorderColor = clWindowText
          Caption = #1056#1072#1089#1095#1077#1090#1085#1099#1081' '#1089#1095#1077#1090
          CaptionAlignment = taLeftJustify
          DataField = 'PRTACNTCMP_NUM'
          DataSource = ADSDocCmp
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 3
          LabelWidth = 0
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'P_ACNT_CMP'
          BeforeButtonClick = lerPolAcnt2_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 
            'Accnt;-1;130;1;-1;'#1057#1095#1077#1090'|GetBankName;-1;200;1;-1;'#1041#1072#1085#1082'|Comment;-1;1' +
            '70;1;-1;'#1050#1086#1084#1084#1077#1085#1090#1072#1088#1080#1081
          FindFieldName = 'ACCNT'
          FindFieldType = tfCharacterString
          ListDataSet = DSPolAcnt2
          OutFieldsArray = 'REC_ID'
          PutFieldsArray = 'P_ACNT_CMP'
          ReferCaption = #1057#1095#1077#1090' '#1074' '#1073#1072#1085#1082#1077
          TypeFindFieldName = 'ACCNT'
          xReferId = 0
          IsHarbourRefer = True
        end
        object lerDocOsnVid: xbLabelEditRefer
          Left = 6
          Top = 86
          Width = 265
          Height = 21
          BorderColor = clWindowText
          Caption = #1044#1086#1082'.-'#1086#1089#1085#1086#1074#1072#1085#1080#1077'    '#1074#1080#1076'      '
          CaptionAlignment = taLeftJustify
          DataField = 'APCARD_CNTYPE'
          DataSource = ADS
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 5
          LabelWidth = 114
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'ACNT_ID;ID_OBL'
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 
            'DOC_VID;-1;30;1;-1;'#1042#1080#1076'|CNJURNO;-1;160;1;-1;'#1053#1086#1084#1077#1088'|CNREGNO;-1;40;1' +
            ';-1;'#1053#1086#1084#1077#1088'|DOC_DATE;-1;60;1;-1;'#1044#1072#1090#1072'|CUR;-1;40;1;-1;'#1042#1072#1083#1102#1090#1072'|OST;-1;' +
            '80;1;-1;'#1054#1089#1090#1072#1090#1086#1082'|CURS;-1;50;1;-1;'#1050#1091#1088#1089'|SUMMA;-1;90;1;-1;'#1057#1091#1084#1084#1072' '#1087#1086' '#1082 +
            #1091#1088#1089#1091
          FindFieldName = 'CARD_ID'
          FindFieldType = tfCharacterString
          ListDataSet = DSApCardSpr
          OutFieldsArray = 'CARD_ID'
          PutFieldsArray = 'ACNT_ID'
          ReferCaption = #1044#1086#1082#1091#1084#1077#1085#1090#1099'-'#1086#1089#1085#1086#1074#1072#1085#1080#1103
          ReferWidth = 580
          TypeFindFieldName = 'CARD_ID'
          xReferId = 0
          IsHarbourRefer = True
        end
        object leDocOsnJurNum: xbLabelEdit
          Left = 281
          Top = 86
          Width = 175
          Height = 21
          BorderColor = clWindowText
          Caption = #1085#1086#1084#1077#1088'    '
          CaptionAlignment = taLeftJustify
          DataField = 'APCARD_CNJURNO'
          DataSource = ADS
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 6
          LabelWidth = 42
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object leDocOsnRegNum: xbLabelEdit
          Left = 461
          Top = 86
          Width = 45
          Height = 21
          BorderColor = clWindowText
          Caption = #1085#1086#1084#1077#1088'    '
          CaptionAlignment = taLeftJustify
          DataField = 'APCARD_CNREGNO'
          DataSource = ADS
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 7
          LabelWidth = 0
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object ledDocOsnDate: xbLabelEditCalend
          Left = 518
          Top = 86
          Width = 100
          Height = 21
          BorderColor = clWindowText
          Caption = #1076#1072#1090#1072'        '
          CaptionAlignment = taLeftJustify
          DataField = 'APCARD_CNJURD'
          DataSource = ADS
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          EditMask = '!99/99/0000;1; '
          TabOrder = 8
          LabelWidth = 30
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          MaxLength = 10
          Text = '  /  /    '
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2;Alt+Down'
          EnabledEdit = False
          VisibleButton = False
        end
        object lecOblLNum: xbLabelEditCalc
          Left = 627
          Top = 86
          Width = 44
          Height = 21
          BorderColor = clWindowText
          Caption = #1069#1090#1072#1087
          CaptionAlignment = taLeftJustify
          DataField = 'OBL_LNUM'
          DataSource = ADS
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          DisabledFontColor = clBtnText
          Enabled = False
          EditMask = '000;;'
          TabOrder = 9
          LabelWidth = 0
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          MaxLength = 3
          Text = '   '
          OnEnter = lecSumma_Enter
          OnExit = lecSumma_Exit
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'ID_OBL'
          EnabledEdit = False
          VisibleButton = False
          OnSelect = lecSumma_Select
        end
      end
      object lerVal: xbLabelEditRefer
        Left = 409
        Top = 30
        Width = 100
        Height = 21
        BorderColor = clWindowText
        Caption = #1042#1072#1083#1102#1090#1072
        CaptionAlignment = taLeftJustify
        DataField = 'CURR'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 5
        LabelWidth = 50
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Visible = False
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'CURR'
        EnabledEdit = False
        EnabledButton = False
        BeforeButtonClick = lerVal_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'CODE;-1;50;1;-1;'#1050#1086#1076'|NAME;-1;200;1;-1;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldName = 'CODE'
        FindFieldType = tfCharacterString
        ListDataSet = DSVal
        OutFieldsArray = 'CODE'
        PutFieldsArray = 'CURR'
        ReferCaption = #1057#1087#1088#1072#1074#1086#1095#1085#1080#1082' '#1074#1072#1083#1102#1090
        TypeFindFieldName = 'CODE'
        xReferId = 0
        IsHarbourRefer = True
      end
      object lecSumma: xbLabelEditCalc
        Left = 548
        Top = 30
        Width = 140
        Height = 21
        BorderColor = clWindowText
        Caption = #1057#1091#1084#1084#1072
        CaptionAlignment = taLeftJustify
        DataField = 'SUM'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        TabOrder = 6
        LabelWidth = 50
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        OnEnter = lecSumma_Enter
        OnExit = lecSumma_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        VisibleButton = False
        OnSelect = lecSumma_Select
      end
      object lcbPTp: xbLabelCombo
        Left = 8
        Top = 54
        Width = 220
        Height = 21
        ParentBackGround = True
        Caption = #1042#1080#1076' '#1087#1083#1072#1090#1077#1078#1072
        TabOrder = 7
        LabelWidth = 120
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Sorted = False
        EditColor = clWindow
        DisabledColor = clInactiveBorder
        DisabledFontColor = clBlack
        BorderColor = clWindowText
        AutoComplete = False
        Style = csDropDownList
        CharCase = ecNormal
        DropDownCount = 0
        ItemHeight = 0
        MaxLength = 0
        Items.Strings = (
          ''
          #1087#1086#1095#1090#1086#1081
          #1090#1077#1083#1077#1075#1088#1072#1092#1086#1084
          #1101#1083#1077#1082#1090#1088#1086#1085#1085#1086
          #1089#1088#1086#1095#1085#1086)
        ItemIndex = -1
        UseStandartHint = True
        OnSelect = lcbPTp_Select
      end
      object lerNalModelCode: xbLabelEditRefer
        Left = 8
        Top = 342
        Width = 649
        Height = 21
        BorderColor = clWindowText
        Caption = #1053#1072#1083#1086#1075#1086#1074#1072#1103' '#1084#1086#1076#1077#1083#1100
        CaptionAlignment = taLeftJustify
        DataField = 'TAXMOD_NAME'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 15
        LabelWidth = 120
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnEnter = lerNalModelCode_Enter
        OnExit = lerNalModelCode_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'TAX_MOD_ID'
        BeforeButtonClick = lerNalModelCode_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'MD_CODE;-1;50;1;-1;'#1050#1086#1076'|MD_NAME;-1;200;1;-1;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldName = 'MD_NAME'
        FindFieldType = tfCharacterString
        ListDataSet = DSTaxMod
        OutFieldsArray = 'MOD_ID'
        PutFieldsArray = 'TAX_MOD_ID'
        ReferCaption = #1053#1072#1083#1086#1075#1086#1074#1099#1077' '#1084#1086#1076#1077#1083#1080
        TypeFindFieldName = 'MD_NAME'
        xReferId = 0
        IsHarbourRefer = True
        OnSelect = lerNalModelCode_Select
      end
      object leDopNum: xbLabelEdit
        Left = 248
        Top = 6
        Width = 150
        Height = 21
        BorderColor = clWindowText
        Caption = #1085#1086#1084#1077#1088'    '
        CaptionAlignment = taLeftJustify
        DataField = 'DOP_NUM'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 1
        LabelWidth = 40
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object memNaznPlat: xbMemo
        Left = 128
        Top = 293
        Width = 510
        Height = 46
        ColorFlat = clBtnFace
        ParentColor = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        MaxLength = 210
        ParentFont = False
        TabOrder = 13
        OnKeyDown = memNaznPlat_KeyDown
        AutoDisplay = False
        BorderStyle = bsNone
        Color = clWhite
        DisabledColor = clInactiveBorder
        DisabledFontColor = 7368816
        DataField = 'COMMENT'
        DataSource = ADS
      end
      object btNaznPlat: xbButton
        Left = 640
        Top = 293
        Width = 21
        Height = 21
        Caption = '...'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        RoundedButton = True
        TabOrder = 14
        ButtonColor = clBlack
      end
      object lerPlQue: xbLabelEditRefer
        Left = 238
        Top = 56
        Width = 120
        Height = 21
        BorderColor = clWindowText
        Caption = #1054#1095#1077#1088#1077#1076#1085#1086#1089#1090#1100
        CaptionAlignment = taLeftJustify
        DataField = 'PL_QUE'
        DataSource = ADSDocCmp
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 8
        LabelWidth = 70
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnEnter = lerGlavCode_Enter
        OnExit = lerGlavCode_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'PL_QUE'
        BeforeButtonClick = lerGlavCode_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'CODE;-1;100;1;0;'#1050#1086#1076'|NAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldName = 'PL_QUE'
        FindFieldType = tfCharacterString
        ListDataSet = DSPlQue
        OutFieldsArray = 'CODE'
        PutFieldsArray = 'PL_QUE'
        ReferCaption = #1057#1087#1080#1089#1086#1082
        ReferWidth = 450
        TypeFindFieldName = 'PL_QUE'
        xReferId = 0
        IsHarbourRefer = True
      end
      object leOperDate: xbLabelEdit
        Left = 518
        Top = 54
        Width = 170
        Height = 21
        BorderColor = clWindowText
        Caption = #1044#1072#1090#1072' '#1086#1087#1077#1088#1072#1094#1080#1080
        CaptionAlignment = taLeftJustify
        DataField = 'OPER_DATE'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 10
        LabelWidth = 80
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnExit = leOperDate_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
    end
    object TabSheet2: TTabSheet
      Caption = #1055#1088#1086#1074#1086#1076#1082#1080
      DesignSize = (
        696
        369)
      object lblDt: xbLabel
        Left = 6
        Top = 339
        Width = 714
        Height = 16
        Anchors = [akLeft, akRight, akBottom]
        Caption = '1'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
      end
      object lblKt: xbLabel
        Left = 6
        Top = 353
        Width = 714
        Height = 16
        Anchors = [akLeft, akRight, akBottom]
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
      end
      object rfOPerT: xbLabelEditRefer
        Left = 6
        Top = 6
        Width = 250
        Height = 21
        BorderColor = clWindowText
        Caption = #1058#1080#1087#1086#1074#1072#1103' '#1086#1087#1077#1088#1072#1094#1080#1103
        CaptionAlignment = taLeftJustify
        DataField = 'TYPEOP_CODE'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 0
        LabelWidth = 124
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'TYPE_OP'
        OnClearButtonClick = rfOPerT_ClearButtonClick
        VisibleButton = True
        UseStandartHint = True
        FindFieldName = 'code'
        FindFieldType = tfCharacterString
        OutFieldsArray = 'REC_ID'
        PutFieldsArray = 'TYPE_OP'
        ReferCaption = #1057#1087#1080#1089#1086#1082' '#1090#1080#1087#1086#1074#1099#1093' '#1086#1087#1077#1088#1072#1094#1080#1081
        TypeFindFieldName = 'code'
        xReferId = 0
        IsHarbourRefer = False
      end
      object bGrProv: xbGrid
        Left = 5
        Top = 31
        Width = 684
        Height = 306
        Anchors = [akLeft, akTop, akRight, akBottom]
        AutoFitColWidths = True
        DataSource = adsMain
        Flat = True
        FooterColor = clWindow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -11
        FooterFont.Name = 'MS Sans Serif'
        FooterFont.Style = []
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
        ReadOnly = True
        TabOrder = 1
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        UseMultiTitle = True
        VTitleMargin = 4
        OnDblClick = bGrid2_DblClick
        OnKeyPress = bGrid2_KeyPress
        IdGrid = '{A38D282F-9736-4FC3-B9B9-A83DF297FD74}'
        Columns = <
          item
            Checkboxes = True
            EditButtons = <>
            FieldName = 'X_ISMARK_'
            Footers = <>
            Title.Caption = ' '
            Width = 22
          end
          item
            EditButtons = <>
            FieldName = 'DT_SCHET'
            Footers = <>
            Title.Caption = #1057#1095#1077#1090'|'#1044#1077#1073#1077#1090
            Width = 80
          end
          item
            EditButtons = <>
            FieldName = 'KT_SCHET'
            Footers = <>
            Title.Caption = #1057#1095#1077#1090'|'#1050#1088#1077#1076#1080#1090
            Width = 80
          end
          item
            EditButtons = <>
            FieldName = 'NAMEOPER'
            Footers = <>
            Title.Caption = #1057#1086#1076#1077#1088#1078#1072#1085#1080#1077
            Width = 323
          end
          item
            EditButtons = <>
            FieldName = 'SUMMA'
            Footers = <>
            Title.Caption = #1057#1091#1084#1084#1072
            Width = 120
          end>
      end
    end
  end
  object btnOK: xbButton
    Left = 548
    Top = 406
    Width = 75
    Height = 21
    Hint = #1057#1086#1093#1088#1072#1085#1077#1085#1080#1077' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (F10)'
    Caption = #1054#1050
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 6
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btnCANCEL: xbButton
    Left = 631
    Top = 406
    Width = 75
    Height = 21
    Hint = #1042#1099#1093#1086#1076' '#1080#1079' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (Esc)'
    Caption = #1054#1090#1084#1077#1085#1072
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 7
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btNalogi: xbButton
    Left = 274
    Top = 406
    Width = 75
    Height = 21
    Hint = ' '#1053#1072#1076#1073#1072#1074#1082#1080' (Ctrl+N)'
    Caption = #1053#1072#1083#1086#1075#1080
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 3
    OnClick = btNalogi_Click
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object pbDopData: xbPopupButton
    Left = 357
    Top = 406
    Width = 100
    Height = 21
    Caption = #1044#1086#1087'. '#1076#1072#1085#1085#1099#1077
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = MenuDopData
    RoundedButton = True
    TabOrder = 4
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object bDocDim: xbButton
    Left = 108
    Top = 406
    Width = 75
    Height = 21
    Hint = #1042#1074#1086#1076' Ctrl-D'
    Caption = #1048#1079#1084#1077#1088#1077#1085#1080#1103
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 1
    OnClick = bPlDoc_Click
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btRaschet: xbPopupButton
    Left = 191
    Top = 406
    Width = 75
    Height = 21
    Caption = #1056#1072#1089#1095#1077#1090#1099
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = MenuRaschet
    RoundedButton = True
    TabOrder = 2
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object pOperation: xbPopupButton
    Left = 465
    Top = 406
    Width = 75
    Height = 21
    Caption = #1054#1087#1077#1088#1072#1094#1080#1080
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = MenuOperation
    RoundedButton = True
    TabOrder = 5
    OnClick = pOperation_Click
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <>
    OEMTranslate = False
    Left = 109
    Top = 3
  end
  object ADS: xbADSDataSource
    DataSet = DS
    Left = 145
    Top = 3
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_FIN_DOC'
    Active = False
    Left = 72
    Top = 3
  end
  object DSPlatBank2: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOPlatBank2
    FieldDefs = <>
    OEMTranslate = False
    Left = 508
    Top = 169
  end
  object BOPlatBank2: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPartnerBank'
    Active = False
    Left = 509
    Top = 118
  end
  object BOPolAcnt1: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPartnerAccnt'
    Active = False
    Left = 606
    Top = 253
  end
  object DSPolAcnt1: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOPolAcnt1
    FieldDefs = <>
    OEMTranslate = False
    IndexName = 'TAG_RSCH'
    Left = 606
    Top = 339
  end
  object MenuDopData: xbPopupMenu
    Left = 521
    Top = 333
    object MenuDopData1: TMenuItem
      Caption = #1053#1072#1083#1086#1075#1086#1074#1099#1077' '#1082#1086#1076#1099'   Ctrl+B'
      OnClick = MenuDopData1_Click
    end
    object MenuDopData2: TMenuItem
      Caption = #1056#1072#1089#1096#1080#1092#1088#1086#1074#1082#1072'        Ctrl+R'
      OnClick = MenuDopData2_Click
    end
    object miDopRecv: TMenuItem
      Caption = #1044#1086#1087' '#1088#1077#1082#1074#1080#1079#1080#1090#1099'      Alt+F5'
      OnClick = miDopRecv_Click
    end
    object miOplZa: TMenuItem
      Caption = #1054#1087#1083#1072#1090#1072' '#1079#1072
      OnClick = miOplZa_Click
    end
  end
  object BODocCmp: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_DOC_CMP'
    Active = False
    Left = 602
    Top = 88
  end
  object DSDocCmp: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BODocCmp
    FieldDefs = <>
    OEMTranslate = False
    Left = 604
    Top = 138
  end
  object ADSDocCmp: xbADSDataSource
    DataSet = DSDocCmp
    Left = 607
    Top = 194
  end
  object BOMvTp: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_MOVE_TP'
    Active = False
    Left = 329
    Top = 88
  end
  object DSMvTp: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOMvTp
    FieldDefs = <>
    OEMTranslate = False
    Left = 415
    Top = 89
  end
  object BOVal: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsValuta'
    Active = False
    Left = 278
    Top = 1
  end
  object DSVal: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOVal
    FieldDefs = <>
    OEMTranslate = False
    Left = 331
    Top = 2
  end
  object BOPolBank2: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPartnerBank'
    Active = False
    Left = 511
    Top = 234
  end
  object DSPolBank2: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOPolBank2
    FieldDefs = <>
    OEMTranslate = False
    Left = 512
    Top = 285
  end
  object BOReasons: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_REASONS'
    Active = False
    Left = 40
    Top = 203
  end
  object DSReasons: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOReasons
    FieldDefs = <>
    OEMTranslate = False
    Left = 41
    Top = 245
  end
  object BOPolAcnt2: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPartnerAccnt'
    Active = False
    Left = 378
    Top = 308
  end
  object DSPolAcnt2: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOPolAcnt2
    FieldDefs = <>
    OEMTranslate = False
    IndexName = 'TAG_RSCH'
    AfterRefresh = DS_AfterRefresh
    Left = 442
    Top = 308
  end
  object BOTaxMod: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsTAX_MOD'
    Active = False
    Left = 93
    Top = 204
  end
  object DSTaxMod: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOTaxMod
    FieldDefs = <>
    OEMTranslate = False
    OnUpdateRecord = DSTaxMod_UpdateRecord
    Left = 93
    Top = 248
  end
  object RFNaznPlat: xbReferCaller
    ColumnsTune = 'TEXT;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
    ListDataSet = DSReasons
    ReferCaption = #1054#1089#1085#1086#1074#1072#1085#1080#1103' '#1087#1083#1072#1090#1077#1078#1072
    ReferWidth = 450
    OnSelect = RFNaznPlat_Select
    Left = 304
    Top = 306
  end
  object BOPlQue: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_PL_QUE'
    Active = False
    Left = 391
    Top = 3
  end
  object DSPlQue: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOPlQue
    FieldDefs = <>
    OEMTranslate = False
    Left = 444
    Top = 3
  end
  object RFApCardObl: xbReferCaller
    ColumnsTune = 
      'LNUM;-1;50;1;0;'#1053#1086#1084#1077#1088' '#1101#1090#1072#1087#1072'|NAME;-1;170;1;0;'#1057#1086#1076#1077#1088#1078#1072#1085#1080#1077'|DATE_END;-' +
      '1;70;1;0;'#1044#1072#1090#1072'|OST;-1;90;1;0;'#1057#1091#1084#1084#1072
    ListDataSet = DSApCardObl
    ReferCaption = #1069#1090#1072#1087#1099' '#1076#1086#1075#1086#1074#1086#1088#1072
    ReferWidth = 450
    OnSelect = RFApCardObl_Select
    OnCancel = RFApCardObl_Cancel
    Left = 331
    Top = 220
  end
  object DSApCardObl: TBestDataset
    Tag = 8
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'PAY\FIN_DOC.DBF'
    OEMTranslate = False
    Left = 161
    Top = 278
  end
  object DSApCardSpr: TBestDataset
    Tag = 8
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'PAY\FIN_DOC.DBF'
    OEMTranslate = False
    Left = 402
    Top = 220
  end
  object MenuRaschet: xbPopupMenu
    Left = 336
    Top = 144
    object miDocOsn: TMenuItem
      Caption = #1044#1086#1082#1091#1084#1077#1085#1090'-'#1086#1089#1085#1086#1074#1072#1085#1080#1077
      OnClick = miDocOsn_Click
    end
    object miBalans: TMenuItem
      Caption = #1041#1072#1083#1072#1085#1089
      OnClick = miBalans_Click
    end
  end
  object adsMain: xbADSDataSource
    DataSet = DSMAIN
    Left = 533
    Top = 5
  end
  object DSMAIN: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    xbsClassName = 'MAIN'
    BObject = BO
    FieldDefs = <
      item
        Name = 'NNOPER'
        DataType = ftFloat
      end
      item
        Name = 'TASK'
        DataType = ftString
        Size = 2
      end
      item
        Name = 'TaskName'
        DataType = ftString
        Size = 40
      end
      item
        Name = 'JrnName'
        DataType = ftString
        Size = 40
      end
      item
        Name = 'JrnCode'
        DataType = ftString
        Size = 4
      end
      item
        Name = 'DATAOPER'
        DataType = ftDate
      end
      item
        Name = 'NNDOC'
        DataType = ftString
        Size = 6
      end
      item
        Name = 'DT_SCHET'
        DataType = ftString
        Size = 16
      end
      item
        Name = 'DTName'
        DataType = ftString
        Size = 80
      end
      item
        Name = 'DT_CODE'
        DataType = ftString
        Size = 60
      end
      item
        Name = 'KT_SCHET'
        DataType = ftString
        Size = 16
      end
      item
        Name = 'KTName'
        DataType = ftString
        Size = 80
      end
      item
        Name = 'KT_CODE'
        DataType = ftString
        Size = 60
      end
      item
        Name = 'SUMMA'
        DataType = ftFloat
      end
      item
        Name = 'NAMEOPER'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'VALUTA'
        DataType = ftString
        Size = 3
      end
      item
        Name = 'VSUMMA'
        DataType = ftFloat
      end
      item
        Name = 'VCURS'
        DataType = ftFloat
      end
      item
        Name = 'SCLAD'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'STATUS'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'USER_DATE'
        DataType = ftDate
      end
      item
        Name = 'Z_STATUS'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'NNOPER_D'
        DataType = ftFloat
      end
      item
        Name = 'NNOPER_K'
        DataType = ftFloat
      end
      item
        Name = 'N_STATUS'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'CRYPT_CODE'
        DataType = ftString
        Size = 11
      end
      item
        Name = 'IDMAIN'
        DataType = ftFloat
      end
      item
        Name = 'JRN_ID'
        DataType = ftFloat
      end
      item
        Name = 'DOC_ID'
        DataType = ftFloat
      end
      item
        Name = 'VAL_ID'
        DataType = ftFloat
      end
      item
        Name = 'PSCHET'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'ENTRY_CTG'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'GL_DIM1'
        DataType = ftFloat
      end
      item
        Name = 'GL_DIM2'
        DataType = ftFloat
      end
      item
        Name = 'mainValuta'
        DataType = ftString
        Size = 3
      end
      item
        Name = 'PriznakZab'
        DataType = ftBoolean
      end>
    ReadOnly = True
    OEMTranslate = False
    Left = 589
    Top = 6
  end
  object MenuOperation: xbPopupMenu
    Left = 177
    Top = 331
    object pStatus: TMenuItem
      Caption = #1057#1090#1072#1090#1091#1089'                                             Alt-S'
      object pStatus1: TMenuItem
        Caption = #1063#1077#1088#1085#1086#1074#1080#1082
      end
      object pStatus2: TMenuItem
        Caption = #1055#1077#1088#1077#1076#1072#1085
      end
      object pStatus3: TMenuItem
        Caption = #1054#1087#1083#1072#1095#1077#1085
      end
    end
    object miCopyProv: TMenuItem
      Caption = #1050#1086#1087#1080#1088#1086#1074#1072#1090#1100' '#1087#1088#1086#1074#1086#1076#1082#1091'                       F5'
      OnClick = miCopyProv_Click
    end
    object miNaznPlat: TMenuItem
      Caption = #1055#1077#1088#1077#1092#1086#1088#1084#1080#1088#1086#1074#1072#1090#1100' '#1085#1072#1079#1085#1072#1095#1077#1085#1080#1077'  Ctrl+P'
      OnClick = miNaznPlat_Click
    end
    object miNDSOpCode: TMenuItem
      Caption = #1053#1044#1057' - '#1082#1086#1076#1099' '#1086#1087#1077#1088#1072#1094#1080#1081'                  Alt+C'
      OnClick = miNDSOpCode_Click
    end
  end
  object StatusMenu: xbPopupMenu
    Left = 197
    Top = 34
    object MenuStatus1: TMenuItem
      Caption = #1063#1077#1088#1085#1086#1074#1080#1082
    end
    object MenuStatus2: TMenuItem
      Caption = #1055#1077#1088#1077#1076#1072#1085
    end
    object MenuStatus3: TMenuItem
      Caption = #1054#1087#1083#1072#1095#1077#1085
    end
  end
end
frmPayFinDocReeStx.prg                                               21187object frmPayFinDocRee: TfrmPayFinDocRee
  Left = 25
  Top = 25
  Width = 650
  Height = 435
  ActiveControl = bGrid1
  Anchors = []
  BiDiMode = bdRightToLeft
  Caption = #1055#1083#1072#1090#1077#1078#1085#1099#1077' '#1076#1086#1082#1091#1084#1077#1085#1090#1099
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  ParentBiDiMode = False
  Visible = True
  WindowState = wsNormal
  OnClose = Form_Close
  OnCreate = Form_Create
  DesignSize = (
    642
    401)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 8
    Top = 8
    Width = 626
    Height = 338
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    object TabSheet1: TTabSheet
      Caption = #1056#1077#1077#1089#1090#1088
      DesignSize = (
        624
        316)
      object lbObjName: xbLabel
        Left = 144
        Top = 12
        Width = 170
        Height = 17
        Anchors = [akLeft, akTop, akRight]
        Caption = 'lbObjName'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
      end
      object lbTpName: xbLabel
        Left = 454
        Top = 12
        Width = 170
        Height = 17
        Anchors = [akLeft, akTop, akRight]
        Caption = 'lbTpName'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
      end
      object refFinObj: xbLabelEditRefer
        Left = 8
        Top = 8
        Width = 130
        Height = 20
        BorderColor = clWindowText
        Caption = #1054#1073#1098#1077#1082#1090' '#1091#1095#1077#1090#1072
        CaptionExtender = ceNone
        CaptionAlignment = taLeftJustify
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 0
        LabelWidth = 80
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnEnter = refFinObj_Enter
        OnExit = refFinObj_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2;Alt+Down'
        OnClearButtonClick = refFinObj_ClearButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'OBJ_CODE;-1;100;1;0;'#1050#1086#1076'|OBJ_NAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldType = tfCharacterString
        ListDataSet = dsFinObj
        ReferCaption = #1057#1087#1088#1072#1074#1086#1095#1085#1080#1082' '#1086#1073#1098#1077#1082#1090#1086#1074' '#1091#1095#1077#1090#1072
        ReferHeight = 300
        ReferWidth = 300
        TypeFindFieldName = 'OBJ_CODE'
        xReferId = 0
        IsHarbourRefer = True
        OnSelect = refFinObj_Select
        OnCancel = refFinObj_Cancel
        ReferParentWindowState = False
      end
      object refDocType: xbLabelEditRefer
        Left = 320
        Top = 8
        Width = 130
        Height = 20
        BorderColor = clWindowText
        Caption = #1042#1080#1076' '#1076#1086#1082#1091#1084#1077#1085#1090#1072
        CaptionExtender = ceNone
        CaptionAlignment = taLeftJustify
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 1
        LabelWidth = 80
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnEnter = refDocType_Enter
        OnExit = refDocType_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2;Alt+Down'
        OnClearButtonClick = refDocType_ClearButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'TP_CODE;-1;100;1;0;'#1050#1086#1076'|TP_NAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldType = tfCharacterString
        ListDataSet = dsDocType
        ReferCaption = #1057#1087#1088#1072#1074#1086#1095#1085#1080#1082' '#1074#1080#1076#1086#1074' '#1076#1086#1082#1091#1084#1077#1085#1090#1086#1074
        ReferHeight = 300
        ReferWidth = 300
        TypeFindFieldName = 'Tp_Code'
        xReferId = 0
        IsHarbourRefer = True
        OnSelect = refDocType_Select
        OnCancel = refDocType_Cancel
        ReferParentWindowState = False
      end
      object bPanel1: xbPanel
        Left = 5
        Top = 34
        Width = 614
        Height = 280
        Anchors = [akLeft, akTop, akRight, akBottom]
        TabOrder = 2
        object bFrame: xbFrame
          Left = 1
          Top = 217
          Width = 612
          Height = 62
          Align = alBottom
          Caption = #1048#1079#1084#1077#1088#1077#1085#1080#1103
          Visible = False
          TabOrder = 0
          DesignSize = (
            612
            62)
          object lblDocDim: xbMemo
            Left = 3
            Top = 13
            Width = 607
            Height = 46
            ColorFlat = clBtnFace
            ParentColor = True
            Enabled = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            ReadOnly = True
            TabOrder = 0
            Lines.Strings = (
              'bMemDim')
            Anchors = [akLeft, akTop, akRight, akBottom]
            BorderStyle = bsNone
            Color = clWhite
            DisabledColor = clInactiveBorder
            DisabledFontColor = 7368816
          end
        end
        object bGrid1: xbGrid
          Left = 1
          Top = 1
          Width = 612
          Height = 216
          Align = alClient
          AutoFitColWidths = True
          DataSource = ADS
          Flat = True
          FooterColor = clWindow
          FooterFont.Charset = DEFAULT_CHARSET
          FooterFont.Color = clWindowText
          FooterFont.Height = -11
          FooterFont.Name = 'MS Sans Serif'
          FooterFont.Style = []
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgAlwaysShowSelection, dgConfirmDelete]
          OptionsEh = [dghFixed3D, dghClearSelection]
          ReadOnly = True
          TabOrder = 1
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          UseMultiTitle = True
          OnCellClick = bGrid1_CellClick
          OnDblClick = bGrid1_DblClick
          OnKeyDown = bGrid1_KeyDown
          OnKeyPress = bGrid1_KeyPress
          IdGrid = '{2D661DD5-089D-4B96-8F2C-2296F993A9AB}'
          Styles.Style1.FieldName = 'GRID_STYLE1'
          Styles.Style1.Value = '1'
          Styles.Style1.TextColor = clGreen
          Styles.Style2.FieldName = 'GRID_STYLE2'
          Styles.Style2.Value = '1'
          Styles.Style2.TextColor = clBlue
          Columns = <
            item
              EditButtons = <>
              FieldName = 'X_ISMARK_'
              Footers = <>
              Title.Caption = '   '
              Width = 17
            end
            item
              EditButtons = <>
              FieldName = 'DOC_CODE'
              Footers = <>
              Title.Caption = #1042#1080#1076
              Width = 25
            end
            item
              EditButtons = <>
              FieldName = 'DOP_NUM'
              Footers = <>
              Title.Caption = #1044#1086#1082#1091#1084#1077#1085#1090'|'#1053#1086#1084#1077#1088
              Width = 90
            end
            item
              EditButtons = <>
              FieldName = 'DOC_DATE'
              Footers = <>
              Title.Caption = #1044#1086#1082#1091#1084#1077#1085#1090'|'#1044#1072#1090#1072
              Width = 60
            end
            item
              EditButtons = <>
              FieldName = 'OPER_DATE'
              Footers = <>
              Title.Caption = #1044#1072#1090#1072' '#1086#1087#1077#1088#1072#1094#1080#1080
              Width = 60
            end
            item
              EditButtons = <>
              FieldName = 'VAR_FIELD1'
              Footers = <>
              Title.Caption = #1055#1072#1088#1090#1085#1077#1088
              Width = 178
            end
            item
              EditButtons = <>
              FieldName = 'CURR'
              Footers = <>
              Title.Caption = #1042#1072#1083'.'
              Width = 25
            end
            item
              EditButtons = <>
              FieldName = 'SUM_C'
              Footers = <>
              Title.Caption = #1057#1091#1084#1084#1072
              Width = 85
            end
            item
              EditButtons = <>
              FieldName = 'STATUS_NAME'
              Footers = <>
              Title.Caption = #1057#1090#1072#1090#1091#1089
              Width = 49
            end
            item
              EditButtons = <>
              FieldName = 'GRID_STYLE1'
              Footers = <>
              Visible = False
              Width = 10
            end
            item
              EditButtons = <>
              FieldName = 'GRID_STYLE2'
              Footers = <>
              Visible = False
              Width = 10
            end>
        end
      end
    end
  end
  object btnEXPORT: xbButton
    Left = 383
    Top = 375
    Width = 75
    Height = 21
    Hint = #1069#1082#1089#1087#1086#1088#1090' '#1086#1090#1084#1077#1095#1077#1085#1085#1099#1093' '#1076#1086#1082#1091#1084#1077#1085#1090#1086#1074' '#1074' '#1050#1083#1080#1077#1085#1090'-'#1041#1072#1085#1082' (Alt-F5)'
    Caption = #1069#1082#1089#1087#1086#1088#1090
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 3
    OnClick = btnEXPORT_Click
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object bPDOCDIM: xbPopupButton
    Left = 296
    Top = 375
    Width = 75
    Height = 21
    Caption = #1048#1079#1084#1077#1088#1077#1085#1080#1103
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = bPopupMenu3
    RoundedButton = True
    TabOrder = 1
    OnClick = bPDOCDIM_Click
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object pMenuOperation: xbPopupButton
    Left = 470
    Top = 375
    Width = 75
    Height = 21
    Caption = #1054#1087#1077#1088#1072#1094#1080#1080
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = MenuOperation
    RoundedButton = True
    TabOrder = 4
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object leAnTp: xbLabelEdit
    Left = 8
    Top = 349
    Width = 196
    Height = 21
    Anchors = [akLeft, akBottom]
    BorderColor = clWindowText
    Caption = #1040#1085#1085#1091#1083#1080#1088#1091#1077#1084#1099#1081' '#1076#1086#1082#1091#1084#1077#1085#1090':  '#1074#1080#1076
    CaptionExtender = ceNone
    CaptionAlignment = taLeftJustify
    DataField = 'AN_TP'
    ButtonsColor = clBlack
    EnabledColor = clWhite
    Enabled = False
    TabOrder = 6
    LabelWidth = 156
    LabelFont.Charset = DEFAULT_CHARSET
    LabelFont.Color = clWindowText
    LabelFont.Height = -11
    LabelFont.Name = 'MS Sans Serif'
    LabelFont.Style = []
    PopupListClickKey = 0
    AddPrefixOnFilial = False
  end
  object leAvDopNum: xbLabelEdit
    Left = 214
    Top = 349
    Width = 135
    Height = 21
    Anchors = [akLeft, akBottom]
    BorderColor = clWindowText
    Caption = #1085#1086#1084#1077#1088
    CaptionExtender = ceNone
    CaptionAlignment = taLeftJustify
    DataField = 'AN_DOP_NUM'
    ButtonsColor = clBlack
    EnabledColor = clWhite
    Enabled = False
    TabOrder = 7
    LabelWidth = 35
    LabelFont.Charset = DEFAULT_CHARSET
    LabelFont.Color = clWindowText
    LabelFont.Height = -11
    LabelFont.Name = 'MS Sans Serif'
    LabelFont.Style = []
    PopupListClickKey = 0
    AddPrefixOnFilial = False
  end
  object leAvDocNum: xbLabelEdit
    Left = 357
    Top = 349
    Width = 50
    Height = 21
    Anchors = [akLeft, akBottom]
    BorderColor = clWindowText
    Caption = #1085#1086#1084#1077#1088'    '
    CaptionAlignment = taLeftJustify
    DataField = 'AN_DOC_NUM'
    ButtonsColor = clBlack
    EnabledColor = clWhite
    Enabled = False
    TabOrder = 8
    LabelWidth = 0
    LabelFont.Charset = DEFAULT_CHARSET
    LabelFont.Color = clWindowText
    LabelFont.Height = -11
    LabelFont.Name = 'MS Sans Serif'
    LabelFont.Style = []
    PopupListClickKey = 0
    AddPrefixOnFilial = False
  end
  object leAvDocDate: xbLabelEdit
    Left = 418
    Top = 349
    Width = 90
    Height = 21
    Anchors = [akLeft, akBottom]
    BorderColor = clWindowText
    Caption = #1076#1072#1090#1072'    '
    CaptionAlignment = taLeftJustify
    DataField = 'AN_DOC_DATE'
    ButtonsColor = clBlack
    EnabledColor = clWhite
    Enabled = False
    TabOrder = 9
    LabelWidth = 26
    LabelFont.Charset = DEFAULT_CHARSET
    LabelFont.Color = clWindowText
    LabelFont.Height = -11
    LabelFont.Name = 'MS Sans Serif'
    LabelFont.Style = []
    PopupListClickKey = 0
    AddPrefixOnFilial = False
  end
  object btSchFact: xbButton
    Left = 383
    Top = 375
    Width = 75
    Height = 21
    Hint = #1057#1095#1077#1090#1072'-'#1092#1072#1082#1090#1091#1088#1099
    Caption = #1060#1072#1082#1090#1091#1088#1072
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 2
    OnClick = btSchFact_Click
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object leSFNum: xbLabelEdit
    Left = 8
    Top = 373
    Width = 250
    Height = 21
    Anchors = [akLeft, akBottom]
    BorderColor = clWindowText
    Caption = #1057#1095#1077#1090'-'#1092#1072#1082#1090#1091#1088#1072'    '#8470
    CaptionExtender = ceNone
    CaptionAlignment = taLeftJustify
    DataField = 'AN_DOP_NUM'
    ButtonsColor = clBlack
    EnabledColor = clWhite
    Enabled = False
    TabOrder = 10
    LabelWidth = 100
    LabelFont.Charset = DEFAULT_CHARSET
    LabelFont.Color = clWindowText
    LabelFont.Height = -11
    LabelFont.Name = 'MS Sans Serif'
    LabelFont.Style = []
    PopupListClickKey = 0
    AddPrefixOnFilial = False
  end
  object leSFDate: xbLabelEdit
    Left = 268
    Top = 373
    Width = 80
    Height = 21
    Anchors = [akLeft, akBottom]
    BorderColor = clWindowText
    Caption = #1086#1090'  '
    CaptionAlignment = taLeftJustify
    DataField = 'AN_DOC_DATE'
    ButtonsColor = clBlack
    EnabledColor = clWhite
    Enabled = False
    TabOrder = 11
    LabelWidth = 15
    LabelFont.Charset = DEFAULT_CHARSET
    LabelFont.Color = clWindowText
    LabelFont.Height = -11
    LabelFont.Name = 'MS Sans Serif'
    LabelFont.Style = []
    PopupListClickKey = 0
    AddPrefixOnFilial = False
  end
  object bpFunction: xbPopupButton
    Left = 557
    Top = 375
    Width = 75
    Height = 21
    Caption = #1060#1091#1085#1082#1094#1080#1080
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = bpnFunction
    RoundedButton = True
    TabOrder = 5
    OnClick = bpFunction_Click
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_fin_docree'
    Active = False
    Left = 38
    Top = 107
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <
      item
        Name = 'LIST_ID'
        DataType = ftString
        Size = 22
      end
      item
        Name = 'BOOK_CODE'
        DataType = ftString
        Size = 2
      end
      item
        Name = 'CTG'
        DataType = ftFloat
      end
      item
        Name = 'BOOK_PER'
        DataType = ftDate
      end
      item
        Name = 'LIST_DATE'
        DataType = ftDate
      end
      item
        Name = 'LIST_NUM'
        DataType = ftString
        Size = 6
      end
      item
        Name = 'OP_CODE'
        DataType = ftString
        Size = 22
      end
      item
        Name = 'OPNAME'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'STATUS'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'RECALC'
        DataType = ftBoolean
      end
      item
        Name = 'LST_ACT'
        DataType = ftString
        Size = 17
      end
      item
        Name = 'USER_CODE'
        DataType = ftString
        Size = 6
      end
      item
        Name = 'STATUSNAME'
        DataType = ftString
        Size = 10
      end
      item
        Name = 'CTGNAME'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'TYPE_PER'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'Typepername'
        DataType = ftString
        Size = 25
      end>
    ReadOnly = True
    OEMTranslate = False
    AfterScroll = DS_AfterScroll
    Left = 80
    Top = 108
  end
  object ADS: xbADSDataSource
    DataSet = DS
    Left = 122
    Top = 109
  end
  object adsFinObj: xbADSDataSource
    DataSet = dsFinObj
    Left = 112
    Top = 177
  end
  object dsFinObj: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'PAY\FIN_OBJ.DBF'
    OEMTranslate = False
    Left = 41
    Top = 177
  end
  object adsDocType: xbADSDataSource
    DataSet = dsDocType
    Left = 111
    Top = 241
  end
  object dsDocType: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'PAY\DOC_TYPE.DBF'
    OEMTranslate = False
    Left = 39
    Top = 241
  end
  object RFDocType: xbReferCaller
    ColumnsTune = 'TP_NAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
    ListDataSet = DSDocTypeRef
    ReferCaption = #1042#1080#1076#1099' '#1076#1086#1082#1091#1084#1077#1085#1090#1086#1074
    ReferHeight = 380
    ReferWidth = 450
    OnSelect = RFDocType_Select
    ReferParentWindowState = False
    Left = 202
    Top = 181
  end
  object DSDocTypeRef: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'PAY\DOC_TYPE.DBF'
    OEMTranslate = False
    Left = 280
    Top = 181
  end
  object DSKB: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'PAY\KB.DBF'
    OEMTranslate = False
    Left = 242
    Top = 249
  end
  object ADSKB: xbADSDataSource
    DataSet = DSKB
    Left = 284
    Top = 252
  end
  object bPopupMenu3: xbPopupMenu
    Left = 348
    Top = 254
    object pEdit: TMenuItem
      Caption = #1042#1074#1086#1076' Ctrl-D'
    end
    object pShow: TMenuItem
      Caption = #1055#1088#1086#1089#1084#1086#1090#1088' '#1074#1082#1083'/'#1074#1099#1082#1083' Ctrl-F'
    end
  end
  object MenuOperation: xbPopupMenu
    Left = 436
    Top = 253
    object miCopy: TMenuItem
      Caption = #1050#1086#1087#1080#1088#1086#1074#1072#1090#1100
      ShortCut = 116
      OnClick = miCopy_Click
    end
    object miGroupPrint: TMenuItem
      Caption = #1043#1088#1091#1087#1087#1086#1074#1072#1103' '#1087#1077#1095#1072#1090#1100
      ShortCut = 16504
      OnClick = miGroupPrint_Click
    end
  end
  object bpnFunction: xbPopupMenu
    Left = 387
    Top = 181
  end
end
frmPayDocVipStx.prg                                                  52199object frmPayDocVip: TfrmPayDocVip
  Left = 25
  Top = 25
  Width = 680
  Height = 438
  ActiveControl = ledOperDate
  Anchors = []
  Caption = #1044#1086#1082#1091#1084#1077#1085#1090' '#1074#1099#1087#1080#1089#1082#1080
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  WindowState = wsNormal
  OnCloseQuery = Form_CloseQuery
  OnCreate = Form_Create
  OnDestroy = Form_Destroy
  OnShow = Form_Show
  DesignSize = (
    672
    404)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 8
    Top = 8
    Width = 658
    Height = 365
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    OnChange = bPageControl1_Change
    object TabSheet1: TTabSheet
      Caption = #1054#1073#1097#1077#1077
      DesignSize = (
        656
        343)
      object lbPplObjName: xbLabel
        Left = 218
        Top = 176
        Width = 400
        Height = 17
        Anchors = [akLeft, akTop, akRight]
        Caption = 'lbPplObjName'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
        DataField = 'PPLOBJ_NAME'
        DataSource = ADS
      end
      object lbNaznPlat: xbLabel
        Left = 8
        Top = 269
        Width = 135
        Height = 17
        Caption = #1053#1072#1079#1085#1072#1095#1077#1085#1080#1077' . . . . . . . . . . . . . . . . . . . .'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
      end
      object lerMvTpCode: xbLabelEditRefer
        Left = 8
        Top = 32
        Width = 337
        Height = 21
        BorderColor = clWindowText
        Caption = #1042#1080#1076' '#1076#1074#1080#1078#1077#1085#1080#1103
        CaptionAlignment = taLeftJustify
        DataField = 'MV_NAME'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 2
        LabelWidth = 110
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnExit = lerMvTpCode_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'MV_CODE'
        EnabledEdit = False
        EnabledButton = False
        BeforeButtonClick = lerMvTpCode_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'MV_CODE;-1;50;1;-1;'#1050#1086#1076'|MV_NAME;-1;200;1;-1;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldName = 'MV_NAME'
        FindFieldType = tfCharacterString
        OutFieldsArray = 'MV_CODE;PRT_TP'
        PutFieldsArray = 'MV_CODE;PRT_TP'
        ReferCaption = #1042#1080#1076#1099' '#1076#1074#1080#1078#1077#1085#1080#1103' '#1076#1077#1085#1077#1078#1085#1099#1093' '#1089#1088#1077#1076#1089#1090#1074
        TypeFindFieldName = 'MV_NAME'
        xReferId = 0
        IsHarbourRefer = True
        OnSelect = lerMvTpCode_Select
      end
      object FramePartner: xbFrame
        Left = 8
        Top = 109
        Width = 640
        Height = 56
        TabOrder = 12
        Anchors = [akLeft, akTop, akRight]
        DesignSize = (
          640
          56)
        object lbObjName: xbLabel
          Left = 200
          Top = 9
          Width = 400
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPlatName'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'FINOBJ_NAME'
          DataSource = ADS
        end
        object lbPartName: xbLabel
          Left = 200
          Top = 33
          Width = 400
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPartName'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'PART_ORGNAME'
          DataSource = ADS
        end
        object leObjCode: xbLabelEdit
          Left = 6
          Top = 6
          Width = 184
          Height = 21
          BorderColor = clWindowText
          Caption = #1054#1073#1098#1077#1082#1090' '#1091#1095#1077#1090#1072
          CaptionAlignment = taLeftJustify
          DataField = 'FINOBJ_CODE'
          DataSource = ADS
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 0
          LabelWidth = 104
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object lerPartCode: xbLabelEditRefer
          Left = 6
          Top = 30
          Width = 184
          Height = 21
          BorderColor = clWindowText
          Caption = #1055#1072#1088#1090#1085#1077#1088
          CaptionAlignment = taLeftJustify
          DataField = 'PART_CODE'
          DataSource = ADS
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 1
          LabelWidth = 104
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          OnEnter = lerPartCode_Enter
          OnExit = lerPartCode_Exit
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'PRT_ID'
          BeforeButtonClick = lerPartCode_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 'CODE;-1;100;1;0;'#1050#1086#1076'|SORTNAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
          FindFieldName = 'CODE'
          FindFieldType = tfCharacterString
          OutFieldsArray = 'PART_ID'
          PutFieldsArray = 'PRT_ID'
          ReferCaption = #1057#1087#1080#1089#1086#1082
          ReferWidth = 450
          TypeFindFieldName = 'CODE'
          xReferId = 0
          IsHarbourRefer = True
          OnSelect = lerPartCode_Select
        end
      end
      object lcbStatus: xbLabelCombo
        Left = 206
        Top = 8
        Width = 140
        Height = 21
        ParentBackGround = True
        Caption = #1057#1090#1072#1090#1091#1089
        Enabled = False
        TabOrder = 1
        LabelWidth = 40
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Sorted = False
        EditColor = clWindow
        DisabledColor = clInactiveBorder
        DisabledFontColor = clBlack
        BorderColor = clWindowText
        AutoComplete = False
        Style = csDropDownList
        CharCase = ecNormal
        DropDownCount = 0
        ItemHeight = 0
        MaxLength = 0
        Items.Strings = (
          #1095#1077#1088#1085#1086#1074#1080#1082
          #1087#1077#1088#1077#1076#1072#1085
          #1086#1087#1083#1072#1095#1077#1085)
        ItemIndex = -1
        UseStandartHint = True
      end
      object leDocNum: xbLabelEdit
        Left = 354
        Top = 56
        Width = 100
        Height = 21
        BorderColor = clWindowText
        Caption = #1085#1086#1084#1077#1088'    '
        CaptionAlignment = taLeftJustify
        DataField = 'DOC_NUM'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 6
        LabelWidth = 0
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnEnter = leDocNum_Enter
        OnExit = leDocNum_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object lerVal: xbLabelEditRefer
        Left = 8
        Top = 80
        Width = 190
        Height = 21
        BorderColor = clWindowText
        Caption = #1042#1072#1083#1102#1090#1072
        CaptionAlignment = taLeftJustify
        DataField = 'CURR'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 8
        LabelWidth = 110
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'CURR'
        EnabledEdit = False
        EnabledButton = False
        BeforeButtonClick = lerVal_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'CODE;-1;50;1;-1;'#1050#1086#1076'|NAME;-1;200;1;-1;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldName = 'CODE'
        FindFieldType = tfCharacterString
        OutFieldsArray = 'CODE'
        PutFieldsArray = 'CURR'
        ReferCaption = #1057#1087#1088#1072#1074#1086#1095#1085#1080#1082' '#1074#1072#1083#1102#1090
        TypeFindFieldName = 'CODE'
        xReferId = 0
        IsHarbourRefer = True
      end
      object lecSumma: xbLabelEditCalc
        Left = 463
        Top = 80
        Width = 185
        Height = 21
        BorderColor = clWindowText
        Caption = #1057#1091#1084#1084#1072' '#1074' '#1086#1089#1085'. '#1074#1072#1083'.'
        CaptionAlignment = taLeftJustify
        DataField = 'SUM'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        TabOrder = 11
        LabelWidth = 95
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        VisibleButton = False
      end
      object lerNalModelCode: xbLabelEditRefer
        Left = 8
        Top = 315
        Width = 599
        Height = 21
        BorderColor = clWindowText
        Caption = #1053#1072#1083#1086#1075#1086#1074#1072#1103' '#1084#1086#1076#1077#1083#1100
        CaptionAlignment = taLeftJustify
        DataField = 'TAXMOD_NAME'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 22
        LabelWidth = 110
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnEnter = lerNalModelCode_Enter
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'TAX_MOD_ID'
        BeforeButtonClick = lerNalModelCode_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'MD_CODE;-1;50;1;-1;'#1050#1086#1076'|MD_NAME;-1;200;1;-1;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldName = 'MD_NAME'
        FindFieldType = tfCharacterString
        ReferCaption = #1053#1072#1083#1086#1075#1086#1074#1099#1077' '#1084#1086#1076#1077#1083#1080
        TypeFindFieldName = 'MD_NAME'
        xReferId = 0
        IsHarbourRefer = True
        OnSelect = lerNalModelCode_Select
      end
      object ledOperDate: xbLabelEditCalend
        Left = 8
        Top = 8
        Width = 190
        Height = 21
        BorderColor = clWindowText
        Caption = #1044#1072#1090#1072' '#1086#1087#1077#1088#1072#1094#1080#1080
        CaptionAlignment = taLeftJustify
        DataField = 'OPER_DATE'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        EditMask = '!99/99/0000;1; '
        TabOrder = 0
        LabelWidth = 110
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        MaxLength = 10
        Text = '  /  /    '
        OnEnter = ledOperDate_Enter
        OnExit = ledOperDate_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2;Alt+Down'
        ClearFields = 'OPER_DATE'
        VisibleButton = False
      end
      object ledDocDate: xbLabelEditCalend
        Left = 518
        Top = 56
        Width = 130
        Height = 21
        BorderColor = clWindowText
        Caption = '   '#1076#1072#1090#1072'        '
        CaptionAlignment = taLeftJustify
        DataField = 'DOC_DATE'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        EditMask = '!99/99/0000;1; '
        TabOrder = 7
        LabelWidth = 40
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        MaxLength = 10
        Text = '  /  /    '
        OnExit = ledDocDate_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2;Alt+Down'
        VisibleButton = False
      end
      object lecCurs: xbLabelEditCalc
        Left = 354
        Top = 80
        Width = 100
        Height = 21
        BorderColor = clWindowText
        Caption = '   '#1050#1091#1088#1089
        CaptionAlignment = taLeftJustify
        DataField = 'RATE'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        TabOrder = 10
        LabelWidth = 40
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        OnEnter = lecCurs_Enter
        OnExit = lecCurs_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        VisibleButton = False
      end
      object lecSummaC: xbLabelEditCalc
        Left = 206
        Top = 80
        Width = 140
        Height = 21
        BorderColor = clWindowText
        Caption = #1057#1091#1084#1084#1072
        CaptionAlignment = taLeftJustify
        DataField = 'SUM_C'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        TabOrder = 9
        LabelWidth = 40
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        OnEnter = lecSummaC_Enter
        OnExit = lecSummaC_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        VisibleButton = False
      end
      object lerDocOsnVid: xbLabelEditRefer
        Left = 8
        Top = 173
        Width = 190
        Height = 21
        BorderColor = clWindowText
        Caption = #1044#1086#1082'.-'#1086#1089#1085#1086#1074#1072#1085#1080#1077'   '#1074#1080#1076'   '
        CaptionAlignment = taLeftJustify
        DataField = 'APCARD_CNTYPE'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 13
        LabelWidth = 110
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'ACNT_ID'
        BeforeButtonClick = lerDocOsnVid_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 
          'DOC_VID;-1;40;1;-1;'#1042#1080#1076'|DOC_NUM;-1;60;1;-1;'#1053#1086#1084#1077#1088'|DOC_DATE;-1;60;1' +
          ';-1;'#1044#1072#1090#1072'|CUR;-1;40;1;-1;'#1042#1072#1083#1102#1090#1072'|OST;-1;80;1;-1;'#1054#1089#1090#1072#1090#1086#1082'|CURS;-1;90' +
          ';1;-1;'#1050#1091#1088#1089'|SUMMA;-1;90;1;-1;'#1057#1091#1084#1084#1072' '#1087#1086' '#1082#1091#1088#1089#1091
        FindFieldName = 'CARD_ID'
        FindFieldType = tfCharacterString
        ListDataSet = DSApCardSpr
        OutFieldsArray = 'CARD_ID'
        PutFieldsArray = 'ACNT_ID'
        ReferCaption = #1044#1086#1082#1091#1084#1077#1085#1090#1099'-'#1086#1089#1085#1086#1074#1072#1085#1080#1103
        ReferWidth = 550
        TypeFindFieldName = 'CARD_ID'
        xReferId = 0
        IsHarbourRefer = True
        OnSelect = lerDocOsnVid_Select
      end
      object leDocOsnNum: xbLabelEdit
        Left = 206
        Top = 173
        Width = 120
        Height = 21
        BorderColor = clWindowText
        Caption = #1085#1086#1084#1077#1088'    '
        CaptionAlignment = taLeftJustify
        DataField = 'APCARD_DOC_NUM'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 14
        LabelWidth = 40
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object ledDocOsnDate: xbLabelEditCalend
        Left = 334
        Top = 173
        Width = 120
        Height = 21
        BorderColor = clWindowText
        Caption = '   '#1076#1072#1090#1072'        '
        CaptionAlignment = taLeftJustify
        DataField = 'APCARD_CNJURD'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        Enabled = False
        EditMask = '!99/99/0000;1; '
        TabOrder = 15
        LabelWidth = 40
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        MaxLength = 10
        Text = '  /  /    '
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2;Alt+Down'
        EnabledEdit = False
        VisibleButton = False
      end
      object lcbAcntTp: xbLabelCombo
        Left = 463
        Top = 32
        Width = 185
        Height = 21
        ParentBackGround = True
        Caption = #1058#1080#1087' '#1088#1072#1089#1095#1077#1090#1086#1074
        Enabled = False
        TabOrder = 3
        LabelWidth = 95
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Sorted = False
        EditColor = clWindow
        DisabledColor = clInactiveBorder
        DisabledFontColor = clBlack
        BorderColor = clWindowText
        AutoComplete = False
        Style = csDropDownList
        CharCase = ecNormal
        DropDownCount = 0
        ItemHeight = 0
        MaxLength = 0
        Items.Strings = (
          ''
          #1087#1086#1076#1086#1090#1095#1077#1090
          #1076#1077#1087#1086#1085#1077#1085#1090
          #1087#1088#1086#1095#1080#1077)
        ItemIndex = -1
        UseStandartHint = True
      end
      object lerDocVid: xbLabelEditRefer
        Left = 8
        Top = 56
        Width = 190
        Height = 21
        BorderColor = clWindowText
        Caption = #1044#1086#1082#1091#1084#1077#1085#1090'            '#1074#1080#1076'   '
        CaptionAlignment = taLeftJustify
        DataField = 'DOC_CODE'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 4
        LabelWidth = 110
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'DOC_CODE'
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'TP_CODE;-1;50;1;-1;'#1050#1086#1076'|TP_NAME;-1;150;1;-1;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldName = 'TP_CODE'
        FindFieldType = tfCharacterString
        OutFieldsArray = 'TP_CODE'
        PutFieldsArray = 'DOC_CODE'
        ReferCaption = #1042#1080#1076#1099' '#1076#1086#1082#1091#1084#1077#1085#1090#1086#1074
        TypeFindFieldName = 'TP_CODE'
        xReferId = 0
        IsHarbourRefer = True
      end
      object FrameProd: xbFrame
        Left = 8
        Top = 202
        Width = 640
        Height = 56
        TabOrder = 19
        Anchors = [akLeft, akTop, akRight]
        object lerProdVal: xbLabelEditRefer
          Left = 6
          Top = 6
          Width = 184
          Height = 21
          BorderColor = clWindowText
          Caption = #1055#1088#1086#1076#1072#1078#1072
          CaptionAlignment = taLeftJustify
          DataField = 'FINDOC_CURR'
          DataSource = ADS
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 0
          LabelWidth = 104
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          EnabledEdit = False
          EnabledButton = False
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 'CODE;-1;50;1;-1;'#1050#1086#1076'|NAME;-1;200;1;-1;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
          FindFieldName = 'CODE'
          FindFieldType = tfCharacterString
          ReferCaption = #1057#1087#1088#1072#1074#1086#1095#1085#1080#1082' '#1074#1072#1083#1102#1090
          TypeFindFieldName = 'CODE'
          xReferId = 0
          IsHarbourRefer = True
        end
        object lecProdCurs: xbLabelEditCalc
          Left = 198
          Top = 6
          Width = 120
          Height = 21
          BorderColor = clWindowText
          Caption = #1050#1091#1088#1089
          CaptionAlignment = taLeftJustify
          DataField = 'RATE_CMP'
          DataSource = ADS
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          DisabledFontColor = clBtnText
          TabOrder = 1
          LabelWidth = 40
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          Text = '0'
          OnEnter = lecProdCurs_Enter
          OnExit = lecProdCurs_Exit
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          VisibleButton = False
        end
        object lecProdSumma: xbLabelEditCalc
          Left = 326
          Top = 6
          Width = 120
          Height = 21
          BorderColor = clWindowText
          Caption = #1057#1091#1084#1084#1072
          CaptionAlignment = taLeftJustify
          DataField = 'FINDOC_SUM_C'
          DataSource = ADS
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          DisabledFontColor = clBtnText
          Enabled = False
          TabOrder = 2
          LabelWidth = 40
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          Text = '0'
          OnEnter = lecProdSumma_Enter
          OnExit = lecProdSumma_Exit
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          EnabledEdit = False
          EnabledButton = False
          VisibleButton = False
        end
        object lecProdSummaZach: xbLabelEditCalc
          Left = 455
          Top = 6
          Width = 180
          Height = 21
          BorderColor = clWindowText
          Caption = #1057#1091#1084#1084#1072' '#1079#1072#1095#1080#1089#1083#1077#1085#1080#1103
          CaptionAlignment = taLeftJustify
          DataField = 'SUM_C'
          DataSource = ADS
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          DisabledFontColor = clBtnText
          TabOrder = 3
          LabelWidth = 100
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          Text = '0'
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          VisibleButton = False
        end
        object lerComBankVal: xbLabelEditRefer
          Left = 6
          Top = 30
          Width = 184
          Height = 21
          BorderColor = clWindowText
          Caption = #1050#1086#1084#1080#1089#1089#1080#1103' '#1073#1072#1085#1082#1072
          CaptionAlignment = taLeftJustify
          DataField = 'CURR_CMP'
          DataSource = ADS
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 4
          LabelWidth = 104
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'CURR_CMP'
          BeforeButtonClick = lerComBankVal_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 'CODE;-1;50;1;-1;'#1050#1086#1076'|NAME;-1;200;1;-1;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
          FindFieldName = 'CODE'
          FindFieldType = tfCharacterString
          OutFieldsArray = 'CODE'
          PutFieldsArray = 'CURR_CMP'
          ReferCaption = #1057#1087#1088#1072#1074#1086#1095#1085#1080#1082' '#1074#1072#1083#1102#1090
          TypeFindFieldName = 'CODE'
          xReferId = 0
          IsHarbourRefer = True
        end
        object lecComBankSumma: xbLabelEditCalc
          Left = 198
          Top = 30
          Width = 120
          Height = 21
          BorderColor = clWindowText
          Caption = #1057#1091#1084#1084#1072
          CaptionAlignment = taLeftJustify
          DataField = 'SUM_CMP'
          DataSource = ADS
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          DisabledFontColor = clBtnText
          TabOrder = 5
          LabelWidth = 40
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          Text = '0'
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          VisibleButton = False
        end
        object lecCursDiff: xbLabelEditCalc
          Left = 455
          Top = 30
          Width = 180
          Height = 21
          BorderColor = clWindowText
          Caption = #1050#1091#1088#1089#1086#1074#1072#1103' '#1088#1072#1079#1085#1080#1094#1072
          CaptionAlignment = taLeftJustify
          DataField = 'RATE_DIFF'
          DataSource = ADS
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          DisabledFontColor = clBtnText
          Enabled = False
          TabOrder = 6
          LabelWidth = 100
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          Text = '0'
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          EnabledEdit = False
          EnabledButton = False
          VisibleButton = False
        end
      end
      object leDopNum: xbLabelEdit
        Left = 206
        Top = 56
        Width = 140
        Height = 21
        BorderColor = clWindowText
        Caption = #1085#1086#1084#1077#1088'    '
        CaptionAlignment = taLeftJustify
        DataField = 'DOP_NUM'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 5
        LabelWidth = 40
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object memNaznPlat: xbMemo
        Left = 118
        Top = 266
        Width = 470
        Height = 46
        ColorFlat = clBtnFace
        ParentColor = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        MaxLength = 210
        ParentFont = False
        TabOrder = 20
        OnKeyDown = memNaznPlat_KeyDown
        AutoDisplay = False
        BorderStyle = bsNone
        Color = clWhite
        DisabledColor = clInactiveBorder
        DisabledFontColor = 7368816
        DataField = 'COMMENT'
        DataSource = ADS
      end
      object btNaznPlat: xbButton
        Left = 590
        Top = 266
        Width = 21
        Height = 21
        Caption = '...'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        RoundedButton = True
        TabOrder = 21
        ButtonColor = clBlack
      end
      object lecOblLNum: xbLabelEditCalc
        Left = 468
        Top = 173
        Width = 74
        Height = 21
        BorderColor = clWindowText
        Caption = #1101#1090#1072#1087
        CaptionExtender = ceNone
        CaptionAlignment = taLeftJustify
        DataField = 'OBL_LNUM'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        Enabled = False
        EditMask = '000;;'
        TabOrder = 16
        LabelWidth = 30
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        MaxLength = 3
        Text = '   '
        OnEnter = lecSumma_Enter
        OnExit = lecSumma_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'ID_OBL'
        EnabledEdit = False
        EnabledButton = False
        VisibleButton = False
        OnSelect = lecSumma_Select
      end
      object cbNoList: xbCheckBox
        Left = 6
        Top = 197
        Width = 220
        Height = 21
        Caption = #1041#1054' '#1088#1077#1075'. '#1085#1086#1084#1077#1088' . . . . . . . . '#1085#1077#1090' '#1074' '#1088#1077#1077#1089#1090#1088#1077
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 17
        TabStop = True
        OnClick = cbNoList_Click
        ValueChecked = '1'
        ValueUnchecked = '0'
        DataField = 'NO_LIST'
        DataSource = ADS
      end
      object lerBORegNum: xbLabelEditRefer
        Left = 246
        Top = 197
        Width = 170
        Height = 21
        BorderColor = clWindowText
        Caption = #1041#1054' '#1088#1077#1075'. '#1085#1086#1084#1077#1088
        CaptionAlignment = taLeftJustify
        DataField = 'BO_REG_NUM'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 18
        LabelWidth = 0
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Required = True
        OnExit = lerBORegNum_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'BO_REG_NUM'
        BeforeButtonClick = lerBORegNum_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 
          'REG_NUM;-1;100;1;-1;'#1056#1077#1075'. '#1085#1086#1084#1077#1088'|REG_DATE;-1;100;1;-1;'#1044#1072#1090#1072' '#1088#1077#1075#1080#1089#1090#1088 +
          #1072#1094#1080#1080
        FindFieldName = 'REG_NUM'
        FindFieldType = tfCharacterString
        FindFieldValue = 'BO_REG_NUM'
        ListDataSet = DSFinPlnSpr
        OutFieldsArray = 'REG_NUM'
        PutFieldsArray = 'BO_REG_NUM'
        ReferCaption = #1044#1086#1082#1091#1084#1077#1085#1090#1099'-'#1086#1089#1085#1086#1074#1072#1085#1080#1103
        ReferWidth = 550
        TypeFindFieldName = 'REG_NUM'
        xReferId = 0
        IsHarbourRefer = True
        OnSelect = lerBORegNum_Select
      end
    end
    object TabSheet2: TTabSheet
      Caption = #1055#1088#1086#1074#1086#1076#1082#1080
      DesignSize = (
        656
        343)
      object txtopert: xbLabel
        Left = 261
        Top = 9
        Width = 302
        Height = 17
        Caption = 'txtopert'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
        Layout = tlCenter
        DataField = 'TYPEOP_NAME'
        DataSource = ADS
      end
      object lblDt: xbLabel
        Left = 6
        Top = 310
        Width = 644
        Height = 16
        Anchors = [akLeft, akRight, akBottom]
        Caption = '1'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
      end
      object lblKt: xbLabel
        Left = 6
        Top = 326
        Width = 644
        Height = 16
        Anchors = [akLeft, akRight, akBottom]
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
      end
      object rfOPerT: xbLabelEditRefer
        Left = 6
        Top = 6
        Width = 250
        Height = 21
        BorderColor = clWindowText
        Caption = #1058#1080#1087#1086#1074#1072#1103' '#1086#1087#1077#1088#1072#1094#1080#1103
        CaptionAlignment = taLeftJustify
        DataField = 'TYPEOP_CODE'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 0
        LabelWidth = 124
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'TYPE_OP'
        OnClearButtonClick = rfOPerT_ClearButtonClick
        VisibleButton = True
        UseStandartHint = True
        FindFieldName = 'code'
        FindFieldType = tfCharacterString
        OutFieldsArray = 'REC_ID'
        PutFieldsArray = 'TYPE_OP'
        ReferCaption = #1057#1087#1080#1089#1086#1082' '#1090#1080#1087#1086#1074#1099#1093' '#1086#1087#1077#1088#1072#1094#1080#1081
        TypeFindFieldName = 'code'
        xReferId = 0
        IsHarbourRefer = False
      end
      object bGrProv: xbGrid
        Left = 6
        Top = 31
        Width = 644
        Height = 277
        Anchors = [akLeft, akTop, akRight, akBottom]
        AutoFitColWidths = True
        DataSource = adsMain
        Flat = True
        FooterColor = clWindow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -11
        FooterFont.Name = 'MS Sans Serif'
        FooterFont.Style = []
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
        ReadOnly = True
        TabOrder = 1
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        UseMultiTitle = True
        VTitleMargin = 4
        OnDblClick = bGrid2_DblClick
        OnKeyPress = bGrid2_KeyPress
        IdGrid = '{A38D282F-9736-4FC3-B9B9-A83DF297FD74}'
        Columns = <
          item
            Checkboxes = True
            EditButtons = <>
            FieldName = 'X_ISMARK_'
            Footers = <>
            Title.Caption = ' '
            Width = 22
          end
          item
            EditButtons = <>
            FieldName = 'DT_SCHET'
            Footers = <>
            Title.Caption = #1057#1095#1077#1090'|'#1044#1077#1073#1077#1090
            Width = 80
          end
          item
            EditButtons = <>
            FieldName = 'KT_SCHET'
            Footers = <>
            Title.Caption = #1057#1095#1077#1090'|'#1050#1088#1077#1076#1080#1090
            Width = 80
          end
          item
            EditButtons = <>
            FieldName = 'NAMEOPER'
            Footers = <>
            Title.Caption = #1057#1086#1076#1077#1088#1078#1072#1085#1080#1077
            Width = 323
          end
          item
            EditButtons = <>
            FieldName = 'SUMMA'
            Footers = <>
            Title.Caption = #1057#1091#1084#1084#1072
            Width = 120
          end>
      end
    end
  end
  object btnOK: xbButton
    Left = 528
    Top = 382
    Width = 65
    Height = 21
    Hint = #1057#1086#1093#1088#1072#1085#1077#1085#1080#1077' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (F10)'
    Caption = #1054#1050
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 5
    ModalResult = 1
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btnCANCEL: xbButton
    Left = 601
    Top = 382
    Width = 65
    Height = 21
    Hint = #1042#1099#1093#1086#1076' '#1080#1079' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (Esc)'
    Caption = #1054#1090#1084#1077#1085#1072
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 6
    ModalResult = 2
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btNalogi: xbButton
    Left = 277
    Top = 382
    Width = 60
    Height = 21
    Hint = ' '#1053#1072#1083#1086#1075#1080' (Ctrl+N)'
    Caption = #1053#1072#1083#1086#1075#1080
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 3
    OnClick = btNalogi_Click
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object pbDopData: xbPopupButton
    Left = 345
    Top = 382
    Width = 90
    Height = 21
    Caption = #1044#1086#1087'. '#1076#1072#1085#1085#1099#1077
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = MenuDopData
    RoundedButton = True
    TabOrder = 4
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btSchFact: xbButton
    Left = 194
    Top = 382
    Width = 75
    Height = 21
    Hint = #1057#1095#1077#1090#1072'-'#1092#1072#1082#1090#1091#1088#1099'  (Ctrl+F)'
    Caption = #1060#1072#1082#1090#1091#1088#1072
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 2
    OnClick = btSchFact_Click
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btRaschet: xbPopupButton
    Left = 111
    Top = 382
    Width = 75
    Height = 21
    Caption = #1056#1072#1089#1095#1077#1090#1099
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = MenuRaschet
    RoundedButton = True
    TabOrder = 1
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object bDocDim: xbButton
    Left = 24
    Top = 382
    Width = 75
    Height = 21
    Hint = #1042#1074#1086#1076' Ctrl-D'
    Caption = #1048#1079#1084#1077#1088#1077#1085#1080#1103
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 7
    OnClick = bPlDoc_Click
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object pOperation: xbPopupButton
    Left = 444
    Top = 382
    Width = 75
    Height = 21
    Caption = #1054#1087#1077#1088#1072#1094#1080#1080
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = MenuOperation
    RoundedButton = True
    TabOrder = 8
    OnClick = pOperation_Click
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <>
    OEMTranslate = False
    Left = 216
    Top = 9
  end
  object ADS: xbADSDataSource
    DataSet = DS
    Left = 256
    Top = 8
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_fin_docs'
    Active = False
    Left = 170
    Top = 10
  end
  object MenuDopData: xbPopupMenu
    Left = 525
    Top = 302
    object MenuDopData1: TMenuItem
      Caption = #1053#1072#1083#1086#1075#1086#1074#1099#1077' '#1082#1086#1076#1099'     Ctrl+B'
      OnClick = MenuDopData1_Click
    end
    object MenuDopData2: TMenuItem
      Caption = #1056#1072#1089#1093#1086#1076#1099' '#1073#1102#1076#1078#1077#1090#1072'   Ctrl+R'
      OnClick = MenuDopData2_Click
    end
    object miDopRecv: TMenuItem
      Caption = #1044#1086#1087' '#1088#1077#1082#1074#1080#1079#1080#1090#1099'        Alt+F5'
      OnClick = miDopRecv_Click
    end
  end
  object DSApCardSpr: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'PPL\PPL_OBJ.DBF'
    OEMTranslate = False
    Left = 281
    Top = 193
  end
  object MenuRaschet: xbPopupMenu
    Left = 115
    Top = 345
    object miDocOsn: TMenuItem
      Caption = #1044#1086#1082#1091#1084#1077#1085#1090'-'#1086#1089#1085#1086#1074#1072#1085#1080#1077
      OnClick = miDocOsn_Click
    end
    object miBalans: TMenuItem
      Caption = #1041#1072#1083#1072#1085#1089
      OnClick = miBalans_Click
    end
    object miOplDoc: TMenuItem
      Caption = #1056#1072#1079#1085#1086#1089#1082#1072' '#1086#1087#1083#1072#1090#1099' '#1087#1086' '#1076#1086#1082#1091#1084#1077#1085#1090#1072#1084' '#1086#1090#1075#1088#1091#1079#1082#1080'   Ctrl+F10'
      OnClick = miOplDoc_Click
    end
    object miOplZak: TMenuItem
      Caption = #1056#1072#1079#1085#1086#1089#1082#1072' '#1086#1087#1083#1072#1090#1099' '#1087#1086' '#1079#1072#1082#1072#1079#1072#1084' '#1086#1090#1075#1088#1091#1079#1082#1080'          Alt+F10'
      OnClick = miOplZak_Click
    end
  end
  object DSMAIN: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    xbsClassName = 'MAIN'
    BObject = BO
    FieldDefs = <
      item
        Name = 'NNOPER'
        DataType = ftFloat
      end
      item
        Name = 'TASK'
        DataType = ftString
        Size = 2
      end
      item
        Name = 'TaskName'
        DataType = ftString
        Size = 40
      end
      item
        Name = 'JrnName'
        DataType = ftString
        Size = 40
      end
      item
        Name = 'JrnCode'
        DataType = ftString
        Size = 4
      end
      item
        Name = 'DATAOPER'
        DataType = ftDate
      end
      item
        Name = 'NNDOC'
        DataType = ftString
        Size = 6
      end
      item
        Name = 'DT_SCHET'
        DataType = ftString
        Size = 16
      end
      item
        Name = 'DTName'
        DataType = ftString
        Size = 80
      end
      item
        Name = 'DT_CODE'
        DataType = ftString
        Size = 60
      end
      item
        Name = 'KT_SCHET'
        DataType = ftString
        Size = 16
      end
      item
        Name = 'KTName'
        DataType = ftString
        Size = 80
      end
      item
        Name = 'KT_CODE'
        DataType = ftString
        Size = 60
      end
      item
        Name = 'SUMMA'
        DataType = ftFloat
      end
      item
        Name = 'NAMEOPER'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'VALUTA'
        DataType = ftString
        Size = 3
      end
      item
        Name = 'VSUMMA'
        DataType = ftFloat
      end
      item
        Name = 'VCURS'
        DataType = ftFloat
      end
      item
        Name = 'SCLAD'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'STATUS'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'USER_DATE'
        DataType = ftDate
      end
      item
        Name = 'Z_STATUS'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'NNOPER_D'
        DataType = ftFloat
      end
      item
        Name = 'NNOPER_K'
        DataType = ftFloat
      end
      item
        Name = 'N_STATUS'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'CRYPT_CODE'
        DataType = ftString
        Size = 11
      end
      item
        Name = 'IDMAIN'
        DataType = ftFloat
      end
      item
        Name = 'JRN_ID'
        DataType = ftFloat
      end
      item
        Name = 'DOC_ID'
        DataType = ftFloat
      end
      item
        Name = 'VAL_ID'
        DataType = ftFloat
      end
      item
        Name = 'PSCHET'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'ENTRY_CTG'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'GL_DIM1'
        DataType = ftFloat
      end
      item
        Name = 'GL_DIM2'
        DataType = ftFloat
      end
      item
        Name = 'mainValuta'
        DataType = ftString
        Size = 3
      end
      item
        Name = 'PriznakZab'
        DataType = ftBoolean
      end>
    ReadOnly = True
    OEMTranslate = False
    Left = 455
    Top = 18
  end
  object adsMain: xbADSDataSource
    DataSet = DSMAIN
    Left = 411
    Top = 14
  end
  object RFApCardObl: xbReferCaller
    ColumnsTune = 
      'LNUM;-1;50;1;0;'#1053#1086#1084#1077#1088' '#1101#1090#1072#1087#1072'|NAME;-1;170;1;0;'#1057#1086#1076#1077#1088#1078#1072#1085#1080#1077'|DATE_END;-' +
      '1;70;1;0;'#1044#1072#1090#1072'|OST;-1;90;1;0;'#1057#1091#1084#1084#1072
    ListDataSet = DSApCardObl
    ReferCaption = #1069#1090#1072#1087#1099' '#1076#1086#1075#1086#1074#1086#1088#1072
    ReferWidth = 450
    OnSelect = RFApCardObl_Select
    OnCancel = RFApCardObl_Cancel
    Left = 401
    Top = 302
  end
  object DSApCardObl: TBestDataset
    Tag = 8
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'PAY\FIN_DOC.DBF'
    OEMTranslate = False
    Left = 363
    Top = 248
  end
  object RFNaznPlat: xbReferCaller
    ColumnsTune = 'TEXT;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
    ReferCaption = #1054#1089#1085#1086#1074#1072#1085#1080#1103' '#1087#1083#1072#1090#1077#1078#1072
    ReferWidth = 450
    OnSelect = RFNaznPlat_Select
    Left = 304
    Top = 306
  end
  object MenuOperation: xbPopupMenu
    Left = 470
    Top = 343
    object miCopyProv: TMenuItem
      Caption = #1050#1086#1087#1080#1088#1086#1074#1072#1090#1100' '#1087#1088#1086#1074#1086#1076#1082#1091'                      F5'
      OnClick = miCopyProv_Click
    end
    object miNaznPlat: TMenuItem
      Caption = #1055#1077#1088#1077#1092#1086#1088#1084#1080#1088#1086#1074#1072#1090#1100' '#1085#1072#1079#1085#1072#1095#1077#1085#1080#1077'  Ctrl+P'
      OnClick = miNaznPlat_Click
    end
    object miNDSOpCode: TMenuItem
      Caption = #1053#1044#1057' - '#1082#1086#1076#1099' '#1086#1087#1077#1088#1072#1094#1080#1081'                  Alt+C'
      OnClick = miNDSOpCode_Click
    end
  end
  object DSFinPlnSpr: TBestDataset
    Tag = 8
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'PAY\FIN_DOC.DBF'
    OEMTranslate = False
    Left = 379
    Top = 141
  end
  object DSFinPlnNoList: TBestDataset
    Tag = 8
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'PAY\FIN_DOC.DBF'
    OEMTranslate = False
    Left = 450
    Top = 141
  end
end
frmPayCasRashStx.prg                                                 73193object frmPayCasRash: TfrmPayCasRash
  Left = -4
  Top = 25
  Width = 750
  Height = 465
  ActiveControl = leDopNum
  Anchors = []
  Caption = #1047#1072#1103#1074#1082#1072' '#1085#1072' '#1082#1072#1089#1089#1086#1074#1099#1081' '#1088#1072#1089#1093#1086#1076
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  WindowState = wsNormal
  OnCloseQuery = Form_CloseQuery
  OnCreate = Form_Create
  OnShow = Form_Show
  DesignSize = (
    742
    431)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 8
    Top = 8
    Width = 728
    Height = 400
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    OnChange = bPageControl1_Change
    object TabSheet1: TTabSheet
      Caption = #1054#1073#1097#1077#1077
      DesignSize = (
        726
        378)
      object lbNaznPlat: xbLabel
        Left = 8
        Top = 347
        Width = 150
        Height = 17
        Caption = #1053#1072#1079#1085#1072#1095#1077#1085#1080#1077' . . . . . . . . . . . . . . . . . . . .'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
      end
      object lcbPTp: xbLabelCombo
        Left = 423
        Top = 46
        Width = 170
        Height = 21
        ParentBackGround = True
        Caption = #1042#1080#1076' '#1087#1083#1072#1090#1077#1078#1072
        TabOrder = 8
        LabelWidth = 80
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Sorted = False
        EditColor = clWindow
        DisabledColor = clInactiveBorder
        DisabledFontColor = clBlack
        BorderColor = clWindowText
        AutoComplete = False
        Style = csDropDownList
        CharCase = ecNormal
        DropDownCount = 0
        ItemHeight = 0
        MaxLength = 0
        Items.Strings = (
          ''
          #1087#1086#1095#1090#1086#1081
          #1090#1077#1083#1077#1075#1088#1072#1092#1086#1084
          #1101#1083#1077#1082#1090#1088#1086#1085#1085#1086
          #1089#1088#1086#1095#1085#1086)
        ItemIndex = -1
        UseStandartHint = True
        OnSelect = lcbPTp_Select
      end
      object lerMvTpCode: xbLabelEditRefer
        Left = 8
        Top = 46
        Width = 386
        Height = 21
        BorderColor = clWindowText
        Caption = #1042#1080#1076' '#1076#1074#1080#1078#1077#1085#1080#1103
        CaptionAlignment = taLeftJustify
        DataField = 'MV_NAME'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 7
        LabelWidth = 156
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnEnter = lerMvTpCode_Enter
        OnExit = lerMvTpCode_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'MV_CODE'
        BeforeButtonClick = lerMvTpCode_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'MV_CODE;-1;50;1;-1;'#1050#1086#1076'|MV_NAME;-1;200;1;-1;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldName = 'MV_NAME'
        FindFieldType = tfCharacterString
        OutFieldsArray = 'MV_CODE;PRT_TP;DIR'
        PutFieldsArray = 'MV_CODE;PRT_TP;DIR'
        ReferCaption = #1042#1080#1076#1099' '#1076#1074#1080#1078#1077#1085#1080#1103' '#1076#1077#1085#1077#1078#1085#1099#1093' '#1089#1088#1077#1076#1089#1090#1074
        TypeFindFieldName = 'MV_NAME'
        xReferId = 0
        IsHarbourRefer = True
        OnSelect = lerMvTpCode_Select
      end
      object bFrame1: xbFrame
        Left = 8
        Top = 91
        Width = 710
        Height = 92
        TabOrder = 14
        Anchors = [akLeft, akTop, akRight]
        DesignSize = (
          710
          92)
        object lbPlatName: xbLabel
          Left = 296
          Top = 5
          Width = 405
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPlatName'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'FINOBJ_PART_SHORTNAME'
          DataSource = ADS
        end
        object lbGlavName: xbLabel
          Left = 296
          Top = 71
          Width = 405
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbGlavName'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'PART_ORGNAME'
          DataSource = ADSDocCmp
        end
        object lbPlatBankName1: xbLabel
          Left = 416
          Top = 28
          Width = 290
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPlatBankName1'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          OnClick = lbPlatBankName1_Click
          DataField = 'OWNACNT_BANK_NAME'
          DataSource = ADSDocCmp
        end
        object lbFO: xbLabel
          Left = 296
          Top = 49
          Width = 250
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbFO'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'FO_SHORTNAME'
          DataSource = ADSDocCmp
        end
        object lePlatCode: xbLabelEdit
          Left = 6
          Top = 2
          Width = 280
          Height = 21
          BorderColor = clWindowText
          Caption = #1055#1088#1077#1076#1087#1088#1080#1103#1090#1080#1077
          CaptionAlignment = taLeftJustify
          DataField = 'FINOBJ_COD_BUD_P'
          DataSource = ADS
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 0
          LabelWidth = 130
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object lerGlavCode: xbLabelEditRefer
          Left = 6
          Top = 68
          Width = 280
          Height = 21
          BorderColor = clWindowText
          Caption = #1043#1083#1072#1074#1085#1099#1081' '#1088#1072#1089#1087#1086#1088#1103#1076#1080#1090#1077#1083#1100
          CaptionAlignment = taLeftJustify
          DataField = 'PART_COD_BUD_P'
          DataSource = ADSDocCmp
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 5
          LabelWidth = 130
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          OnEnter = lerGlavCode_Enter
          OnExit = lerGlavCode_Exit
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'R_ID'
          BeforeButtonClick = lerGlavCode_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 'CODE;-1;100;1;0;'#1050#1086#1076'|SORTNAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
          FindFieldName = 'COD_BUD_P'
          FindFieldType = tfCharacterString
          OutFieldsArray = 'PART_ID'
          PutFieldsArray = 'R_ID'
          ReferCaption = #1057#1087#1080#1089#1086#1082
          ReferWidth = 450
          TypeFindFieldName = 'COD_BUD_P'
          xReferId = 0
          IsHarbourRefer = True
        end
        object lerBudLev: xbLabelEditRefer
          Left = 487
          Top = 46
          Width = 140
          Height = 21
          BorderColor = clWindowText
          Caption = #1041#1102#1076#1078#1077#1090
          CaptionAlignment = taLeftJustify
          DataField = 'BUD_LEV'
          DataSource = ADSDocCmp
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 4
          LabelWidth = 50
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          OnEnter = lerGlavCode_Enter
          OnExit = lerGlavCode_Exit
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'BUD_LEV'
          BeforeButtonClick = lerGlavCode_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 'CODE;-1;100;1;0;'#1050#1086#1076'|NAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
          FindFieldName = 'BUD_LEV'
          FindFieldType = tfCharacterString
          ListDataSet = DSBudLev
          OutFieldsArray = 'CODE'
          PutFieldsArray = 'BUD_LEV'
          ReferCaption = #1057#1087#1080#1089#1086#1082
          ReferWidth = 450
          TypeFindFieldName = 'BUD_LEV'
          xReferId = 0
          IsHarbourRefer = True
        end
        object lePlatAcnt1: xbLabelEdit
          Left = 6
          Top = 24
          Width = 280
          Height = 21
          BorderColor = clWindowText
          Caption = #1051#1080#1094#1077#1074#1086#1081' '#1089#1095#1077#1090
          CaptionAlignment = taLeftJustify
          DataField = 'OWNACNT_NUM'
          DataSource = ADSDocCmp
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 1
          LabelWidth = 130
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object lerPlatBankCode1: xbLabelEdit
          Left = 296
          Top = 24
          Width = 110
          Height = 21
          BorderColor = clWindowText
          Caption = #1074' '#1054#1060#1050'     '
          CaptionAlignment = taLeftJustify
          DataField = 'OWNACNT_COD_BUD_P'
          DataSource = ADSDocCmp
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 2
          LabelWidth = 40
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object lerFO: xbLabelEditRefer
          Left = 6
          Top = 46
          Width = 280
          Height = 21
          BorderColor = clWindowText
          Caption = #1060#1080#1085'. '#1086#1088#1075#1072#1085
          CaptionAlignment = taLeftJustify
          DataField = 'FO_COD_BUD_P'
          DataSource = ADSDocCmp
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 3
          LabelWidth = 130
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'FO_ID'
          BeforeButtonClick = lerFO_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 'CODE;-1;100;1;0;'#1050#1086#1076'|SORTNAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
          FindFieldName = 'COD_BUD_P'
          FindFieldType = tfCharacterString
          OutFieldsArray = 'PART_ID'
          PutFieldsArray = 'FO_ID'
          ReferCaption = #1057#1087#1080#1089#1086#1082
          ReferWidth = 450
          TypeFindFieldName = 'COD_BUD_P'
          xReferId = 0
          IsHarbourRefer = True
        end
      end
      object lcbStatus: xbLabelCombo
        Left = 254
        Top = 24
        Width = 140
        Height = 21
        ParentBackGround = True
        Caption = #1057#1090#1072#1090#1091#1089
        Enabled = False
        TabOrder = 5
        LabelWidth = 40
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Sorted = False
        EditColor = clWindow
        DisabledColor = clInactiveBorder
        DisabledFontColor = clBlack
        BorderColor = clWindowText
        AutoComplete = False
        Style = csDropDownList
        CharCase = ecNormal
        DropDownCount = 0
        ItemHeight = 0
        MaxLength = 0
        Items.Strings = (
          #1095#1077#1088#1085#1086#1074#1080#1082
          #1087#1077#1088#1077#1076#1072#1085
          #1086#1087#1083#1072#1095#1077#1085)
        ItemIndex = -1
        UseStandartHint = True
      end
      object leDocVid: xbLabelEdit
        Left = 8
        Top = 2
        Width = 236
        Height = 21
        BorderColor = clWindowText
        Caption = #1044#1086#1082#1091#1084#1077#1085#1090':     '#1074#1080#1076'    '
        CaptionAlignment = taLeftJustify
        DataField = 'DOC_CODE'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 0
        LabelWidth = 156
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leDocNum: xbLabelEdit
        Left = 402
        Top = 2
        Width = 60
        Height = 21
        BorderColor = clWindowText
        Caption = #1085#1086#1084#1077#1088'    '
        CaptionAlignment = taLeftJustify
        DataField = 'DOC_NUM'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 2
        LabelWidth = 0
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leDocDate: xbLabelEdit
        Left = 473
        Top = 2
        Width = 120
        Height = 21
        BorderColor = clWindowText
        Caption = #1076#1072#1090#1072'    '
        CaptionAlignment = taLeftJustify
        DataField = 'DOC_DATE'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 3
        LabelWidth = 30
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object lePayDate: xbLabelEdit
        Left = 8
        Top = 24
        Width = 236
        Height = 21
        BorderColor = clWindowText
        Caption = #1055#1088#1077#1076#1077#1083#1100#1085#1072#1103' '#1076#1072#1090#1072' '#1080#1089#1087#1086#1083#1085#1077#1085#1080#1103
        CaptionAlignment = taLeftJustify
        DataField = 'PAY_DATE'
        DataSource = ADSDocCmp
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 4
        LabelWidth = 156
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnExit = lePayDate_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leOperDate: xbLabelEdit
        Left = 423
        Top = 24
        Width = 170
        Height = 21
        BorderColor = clWindowText
        Caption = #1044#1072#1090#1072' '#1086#1087#1077#1088#1072#1094#1080#1080
        CaptionAlignment = taLeftJustify
        DataField = 'OPER_DATE'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 6
        LabelWidth = 80
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnExit = leOperDate_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leDopNum: xbLabelEdit
        Left = 254
        Top = 2
        Width = 140
        Height = 21
        BorderColor = clWindowText
        Caption = #1085#1086#1084#1077#1088'    '
        CaptionAlignment = taLeftJustify
        DataField = 'DOP_NUM'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 1
        LabelWidth = 40
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leRegNum: xbLabelEdit
        Left = 9
        Top = 68
        Width = 236
        Height = 21
        BorderColor = clWindowText
        Caption = #1056#1077#1075#1080#1089#1090#1088#1072#1094#1080#1103' '#1074' '#1054#1060#1050'     '#1085#1086#1084#1077#1088'     '
        CaptionAlignment = taLeftJustify
        DataField = 'REG_NUM'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 10
        LabelWidth = 156
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        MaxLength = 13
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leRegDate: xbLabelEdit
        Left = 254
        Top = 68
        Width = 140
        Height = 21
        BorderColor = clWindowText
        Caption = '    '#1076#1072#1090#1072'    '
        CaptionAlignment = taLeftJustify
        DataField = 'REG_DATE'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 11
        LabelWidth = 40
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnExit = leRegDate_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object bFrame3: xbFrame
        Left = 8
        Top = 185
        Width = 710
        Height = 135
        TabOrder = 15
        Anchors = [akLeft, akTop, akRight]
        DesignSize = (
          710
          135)
        object lbPolName: xbLabel
          Left = 296
          Top = 5
          Width = 410
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPolName'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'PART_SHORTNAME'
          DataSource = ADS
        end
        object lbPolBankCode1: xbLabel
          Left = 426
          Top = 27
          Width = 280
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPolBankCode1'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          DataField = 'PRTACNT_BANK_NAME'
          DataSource = ADSDocCmp
        end
        object lbPolBankCode2: xbLabel
          Left = 426
          Top = 49
          Width = 280
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = 'lbPolBankCode2'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
          OnClick = lbBankName2_Click
          DataField = 'PRTACNTCMPBNK_NAME'
          DataSource = ADSDocCmp
        end
        object lerPolCode: xbLabelEditRefer
          Left = 6
          Top = 2
          Width = 280
          Height = 21
          BorderColor = clWindowText
          Caption = #1050#1086#1085#1090#1088#1072#1075#1077#1085#1090
          CaptionAlignment = taLeftJustify
          DataField = 'PART_CODE'
          DataSource = ADS
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 0
          LabelWidth = 130
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'PRT_ID'
          BeforeButtonClick = lerPolCode_BeforeButtonClick
          OnClearButtonClick = lerPolCode_ClearButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 'CODE;-1;100;1;0;'#1050#1086#1076'|SORTNAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
          FindFieldName = 'CODE'
          FindFieldType = tfCharacterString
          OutFieldsArray = 'PART_ID'
          PutFieldsArray = 'PRT_ID'
          ReferCaption = #1057#1087#1080#1089#1086#1082
          ReferWidth = 450
          TypeFindFieldName = 'CODE'
          xReferId = 0
          IsHarbourRefer = True
          OnSelect = lerPolCode_Select
        end
        object lerPolAcnt1: xbLabelEditRefer
          Left = 6
          Top = 24
          Width = 280
          Height = 21
          BorderColor = clWindowText
          Caption = #1056#1072#1089#1095#1077#1090#1085#1099#1081' '#1089#1095#1077#1090
          CaptionAlignment = taLeftJustify
          DataField = 'PRTACNT_NUM'
          DataSource = ADSDocCmp
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 1
          LabelWidth = 130
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          OnExit = lerPolAcnt1_Exit
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'P_ACNT_ID'
          BeforeButtonClick = lerPolAcnt1_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 
            'Accnt;-1;50;1;-1;'#1057#1095#1077#1090'|GetBankName;-1;150;1;-1;'#1041#1072#1085#1082'|Comment;-1;20' +
            '0;1;-1;'#1050#1086#1084#1084#1077#1085#1090#1072#1088#1080#1081
          FindFieldName = 'ACCNT'
          FindFieldType = tfCharacterString
          OutFieldsArray = 'REC_ID'
          PutFieldsArray = 'P_ACNT_ID'
          ReferCaption = #1057#1095#1077#1090' '#1074' '#1073#1072#1085#1082#1077
          TypeFindFieldName = 'ACCNT'
          xReferId = 0
          IsHarbourRefer = True
          OnSelect = lerPolAcnt1_Select
        end
        object lerPolBankCode2: xbLabelEditRefer
          Left = 296
          Top = 46
          Width = 120
          Height = 21
          BorderColor = clWindowText
          Caption = #1074' '#1073#1072#1085#1082#1077
          CaptionAlignment = taLeftJustify
          DataField = 'PRTACNTCMPBNK_CODE'
          DataSource = ADSDocCmp
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 4
          LabelWidth = 42
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'P_ACNT_BNK'
          BeforeButtonClick = lerPolBankCode2_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 'Bnk_Code;-1;50;1;-1;'#1050#1086#1076'|Bnk_Name;-1;150;1;-1;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
          FindFieldName = 'BNK_CODE'
          FindFieldType = tfCharacterString
          OutFieldsArray = 'BNK_ID'
          PutFieldsArray = 'P_ACNT_BNK'
          ReferCaption = #1057#1095#1077#1090' '#1074' '#1073#1072#1085#1082#1077
          TypeFindFieldName = 'BNK_CODE'
          xReferId = 0
          IsHarbourRefer = True
        end
        object lePolBankCode1: xbLabelEdit
          Left = 296
          Top = 24
          Width = 120
          Height = 21
          BorderColor = clWindowText
          Caption = #1074' '#1073#1072#1085#1082#1077
          CaptionAlignment = taLeftJustify
          DataField = 'PRTACNT_BNK_COD_B'
          DataSource = ADSDocCmp
          ButtonsColor = clBlack
          EnabledColor = clWhite
          TabOrder = 2
          LabelWidth = 42
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object lerPolAcnt2: xbLabelEditRefer
          Left = 136
          Top = 46
          Width = 150
          Height = 21
          BorderColor = clWindowText
          Caption = #1056#1072#1089#1095#1077#1090#1085#1099#1081' '#1089#1095#1077#1090
          CaptionAlignment = taLeftJustify
          DataField = 'PRTACNTCMP_NUM'
          DataSource = ADSDocCmp
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 3
          LabelWidth = 0
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'P_ACNT_CMP'
          BeforeButtonClick = lerPolAcnt2_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 'Accnt;-1;50;1;-1;'#1057#1095#1077#1090'|GetBankName;-1;150;1;-1;'#1041#1072#1085#1082
          FindFieldName = 'ACCNT'
          FindFieldType = tfCharacterString
          OutFieldsArray = 'REC_ID'
          PutFieldsArray = 'P_ACNT_CMP'
          ReferCaption = #1057#1095#1077#1090' '#1074' '#1073#1072#1085#1082#1077
          TypeFindFieldName = 'ACCNT'
          xReferId = 0
          IsHarbourRefer = True
        end
        object lerDocOsnVid: xbLabelEditRefer
          Left = 6
          Top = 68
          Width = 280
          Height = 21
          BorderColor = clWindowText
          Caption = #1044#1086#1082'.-'#1086#1089#1085#1086#1074#1072#1085#1080#1077'        '#1074#1080#1076'      '
          CaptionAlignment = taLeftJustify
          DataField = 'APCARD_CNTYPE'
          DataSource = ADS
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 5
          LabelWidth = 130
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          OnEnter = lerDocOsnVid_Enter
          OnExit = lerDocOsnVid_Exit
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'ACNT_ID;ID_OBL'
          BeforeButtonClick = lerDocOsnVid_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 
            'CNCTG;-1;45;1;-1;'#1050#1072#1090'-'#1088#1080#1103'|DOC_VID;-1;30;1;-1;'#1042#1080#1076'|CNJURNO;-1;125;1' +
            ';-1;'#1053#1086#1084#1077#1088'|CNREGNO;-1;40;1;-1;'#1053#1086#1084#1077#1088'|DOC_DATE;-1;60;1;-1;'#1044#1072#1090#1072'|CUR;' +
            '-1;40;1;-1;'#1042#1072#1083#1102#1090#1072'|OST;-1;80;1;-1;'#1054#1089#1090#1072#1090#1086#1082'|CURS;-1;50;1;-1;'#1050#1091#1088#1089'|SU' +
            'MMA;-1;90;1;-1;'#1057#1091#1084#1084#1072' '#1087#1086' '#1082#1091#1088#1089#1091
          FindFieldName = 'CARD_ID'
          FindFieldType = tfCharacterString
          ListDataSet = DSApCardSpr
          OutFieldsArray = 'CARD_ID'
          PutFieldsArray = 'ACNT_ID'
          ReferCaption = #1044#1086#1082#1091#1084#1077#1085#1090#1099'-'#1086#1089#1085#1086#1074#1072#1085#1080#1103
          ReferWidth = 600
          TypeFindFieldName = 'CARD_ID'
          xReferId = 0
          IsHarbourRefer = True
          OnSelect = lerDocOsnVid_Select
        end
        object leDocOsnJurNum: xbLabelEdit
          Left = 296
          Top = 68
          Width = 175
          Height = 21
          BorderColor = clWindowText
          Caption = #1085#1086#1084#1077#1088'    '
          CaptionAlignment = taLeftJustify
          DataField = 'APCARD_CNJURNO'
          DataSource = ADS
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 6
          LabelWidth = 42
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object ledDocOsnDate: xbLabelEditCalend
          Left = 533
          Top = 68
          Width = 100
          Height = 21
          BorderColor = clWindowText
          Caption = #1076#1072#1090#1072'        '
          CaptionAlignment = taLeftJustify
          DataField = 'APCARD_CNJURD'
          DataSource = ADS
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          EditMask = '!99/99/0000;1; '
          TabOrder = 8
          LabelWidth = 30
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          MaxLength = 10
          Text = '  /  /    '
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2;Alt+Down'
          EnabledEdit = False
          VisibleButton = False
        end
        object lerBORegNum: xbLabelEditRefer
          Left = 246
          Top = 112
          Width = 170
          Height = 21
          BorderColor = clWindowText
          Caption = #1041#1054' '#1088#1077#1075'. '#1085#1086#1084#1077#1088
          CaptionAlignment = taLeftJustify
          DataField = 'BO_REG_NUM'
          DataSource = ADS
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          TabOrder = 15
          LabelWidth = 0
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          Required = True
          OnExit = lerBORegNum_Exit
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'BO_REG_NUM'
          BeforeButtonClick = lerBORegNum_BeforeButtonClick
          VisibleButton = True
          UseStandartHint = True
          ColumnsTune = 
            'REG_NUM;-1;100;1;-1;'#1056#1077#1075'. '#1085#1086#1084#1077#1088'|REG_DATE;-1;100;1;-1;'#1044#1072#1090#1072' '#1088#1077#1075#1080#1089#1090#1088 +
            #1072#1094#1080#1080
          FindFieldName = 'REG_NUM'
          FindFieldType = tfCharacterString
          FindFieldValue = 'BO_REG_NUM'
          ListDataSet = DSFinPlnSpr
          OutFieldsArray = 'REG_NUM'
          PutFieldsArray = 'BO_REG_NUM'
          ReferCaption = #1044#1086#1082#1091#1084#1077#1085#1090#1099'-'#1086#1089#1085#1086#1074#1072#1085#1080#1103
          ReferWidth = 550
          TypeFindFieldName = 'REG_NUM'
          xReferId = 0
          IsHarbourRefer = True
          OnSelect = lerBORegNum_Select
        end
        object leDocOsnRegNum: xbLabelEdit
          Left = 476
          Top = 68
          Width = 45
          Height = 21
          BorderColor = clWindowText
          Caption = #1085#1086#1084#1077#1088'    '
          CaptionAlignment = taLeftJustify
          DataField = 'APCARD_CNREGNO'
          DataSource = ADS
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 7
          LabelWidth = 0
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object leAcNum: xbLabelEdit
          Left = 436
          Top = 90
          Width = 122
          Height = 21
          BorderColor = clWindowText
          Caption = #1085#1086#1084#1077#1088'    '
          CaptionAlignment = taLeftJustify
          DataField = 'AC_NUM'
          DataSource = ADSDocCmp
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 11
          LabelWidth = 0
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object ledAcDate: xbLabelEditCalend
          Left = 563
          Top = 90
          Width = 70
          Height = 21
          BorderColor = clWindowText
          Caption = #1076#1072#1090#1072
          CaptionAlignment = taLeftJustify
          DataField = 'AC_DATE'
          DataSource = ADSDocCmp
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          EditMask = '!99/99/0000;1; '
          TabOrder = 12
          LabelWidth = 0
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          MaxLength = 10
          Text = '  /  /    '
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2;Alt+Down'
          EnabledEdit = False
          VisibleButton = False
        end
        object leAcTp: xbLabelEdit
          Left = 81
          Top = 90
          Width = 350
          Height = 21
          BorderColor = clWindowText
          Caption = #1087#1086#1076#1088#1086#1073#1085#1086
          CaptionExtender = ceNone
          CaptionAlignment = taLeftJustify
          DataField = 'AC_TP'
          DataSource = ADSDocCmp
          ButtonsColor = clBlack
          EnabledColor = clWhite
          Enabled = False
          TabOrder = 10
          LabelWidth = 55
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          PopupListClickKey = 0
          AddPrefixOnFilial = False
        end
        object btPredmet: xbButton
          Left = 638
          Top = 90
          Width = 65
          Height = 21
          Caption = #1055#1088#1077#1076#1084#1077#1090
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ParentShowHint = False
          RoundedButton = True
          ShowHint = True
          TabOrder = 13
          OnClick = btPredmet_Click
          Anchors = [akLeft, akBottom]
          ButtonColor = clBlack
        end
        object lecOblLNum: xbLabelEditCalc
          Left = 638
          Top = 68
          Width = 44
          Height = 21
          BorderColor = clWindowText
          Caption = #1069#1090#1072#1087
          CaptionAlignment = taLeftJustify
          DataField = 'OBL_LNUM'
          DataSource = ADS
          ButtonsColor = clBtnFace
          EnabledColor = clWhite
          DisabledFontColor = clBtnText
          Enabled = False
          EditMask = '000;;'
          TabOrder = 9
          LabelWidth = 0
          LabelFont.Charset = DEFAULT_CHARSET
          LabelFont.Color = clWindowText
          LabelFont.Height = -11
          LabelFont.Name = 'MS Sans Serif'
          LabelFont.Style = []
          MaxLength = 3
          Text = '   '
          OnEnter = lecSumma_Enter
          OnExit = lecSumma_Exit
          PopupListClickKey = 0
          AddPrefixOnFilial = False
          ClickKeysAlternate = 'F2'
          ClearFields = 'ID_OBL'
          EnabledEdit = False
          VisibleButton = False
          OnSelect = lecSumma_Select
        end
        object cbNoList: xbCheckBox
          Left = 6
          Top = 112
          Width = 220
          Height = 21
          Caption = #1041#1054' '#1088#1077#1075'. '#1085#1086#1084#1077#1088' . . . . . . . . '#1085#1077#1090' '#1074' '#1088#1077#1077#1089#1090#1088#1077
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 14
          TabStop = True
          OnClick = cbNoList_Click
          ValueChecked = '1'
          ValueUnchecked = '0'
          DataField = 'NO_LIST'
          DataSource = ADS
        end
      end
      object lerVal: xbLabelEditRefer
        Left = 8
        Top = 321
        Width = 120
        Height = 21
        BorderColor = clWindowText
        Caption = #1042#1072#1083#1102#1090#1072
        CaptionAlignment = taLeftJustify
        DataField = 'CURR'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        Enabled = False
        TabOrder = 16
        LabelWidth = 50
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'CURR'
        EnabledEdit = False
        EnabledButton = False
        BeforeButtonClick = lerVal_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'CODE;-1;50;1;-1;'#1050#1086#1076'|NAME;-1;200;1;-1;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldName = 'CODE'
        FindFieldType = tfCharacterString
        OutFieldsArray = 'CODE'
        PutFieldsArray = 'CURR'
        ReferCaption = #1057#1087#1088#1072#1074#1086#1095#1085#1080#1082' '#1074#1072#1083#1102#1090
        TypeFindFieldName = 'CODE'
        xReferId = 0
        IsHarbourRefer = True
      end
      object lecSumma: xbLabelEditCalc
        Left = 8
        Top = 321
        Width = 286
        Height = 21
        BorderColor = clWindowText
        Caption = #1057#1091#1084#1084#1072
        CaptionAlignment = taLeftJustify
        DataField = 'SUM'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        TabOrder = 17
        LabelWidth = 136
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        OnEnter = lecSumma_Enter
        OnExit = lecSumma_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        VisibleButton = False
        OnSelect = lecSumma_Select
      end
      object cbAvans: xbCheckBox
        Left = 302
        Top = 321
        Width = 60
        Height = 21
        Caption = #1040#1074#1072#1085#1089' . . . . . . . . . .'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 18
        TabStop = True
        OnClick = bIsState_Click
        ValueChecked = '1'
        ValueUnchecked = '0'
        DataField = 'ADV'
        DataSource = ADS
      end
      object lerNalModelCode: xbLabelEditRefer
        Left = 372
        Top = 321
        Width = 267
        Height = 21
        BorderColor = clWindowText
        Caption = #1053#1072#1083#1086#1075#1086#1074#1072#1103' '#1084#1086#1076#1077#1083#1100
        CaptionAlignment = taLeftJustify
        DataField = 'TAXMOD_NAME'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 19
        LabelWidth = 100
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnEnter = lerNalModelCode_Enter
        OnExit = lerNalModelCode_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'TAX_MOD_ID'
        BeforeButtonClick = lerNalModelCode_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'MD_CODE;-1;50;1;-1;'#1050#1086#1076'|MD_NAME;-1;200;1;-1;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldName = 'MD_NAME'
        FindFieldType = tfCharacterString
        OutFieldsArray = 'MOD_ID'
        PutFieldsArray = 'TAX_MOD_ID'
        ReferCaption = #1053#1072#1083#1086#1075#1086#1074#1099#1077' '#1084#1086#1076#1077#1083#1080
        TypeFindFieldName = 'MD_NAME'
        xReferId = 0
        IsHarbourRefer = True
        OnSelect = lerNalModelCode_Select
      end
      object memNaznPlat: xbMemo
        Left = 144
        Top = 343
        Width = 476
        Height = 34
        ColorFlat = clBtnFace
        ParentColor = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        MaxLength = 210
        ParentFont = False
        TabOrder = 20
        OnKeyDown = memNaznPlat_KeyDown
        AutoDisplay = False
        BorderStyle = bsNone
        Color = clWhite
        DisabledColor = clInactiveBorder
        DisabledFontColor = 7368816
        DataField = 'COMMENT'
        DataSource = ADS
      end
      object btNaznPlat: xbButton
        Left = 622
        Top = 343
        Width = 21
        Height = 21
        Caption = '...'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        RoundedButton = True
        TabOrder = 21
        OnClick = btNaznPlat_Click
        ButtonColor = clBlack
      end
      object lerPlQue: xbLabelEditRefer
        Left = 598
        Top = 46
        Width = 120
        Height = 21
        BorderColor = clWindowText
        Caption = #1054#1095#1077#1088#1077#1076#1085#1086#1089#1090#1100
        CaptionAlignment = taLeftJustify
        DataField = 'PL_QUE'
        DataSource = ADSDocCmp
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 9
        LabelWidth = 70
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'PL_QUE'
        BeforeButtonClick = lerPlQue_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'CODE;-1;100;1;0;'#1050#1086#1076'|NAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldName = 'PL_QUE'
        FindFieldType = tfCharacterString
        OutFieldsArray = 'CODE'
        PutFieldsArray = 'PL_QUE'
        ReferCaption = #1057#1087#1080#1089#1086#1082
        ReferWidth = 450
        TypeFindFieldName = 'PL_QUE'
        xReferId = 0
        IsHarbourRefer = True
      end
      object leBnkNum: xbLabelEdit
        Left = 408
        Top = 68
        Width = 185
        Height = 21
        BorderColor = clWindowText
        Caption = #1044#1086#1082'.'#1073#1072#1085#1082#1072': '#1085#1086#1084#1077#1088'     '
        CaptionAlignment = taLeftJustify
        DataField = 'BNK_NUM'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 12
        LabelWidth = 95
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leBnkDate: xbLabelEdit
        Left = 598
        Top = 68
        Width = 120
        Height = 21
        BorderColor = clWindowText
        Caption = ' '#1076#1072#1090#1072'    '
        CaptionExtender = ceNone
        CaptionAlignment = taLeftJustify
        DataField = 'BNK_DATE'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 13
        LabelWidth = 30
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnExit = leRegDate_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
    end
    object TabSheet2: TTabSheet
      Caption = #1056#1072#1089#1096#1080#1092#1088#1086#1074#1082#1072
      DesignSize = (
        726
        378)
      object bFrame2: xbFrame
        Left = 8
        Top = 8
        Width = 710
        Height = 364
        TabOrder = 0
        Anchors = [akLeft, akTop, akRight, akBottom]
        OnClick = bFrame2_Click
        object GridBudExp: xbGrid
          Left = 0
          Top = 0
          Width = 710
          Height = 351
          Align = alTop
          Anchors = [akLeft, akTop, akRight, akBottom]
          AutoFitColWidths = True
          DataSource = ADSBudExp
          Flat = True
          FooterColor = clWindow
          FooterFont.Charset = DEFAULT_CHARSET
          FooterFont.Color = clWindowText
          FooterFont.Height = -11
          FooterFont.Name = 'MS Sans Serif'
          FooterFont.Style = []
          Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgConfirmDelete]
          ReadOnly = True
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          UseMultiTitle = True
          VertScrollBar.VisibleMode = sbAlwaysShowEh
          OnDblClick = GridBudExpFin_DblClick
          OnKeyPress = GridBudExpFin_KeyPress
          IdGrid = '{2B08D3A5-5F32-4306-8558-C3D5686CF2CD}'
          Columns = <
            item
              EditButtons = <>
              FieldName = 'FIN_TP'
              Footers = <>
              Title.Caption = #1048#1060
              Width = 33
            end
            item
              EditButtons = <>
              FieldName = 'EXP_DIM'
              Footers = <>
              Title.Caption = #1040#1085#1072#1083#1080#1090#1080#1082#1072' '#1087#1083#1072#1090#1077#1083#1100#1097#1080#1082#1072
              Width = 174
            end
            item
              EditButtons = <>
              FieldName = 'DOP_DIM'
              Footers = <>
              Title.Caption = #1040#1085#1072#1083#1080#1090#1080#1082#1072' '#1087#1086#1083#1091#1095#1072#1090#1077#1083#1103
              Width = 174
            end
            item
              Alignment = taRightJustify
              EditButtons = <>
              FieldName = 'SUM_KR'
              Footers = <>
              Title.Caption = #1057#1091#1084#1084#1072
              Width = 98
            end
            item
              EditButtons = <>
              FieldName = 'PRIM'
              Footers = <>
              Title.Caption = #1053#1072#1079#1085#1072#1095#1077#1085#1080#1077
              Width = 178
            end
            item
              Alignment = taCenter
              EditButtons = <>
              FieldName = 'VIS_STRTP'
              Footers = <>
              Title.Caption = ' '
              Width = 16
            end>
        end
        object GridItogBudExp: xbGrid
          Left = 0
          Top = 347
          Width = 710
          Height = 17
          TabStop = False
          Align = alBottom
          AutoFitColWidths = True
          ColorActiveCursor = clWindow
          ColorActiveCursorFont = clWindowText
          DataSource = ADSItogBudExp
          Enabled = False
          FixedColor = clWindow
          Flat = True
          FooterColor = clWindow
          FooterFont.Charset = DEFAULT_CHARSET
          FooterFont.Color = clWindowText
          FooterFont.Height = -11
          FooterFont.Name = 'MS Sans Serif'
          FooterFont.Style = []
          FrozenCols = 5
          HorzScrollBar.Visible = False
          Options = [dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgConfirmDelete]
          OptionsEh = [dghFixed3D, dghClearSelection]
          ReadOnly = True
          RowOddColor = clWindow
          TabOrder = 1
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          UseMultiTitle = True
          VertScrollBar.VisibleMode = sbAlwaysShowEh
          IdGrid = '{C93E721F-29AA-4B7C-820E-75C32B59F2C0}'
          Columns = <
            item
              EditButtons = <>
              FieldName = 'FIN_TP'
              Footers = <>
              Width = 33
            end
            item
              Alignment = taRightJustify
              EditButtons = <>
              FieldName = 'EXP_DIM'
              Footers = <>
              Width = 179
            end
            item
              Alignment = taRightJustify
              EditButtons = <>
              FieldName = 'DOP_DIM'
              Footers = <>
              Width = 179
            end
            item
              Alignment = taRightJustify
              EditButtons = <>
              FieldName = 'SUM_KR'
              Footers = <>
              Width = 100
            end
            item
              EditButtons = <>
              FieldName = 'PRIM'
              Footers = <>
              Width = 182
            end
            item
              AutoFitColWidth = False
              EditButtons = <>
              FieldName = 'EMPTY_COL'
              Footers = <>
              Width = 0
            end>
        end
      end
    end
    object TabSheet3: TTabSheet
      Caption = #1055#1088#1086#1074#1086#1076#1082#1080
      DesignSize = (
        726
        378)
      object txtopert: xbLabel
        Left = 261
        Top = 9
        Width = 302
        Height = 17
        Caption = 'txtopert'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
        Layout = tlCenter
        DataField = 'TYPEOP_NAME'
        DataSource = ADS
      end
      object lblDt: xbLabel
        Left = 6
        Top = 348
        Width = 714
        Height = 16
        Anchors = [akLeft, akRight, akBottom]
        Caption = '1'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
      end
      object lblKt: xbLabel
        Left = 6
        Top = 362
        Width = 714
        Height = 16
        Anchors = [akLeft, akRight, akBottom]
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
      end
      object rfOPerT: xbLabelEditRefer
        Left = 6
        Top = 6
        Width = 250
        Height = 21
        BorderColor = clWindowText
        Caption = #1058#1080#1087#1086#1074#1072#1103' '#1086#1087#1077#1088#1072#1094#1080#1103
        CaptionAlignment = taLeftJustify
        DataField = 'TYPEOP_CODE'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 0
        LabelWidth = 124
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'TYPE_OP'
        OnClearButtonClick = rfOPerT_ClearButtonClick
        VisibleButton = True
        UseStandartHint = True
        FindFieldName = 'code'
        FindFieldType = tfCharacterString
        OutFieldsArray = 'REC_ID'
        PutFieldsArray = 'TYPE_OP'
        ReferCaption = #1057#1087#1080#1089#1086#1082' '#1090#1080#1087#1086#1074#1099#1093' '#1086#1087#1077#1088#1072#1094#1080#1081
        TypeFindFieldName = 'code'
        xReferId = 0
        IsHarbourRefer = False
      end
      object bGrProv: xbGrid
        Left = 6
        Top = 31
        Width = 714
        Height = 315
        Anchors = [akLeft, akTop, akRight, akBottom]
        AutoFitColWidths = True
        DataSource = adsMain
        Flat = True
        FooterColor = clWindow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -11
        FooterFont.Name = 'MS Sans Serif'
        FooterFont.Style = []
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
        ReadOnly = True
        TabOrder = 1
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        UseMultiTitle = True
        VTitleMargin = 4
        OnDblClick = bGrid2_DblClick
        OnKeyPress = bGrid2_KeyPress
        IdGrid = '{A38D282F-9736-4FC3-B9B9-A83DF297FD74}'
        Columns = <
          item
            Checkboxes = True
            EditButtons = <>
            FieldName = 'X_ISMARK_'
            Footers = <>
            Title.Caption = ' '
            Width = 24
          end
          item
            EditButtons = <>
            FieldName = 'DT_SCHET'
            Footers = <>
            Title.Caption = #1057#1095#1077#1090'|'#1044#1077#1073#1077#1090
            Width = 89
          end
          item
            EditButtons = <>
            FieldName = 'KT_SCHET'
            Footers = <>
            Title.Caption = #1057#1095#1077#1090'|'#1050#1088#1077#1076#1080#1090
            Width = 89
          end
          item
            EditButtons = <>
            FieldName = 'NAMEOPER'
            Footers = <>
            Title.Caption = #1057#1086#1076#1077#1088#1078#1072#1085#1080#1077
            Width = 359
          end
          item
            EditButtons = <>
            FieldName = 'SUMMA'
            Footers = <>
            Title.Caption = #1057#1091#1084#1084#1072
            Width = 134
          end>
      end
    end
  end
  object pOperation: xbPopupButton
    Left = 495
    Top = 409
    Width = 75
    Height = 21
    Caption = #1054#1087#1077#1088#1072#1094#1080#1080
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = MenuOperation
    RoundedButton = True
    TabOrder = 5
    OnClick = pOperation_Click
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btRaschet: xbPopupButton
    Left = 223
    Top = 409
    Width = 75
    Height = 21
    Caption = #1056#1072#1089#1095#1077#1090#1099
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = MenuRaschet
    RoundedButton = True
    TabOrder = 2
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object pbDopData: xbPopupButton
    Left = 387
    Top = 409
    Width = 100
    Height = 21
    Caption = #1044#1086#1087'. '#1076#1072#1085#1085#1099#1077
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = MenuDopData
    RoundedButton = True
    TabOrder = 4
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btNalogi: xbButton
    Left = 306
    Top = 409
    Width = 75
    Height = 21
    Hint = ' '#1053#1072#1076#1073#1072#1074#1082#1080' (Ctrl+N)'
    Caption = #1053#1072#1083#1086#1075#1080
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 3
    OnClick = btNalogi_Click
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object bDocDim: xbButton
    Left = 136
    Top = 409
    Width = 75
    Height = 21
    Hint = #1042#1074#1086#1076' Ctrl-D'
    Caption = #1048#1079#1084#1077#1088#1077#1085#1080#1103
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 1
    OnClick = bPlDoc_Click
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btnOK: xbButton
    Left = 579
    Top = 409
    Width = 75
    Height = 21
    Hint = #1057#1086#1093#1088#1072#1085#1077#1085#1080#1077' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (F10)'
    Caption = #1054#1050
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 6
    ModalResult = 1
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btnCANCEL: xbButton
    Left = 662
    Top = 409
    Width = 75
    Height = 21
    Hint = #1042#1099#1093#1086#1076' '#1080#1079' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (Esc)'
    Caption = #1054#1090#1084#1077#1085#1072
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 7
    ModalResult = 2
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <>
    OEMTranslate = False
    Left = 109
    Top = 3
  end
  object ADS: xbADSDataSource
    DataSet = DS
    Left = 145
    Top = 3
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_FIN_DOCS'
    Active = False
    Left = 72
    Top = 3
  end
  object DSDocCmp: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    OEMTranslate = False
    Left = 112
    Top = 60
  end
  object ADSDocCmp: xbADSDataSource
    DataSet = DSDocCmp
    Left = 110
    Top = 118
  end
  object BOBudExp: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_BUD_EXP'
    Active = False
    Left = 271
    Top = 201
  end
  object DSBudExp: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOBudExp
    FieldDefs = <>
    ReadOnly = True
    OEMTranslate = False
    Left = 351
    Top = 195
  end
  object ADSBudExp: xbADSDataSource
    DataSet = DSBudExp
    Left = 438
    Top = 194
  end
  object DSItogBudExp: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    ReadOnly = True
    OEMTranslate = False
    Left = 353
    Top = 244
  end
  object ADSItogBudExp: xbADSDataSource
    DataSet = DSItogBudExp
    Left = 443
    Top = 243
  end
  object MenuOperation: xbPopupMenu
    Left = 610
    Top = 245
    object pStatus: TMenuItem
      Caption = #1057#1090#1072#1090#1091#1089'                                             Alt-S'
      object pStatus1: TMenuItem
        Caption = #1063#1077#1088#1085#1086#1074#1080#1082
      end
      object pStatus2: TMenuItem
        Caption = #1055#1077#1088#1077#1076#1072#1085
      end
      object pStatus3: TMenuItem
        Caption = #1054#1087#1083#1072#1095#1077#1085
      end
    end
    object miCopyProv: TMenuItem
      Caption = #1050#1086#1087#1080#1088#1086#1074#1072#1090#1100' '#1087#1088#1086#1074#1086#1076#1082#1091'                       F5'
      OnClick = miCopyProv_Click
    end
    object miCopyBudExp: TMenuItem
      Caption = #1050#1086#1087#1080#1088#1086#1074#1072#1090#1100' '#1089#1090#1088#1086#1082#1091' '#1088#1072#1089#1096#1080#1092#1088#1086#1074#1082#1080'   F5'
      OnClick = miCopyBudExp_Click
    end
    object miNaznPlat: TMenuItem
      Caption = #1055#1077#1088#1077#1092#1086#1088#1084#1080#1088#1086#1074#1072#1090#1100' '#1085#1072#1079#1085#1072#1095#1077#1085#1080#1077'  Ctrl+P'
      OnClick = miNaznPlat_Click
    end
    object miNDSOpCode: TMenuItem
      Caption = #1053#1044#1057' - '#1082#1086#1076#1099' '#1086#1087#1077#1088#1072#1094#1080#1081'                  Alt+C'
      OnClick = miNDSOpCode_Click
    end
  end
  object adsMain: xbADSDataSource
    DataSet = DSMAIN
    Left = 173
    Top = 117
  end
  object DSMAIN: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    xbsClassName = 'MAIN'
    BObject = BO
    FieldDefs = <
      item
        Name = 'NNOPER'
        DataType = ftFloat
      end
      item
        Name = 'TASK'
        DataType = ftString
        Size = 2
      end
      item
        Name = 'TaskName'
        DataType = ftString
        Size = 40
      end
      item
        Name = 'JrnName'
        DataType = ftString
        Size = 40
      end
      item
        Name = 'JrnCode'
        DataType = ftString
        Size = 4
      end
      item
        Name = 'DATAOPER'
        DataType = ftDate
      end
      item
        Name = 'NNDOC'
        DataType = ftString
        Size = 6
      end
      item
        Name = 'DT_SCHET'
        DataType = ftString
        Size = 16
      end
      item
        Name = 'DTName'
        DataType = ftString
        Size = 80
      end
      item
        Name = 'DT_CODE'
        DataType = ftString
        Size = 60
      end
      item
        Name = 'KT_SCHET'
        DataType = ftString
        Size = 16
      end
      item
        Name = 'KTName'
        DataType = ftString
        Size = 80
      end
      item
        Name = 'KT_CODE'
        DataType = ftString
        Size = 60
      end
      item
        Name = 'SUMMA'
        DataType = ftFloat
      end
      item
        Name = 'NAMEOPER'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'VALUTA'
        DataType = ftString
        Size = 3
      end
      item
        Name = 'VSUMMA'
        DataType = ftFloat
      end
      item
        Name = 'VCURS'
        DataType = ftFloat
      end
      item
        Name = 'SCLAD'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'STATUS'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'USER_DATE'
        DataType = ftDate
      end
      item
        Name = 'Z_STATUS'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'NNOPER_D'
        DataType = ftFloat
      end
      item
        Name = 'NNOPER_K'
        DataType = ftFloat
      end
      item
        Name = 'N_STATUS'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'CRYPT_CODE'
        DataType = ftString
        Size = 11
      end
      item
        Name = 'IDMAIN'
        DataType = ftFloat
      end
      item
        Name = 'JRN_ID'
        DataType = ftFloat
      end
      item
        Name = 'DOC_ID'
        DataType = ftFloat
      end
      item
        Name = 'VAL_ID'
        DataType = ftFloat
      end
      item
        Name = 'PSCHET'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'ENTRY_CTG'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'GL_DIM1'
        DataType = ftFloat
      end
      item
        Name = 'GL_DIM2'
        DataType = ftFloat
      end
      item
        Name = 'mainValuta'
        DataType = ftString
        Size = 3
      end
      item
        Name = 'PriznakZab'
        DataType = ftBoolean
      end>
    ReadOnly = True
    OEMTranslate = False
    Left = 178
    Top = 64
  end
  object DSApCardSpr: TBestDataset
    Tag = 8
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'PAY\FIN_DOC.DBF'
    OEMTranslate = False
    Left = 249
    Top = 270
  end
  object DSFinPlnSpr: TBestDataset
    Tag = 8
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'PAY\FIN_DOC.DBF'
    OEMTranslate = False
    Left = 342
    Top = 294
  end
  object MenuRaschet: xbPopupMenu
    Left = 472
    Top = 346
    object miDocOsn: TMenuItem
      Caption = #1044#1086#1082#1091#1084#1077#1085#1090'-'#1086#1089#1085#1086#1074#1072#1085#1080#1077
      OnClick = miDocOsn_Click
    end
    object miBalans: TMenuItem
      Caption = #1041#1072#1083#1072#1085#1089
      OnClick = miBalans_Click
    end
    object miOplDoc: TMenuItem
      Caption = #1056#1072#1079#1085#1086#1089#1082#1072' '#1086#1087#1083#1072#1090#1099' '#1087#1086' '#1076#1086#1082#1091#1084#1077#1085#1090#1072#1084' '#1086#1090#1075#1088#1091#1079#1082#1080'   Ctrl+F10'
    end
    object miOplZak: TMenuItem
      Caption = #1056#1072#1079#1085#1086#1089#1082#1072' '#1086#1087#1083#1072#1090#1099' '#1087#1086' '#1079#1072#1082#1072#1079#1072#1084' '#1086#1090#1075#1088#1091#1079#1082#1080'          Alt+F10'
    end
  end
  object MenuDopData: xbPopupMenu
    Left = 554
    Top = 346
    object MenuDopData1: TMenuItem
      Caption = #1053#1072#1083#1086#1075#1086#1074#1099#1077' '#1082#1086#1076#1099'    Ctrl+B'
      OnClick = MenuDopData1_Click
    end
    object miDopRecv: TMenuItem
      Caption = #1044#1086#1087' '#1088#1077#1082#1074#1080#1079#1080#1090#1099'      Alt+F5'
      OnClick = miDopRecv_Click
    end
    object miPodpis: TMenuItem
      Caption = #1055#1086#1076#1087#1080#1089#1080
      OnClick = miPodpis_Click
    end
    object miOplZA: TMenuItem
      Caption = #1054#1087#1083#1072#1090#1072' '#1079#1072
      OnClick = miOplZA_Click
    end
  end
  object DSApCardObl: TBestDataset
    Tag = 8
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'PAY\FIN_DOC.DBF'
    OEMTranslate = False
    Left = 164
    Top = 269
  end
  object RFApCardObl: xbReferCaller
    ColumnsTune = 
      'LNUM;-1;50;1;0;'#1053#1086#1084#1077#1088' '#1101#1090#1072#1087#1072'|NAME;-1;170;1;0;'#1057#1086#1076#1077#1088#1078#1072#1085#1080#1077'|DATE_END;-' +
      '1;70;1;0;'#1044#1072#1090#1072'|OST;-1;90;1;0;'#1057#1091#1084#1084#1072
    ListDataSet = DSApCardObl
    ReferCaption = #1069#1090#1072#1087#1099' '#1076#1086#1075#1086#1074#1086#1088#1072
    ReferWidth = 450
    OnSelect = RFApCardObl_Select
    OnCancel = RFApCardObl_Cancel
    Left = 162
    Top = 217
  end
  object StatusMenu: xbPopupMenu
    Left = 662
    Top = 220
    object MenuStatus1: TMenuItem
      Caption = #1063#1077#1088#1085#1086#1074#1080#1082
    end
    object MenuStatus2: TMenuItem
      Caption = #1055#1077#1088#1077#1076#1072#1085
    end
    object MenuStatus3: TMenuItem
      Caption = #1054#1087#1083#1072#1095#1077#1085
    end
  end
  object RFNaznPlat: xbReferCaller
    ColumnsTune = 'TEXT;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
    ReferCaption = #1054#1089#1085#1086#1074#1072#1085#1080#1103' '#1087#1083#1072#1090#1077#1078#1072
    ReferWidth = 450
    OnSelect = RFNaznPlat_Select
    Left = 400
    Top = 345
  end
  object DSFinPlnNoList: TBestDataset
    Tag = 8
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'PAY\FIN_DOC.DBF'
    OEMTranslate = False
    Left = 413
    Top = 295
  end
  object BOBudLev: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_BUD_LEV'
    Active = False
    Left = 579
    Top = 3
  end
  object DSBudLev: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOBudLev
    FieldDefs = <>
    OEMTranslate = False
    Left = 632
    Top = 3
  end
end
frmReasons.prg                                                        6336object frmReasons: TfrmReasons
  Left = 25
  Top = 25
  Width = 540
  Height = 183
  ActiveControl = memText
  Anchors = []
  Caption = #1054#1089#1085#1086#1074#1072#1085#1080#1077' '#1087#1083#1072#1090#1077#1078#1072
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  WindowState = wsNormal
  OnCloseQuery = Form_CloseQuery
  OnCreate = Form_Create
  DesignSize = (
    532
    149)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 8
    Top = 8
    Width = 518
    Height = 110
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    object TabSheet1: TTabSheet
      Caption = #1054#1073#1097#1077#1077
      OnStartDrag = TabSheet1_StartDrag
      object lbText: xbLabel
        Left = 8
        Top = 32
        Width = 173
        Height = 17
        Caption = #1053#1072#1079#1085#1072#1095#1077#1085#1080#1077' . . . . . . . . . . . . . . . . . . . .'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
      end
      object lcbFinCtg: xbLabelCombo
        Left = 8
        Top = 8
        Width = 270
        Height = 21
        ParentBackGround = True
        Caption = #1050#1072#1090#1077#1075#1086#1088#1080#1103' '#1076#1077#1085#1077#1078#1085#1099#1093' '#1089#1088#1077#1076#1089#1090#1074
        TabOrder = 0
        LabelWidth = 160
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Sorted = False
        EditColor = clWindow
        DisabledColor = clInactiveBorder
        DisabledFontColor = clBlack
        BorderColor = clWindowText
        AutoComplete = False
        Style = csDropDownList
        CharCase = ecNormal
        DropDownCount = 0
        ItemHeight = 0
        MaxLength = 0
        Items.Strings = (
          #1073#1077#1079#1085#1072#1083#1080#1095#1085#1099#1077
          #1085#1072#1083#1080#1095#1085#1099#1077)
        ItemIndex = -1
        UseStandartHint = True
        OnClick = lcbFinCtg_Click
      end
      object lcbDir: xbLabelCombo
        Left = 288
        Top = 8
        Width = 220
        Height = 21
        ParentBackGround = True
        Caption = #1053#1072#1087#1088#1072#1074#1083#1077#1085#1080#1077' '#1076#1074#1080#1078#1077#1085#1080#1103
        TabOrder = 1
        LabelWidth = 135
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Sorted = False
        EditColor = clWindow
        DisabledColor = clInactiveBorder
        DisabledFontColor = clBlack
        BorderColor = clWindowText
        AutoComplete = False
        Style = csDropDownList
        CharCase = ecNormal
        DropDownCount = 0
        ItemHeight = 0
        MaxLength = 0
        Items.Strings = (
          #1087#1088#1080#1093#1086#1076
          #1088#1072#1089#1093#1086#1076)
        ItemIndex = -1
        UseStandartHint = True
        OnChange = lcbDir_Change
        OnClick = lcbDir_Click
      end
      object memText: xbMemo
        Left = 168
        Top = 32
        Width = 315
        Height = 48
        ColorFlat = clBtnFace
        ParentColor = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        MaxLength = 200
        ParentFont = False
        TabOrder = 2
        OnExit = memText_Exit
        OnKeyDown = memText_KeyDown
        AutoDisplay = False
        BorderStyle = bsNone
        Color = clWhite
        DisabledColor = clInactiveBorder
        DisabledFontColor = 7368816
        DataField = 'TEXT'
        DataSource = ADS
        ButtonToClick = btnText
      end
      object btnText: xbButton
        Left = 487
        Top = 32
        Width = 21
        Height = 21
        Caption = '...'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        RoundedButton = True
        TabOrder = 3
        OnClick = btnText_Click
        ButtonColor = clBlack
      end
    end
  end
  object btnOK: xbButton
    Left = 368
    Top = 127
    Width = 75
    Height = 21
    Hint = #1057#1086#1093#1088#1072#1085#1077#1085#1080#1077' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (F10)'
    Caption = #1054#1050
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 1
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btnCANCEL: xbButton
    Left = 451
    Top = 127
    Width = 75
    Height = 21
    Hint = #1042#1099#1093#1086#1076' '#1080#1079' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (Esc)'
    Caption = #1054#1090#1084#1077#1085#1072
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 2
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <>
    OEMTranslate = False
    Left = 109
    Top = 3
  end
  object ADS: xbADSDataSource
    DataSet = DS
    Left = 145
    Top = 3
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_REASONS'
    Active = False
    Left = 72
    Top = 3
  end
end
frmPayDocTune.prg                                                    12957object frmPayDocTune: TfrmPayDocTune
  Left = 25
  Top = 25
  Width = 590
  Height = 370
  ActiveControl = leValCode
  Anchors = []
  Caption = #1056#1077#1082#1074#1080#1079#1080#1090' '#1076#1086#1082#1091#1084#1077#1085#1090#1072
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  WindowState = wsNormal
  OnCloseQuery = Form_CloseQuery
  OnCreate = Form_Create
  DesignSize = (
    582
    336)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 8
    Top = 8
    Width = 568
    Height = 297
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    object TabSheet1: TTabSheet
      Caption = #1054#1073#1097#1077#1077
      OnStartDrag = TabSheet1_StartDrag
      DesignSize = (
        566
        275)
      object lbDim: xbLabel
        Left = 337
        Top = 109
        Width = 220
        Height = 17
        Anchors = [akLeft, akTop, akRight]
        Caption = 'lbDim'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
        DataField = 'DIM_NAME'
        DataSource = ADS
      end
      object leValCode: xbLabelEdit
        Left = 8
        Top = 8
        Width = 320
        Height = 21
        BorderColor = clWindowText
        Caption = #1050#1086#1076' '#1079#1085#1072#1095#1077#1085#1080#1103
        CaptionAlignment = taLeftJustify
        DataField = 'CODE'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 0
        LabelWidth = 170
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnChange = leValCode_Change
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object leValName: xbLabelEdit
        Left = 8
        Top = 33
        Width = 550
        Height = 21
        Anchors = [akLeft, akTop, akRight]
        BorderColor = clWindowText
        Caption = #1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077' '#1079#1085#1072#1095#1077#1085#1080#1103
        CaptionAlignment = taLeftJustify
        DataField = 'NAME'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 1
        LabelWidth = 170
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        OnChange = leValName_Change
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object cbIsInput: xbCheckBox
        Left = 7
        Top = 229
        Width = 183
        Height = 21
        Caption = 
          #1054#1073#1103#1079#1072#1090#1077#1083#1100#1085#1086#1089#1090#1100' '#1079#1072#1087#1086#1083#1085#1077#1085#1080#1103' . . . . . . . . . . . . . . . . . . . ' +
          '. . . . . . .'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 9
        TabStop = True
        ValueChecked = '1'
        ValueUnchecked = '0'
        DataField = 'ISINPUT'
        DataSource = ADS
      end
      object lcbHeadTp: xbLabelCombo
        Left = 8
        Top = 58
        Width = 320
        Height = 21
        ParentBackGround = True
        Caption = #1042#1074#1086#1076#1080#1090#1100
        TabOrder = 2
        LabelWidth = 170
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Sorted = False
        EditColor = clWindow
        DisabledColor = clInactiveBorder
        DisabledFontColor = clBlack
        BorderColor = clWindowText
        AutoComplete = False
        Style = csDropDownList
        CharCase = ecNormal
        DropDownCount = 0
        ItemHeight = 0
        MaxLength = 0
        ItemIndex = -1
        UseStandartHint = True
        OnClick = lcbHeadTp_Click
      end
      object cbDimTp: xbCheckBox
        Left = 7
        Top = 82
        Width = 183
        Height = 21
        Caption = 
          #1048#1089#1087#1086#1083#1100#1079#1086#1074#1072#1090#1100' '#1089#1087#1088#1072#1074#1086#1095#1085#1080#1082' . . . . . . . . . . . . . . . . . . . . ' +
          '. . . . . .'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 3
        TabStop = True
        OnClick = cbDimTp_Click
        ValueChecked = '1'
        ValueUnchecked = '0'
      end
      object lerDim: xbLabelEditRefer
        Left = 8
        Top = 106
        Width = 320
        Height = 21
        BorderColor = clWindowText
        Caption = #1042#1080#1076' '#1080#1079#1084#1077#1088#1077#1085#1080#1103
        CaptionAlignment = taLeftJustify
        DataField = 'DIM_CODE'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 4
        LabelWidth = 170
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'DIM_ID'
        BeforeButtonClick = lerDim_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'CODE;-1;120;1;0;'#1050#1086#1076'|Name;-1;200;1;0;'#1053#1072#1079#1074#1072#1085#1080#1077
        FindFieldName = 'CODE'
        FindFieldType = tfCharacterString
        ListDataSet = DSDimAnl
        OutFieldsArray = 'DIM_ID'
        PutFieldsArray = 'DIM_ID'
        ReferCaption = #1057#1087#1080#1089#1086#1082
        ReferWidth = 450
        TypeFindFieldName = 'CODE'
        xReferId = 0
        IsHarbourRefer = True
      end
      object lcbDimRec: xbLabelCombo
        Left = 8
        Top = 130
        Width = 320
        Height = 21
        ParentBackGround = True
        Caption = #1058#1080#1087' '#1088#1077#1082#1074#1080#1079#1080#1090#1072' '#1080#1079#1084#1077#1088#1077#1085#1080#1103
        TabOrder = 5
        LabelWidth = 170
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Sorted = False
        EditColor = clWindow
        DisabledColor = clInactiveBorder
        DisabledFontColor = clBlack
        BorderColor = clWindowText
        AutoComplete = False
        Style = csDropDownList
        CharCase = ecNormal
        DropDownCount = 0
        ItemHeight = 0
        MaxLength = 0
        ItemIndex = -1
        UseStandartHint = True
        OnClick = lcbDimRec_Click
      end
      object lcbType: xbLabelCombo
        Left = 8
        Top = 155
        Width = 320
        Height = 21
        ParentBackGround = True
        Caption = #1058#1080#1087' '#1076#1072#1085#1085#1099#1093
        TabOrder = 6
        LabelWidth = 170
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Sorted = False
        EditColor = clWindow
        DisabledColor = clInactiveBorder
        DisabledFontColor = clBlack
        BorderColor = clWindowText
        AutoComplete = False
        Style = csDropDownList
        CharCase = ecNormal
        DropDownCount = 0
        ItemHeight = 0
        MaxLength = 0
        Items.Strings = (
          #1089#1080#1084#1074#1086#1083
          #1095#1080#1089#1083#1086
          #1076#1072#1090#1072)
        ItemIndex = -1
        UseStandartHint = True
        OnClick = lcbType_Click
      end
      object lecLen: xbLabelEditCalc
        Left = 8
        Top = 180
        Width = 250
        Height = 21
        BorderColor = clWindowText
        Caption = #1044#1083#1080#1085#1072
        CaptionAlignment = taLeftJustify
        DataField = 'LEN'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        TabOrder = 7
        LabelWidth = 170
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        OnExit = lecLen_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        VisibleButton = False
      end
      object lecDec: xbLabelEditCalc
        Left = 8
        Top = 206
        Width = 250
        Height = 21
        BorderColor = clWindowText
        Caption = #1050#1086#1083#1080#1095#1077#1089#1090#1074#1086' '#1076#1077#1089#1103#1090#1080#1095#1085#1099#1093' '#1079#1085#1072#1082#1086#1074
        CaptionAlignment = taLeftJustify
        DataField = 'DEC'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        DisabledFontColor = clBtnText
        TabOrder = 8
        LabelWidth = 170
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        OnExit = lecDec_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        VisibleButton = False
      end
      object cbIsSystem: xbCheckBox
        Left = 7
        Top = 249
        Width = 183
        Height = 21
        Caption = #1057#1080#1089#1090#1077#1084#1085#1099#1081' . . . . . . . . . . . . . . . . . . . . . . . . . .'
        Enabled = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 10
        TabStop = True
        ValueChecked = '1'
        ValueUnchecked = '0'
        DataField = 'ISSYSTEM'
        DataSource = ADS
      end
    end
  end
  object btnOK: xbButton
    Left = 418
    Top = 314
    Width = 75
    Height = 21
    Hint = #1057#1086#1093#1088#1072#1085#1077#1085#1080#1077' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (F10)'
    Caption = #1054#1050
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 1
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btnCANCEL: xbButton
    Left = 501
    Top = 314
    Width = 75
    Height = 21
    Hint = #1042#1099#1093#1086#1076' '#1080#1079' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (Esc)'
    Caption = #1054#1090#1084#1077#1085#1072
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 2
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <>
    OEMTranslate = False
    Left = 109
    Top = 3
  end
  object ADS: xbADSDataSource
    DataSet = DS
    Left = 145
    Top = 3
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_DOC_TUNE'
    Active = False
    Left = 72
    Top = 3
  end
  object BODimAnl: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsdim_anl'
    Active = False
    Left = 343
    Top = 75
  end
  object DSDimAnl: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BODimAnl
    FieldDefs = <>
    OEMTranslate = False
    AfterRefresh = DS_AfterRefresh
    Left = 401
    Top = 75
  end
end
frmPayDocRecRee.prg                                                   3138object frmPayDocRecRee: TfrmPayDocRecRee
  Left = 25
  Top = 25
  Width = 600
  Height = 350
  ActiveControl = GridBudExp
  Anchors = []
  Caption = #1044#1086#1087#1086#1083#1085#1080#1090#1077#1083#1100#1085#1099#1077' '#1088#1077#1082#1074#1080#1079#1080#1090#1099
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  WindowState = wsNormal
  OnCloseQuery = Form_CloseQuery
  OnResize = Form_Resize
  OnShow = Form_Show
  DesignSize = (
    592
    316)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 8
    Top = 8
    Width = 576
    Height = 302
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    object TabSheet1: TTabSheet
      Caption = #1056#1077#1077#1089#1090#1088
      DesignSize = (
        574
        280)
      object GridBudExp: xbGrid
        Left = 6
        Top = 6
        Width = 562
        Height = 269
        Anchors = [akLeft, akTop, akRight, akBottom]
        AutoFitColWidths = True
        DataSource = adsReestr
        Flat = True
        FooterColor = clWindow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -11
        FooterFont.Name = 'MS Sans Serif'
        FooterFont.Style = []
        Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgConfirmDelete]
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        UseMultiTitle = True
        OnDblClick = GridBudExp_DblClick
        OnKeyPress = GridBudExp_KeyPress
        IdGrid = '{1BF3AA18-A082-42D2-8D56-EF3932E95D00}'
        Columns = <
          item
            EditButtons = <>
            FieldName = 'CODE'
            Footers = <>
            Title.Caption = #1050#1086#1076
            Width = 100
          end
          item
            EditButtons = <>
            FieldName = 'NAME'
            Footers = <>
            Title.Caption = #1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
            Width = 220
          end
          item
            EditButtons = <>
            FieldName = 'VALUE'
            Footers = <>
            Title.Caption = #1047#1085#1072#1095#1077#1085#1080#1077
            Width = 225
          end>
      end
    end
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_DOC_REC'
    Active = False
    Left = 169
    Top = 127
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <>
    ReadOnly = True
    OEMTranslate = False
    Left = 221
    Top = 127
  end
  object adsReestr: xbADSDataSource
    DataSet = DS
    Left = 277
    Top = 127
  end
end
frmPayDocRec.prg                                                      9730object frmPayDocRec: TfrmPayDocRec
  Left = 25
  Top = 25
  Width = 480
  Height = 160
  ActiveControl = lerRecCode
  Anchors = []
  Caption = #1044#1086#1087#1086#1083#1085#1080#1090#1077#1083#1100#1085#1099#1081' '#1088#1077#1082#1074#1080#1079#1080#1090
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  WindowState = wsNormal
  OnActivate = Form_Activate
  OnClose = Form_Close
  OnCloseQuery = Form_CloseQuery
  OnCreate = Form_Create
  OnShow = Form_Show
  DesignSize = (
    472
    126)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 8
    Top = 8
    Width = 456
    Height = 82
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    object TabSheet1: TTabSheet
      Caption = #1054#1073#1097#1077#1077
      DesignSize = (
        454
        60)
      object lbFinTp: xbLabel
        Left = 257
        Top = 11
        Width = 190
        Height = 17
        Anchors = [akLeft, akTop, akRight]
        Caption = 'lbRecName'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
        DataField = 'NAME'
        DataSource = ADS
      end
      object lecValueN: xbLabelEditCalc
        Left = 150
        Top = 37
        Width = 180
        Height = 21
        BorderColor = clWindowText
        Caption = #1047#1085#1072#1095#1077#1085#1080#1077
        CaptionAlignment = taLeftJustify
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 2
        LabelWidth = 90
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Text = '0'
        OnChange = lecValueN_Change
        OnExit = lecValueN_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        VisibleButton = False
      end
      object leValue: xbLabelEdit
        Left = 8
        Top = 32
        Width = 440
        Height = 21
        Anchors = [akLeft, akTop, akRight]
        BorderColor = clWindowText
        Caption = #1047#1085#1072#1095#1077#1085#1080#1077
        CaptionAlignment = taLeftJustify
        DataField = 'VALUE'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 1
        LabelWidth = 90
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object lerRecCode: xbLabelEditRefer
        Left = 8
        Top = 8
        Width = 240
        Height = 21
        BorderColor = clWindowText
        Caption = #1056#1077#1082#1074#1080#1079#1080#1090
        CaptionAlignment = taLeftJustify
        DataField = 'CODE'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 0
        LabelWidth = 90
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Required = True
        OnEnter = lerRecCode_Enter
        OnExit = lerRecCode_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'CODE'
        BeforeButtonClick = lerRecCode_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'CODE;-1;100;1;0;'#1050#1086#1076'|NAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldName = 'CODE'
        FindFieldType = tfCharacterString
        ListDataSet = DSDocTune
        OutFieldsArray = 'CODE'
        PutFieldsArray = 'CODE'
        ReferCaption = #1056#1077#1082#1074#1080#1079#1080#1090#1099
        ReferWidth = 450
        TypeFindFieldName = 'CODE'
        xReferId = 0
        IsHarbourRefer = True
        IsMustEnter = True
        OnSelect = lerRecCode_Select
      end
      object leValueD: xbLabelEdit
        Left = 238
        Top = 24
        Width = 178
        Height = 21
        BorderColor = clWindowText
        Caption = #1047#1085#1072#1095#1077#1085#1080#1077
        CaptionAlignment = taLeftJustify
        DataField = 'VALUE'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        EditMask = '!99/99/9999;1; '
        TabOrder = 3
        LabelWidth = 90
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        MaxLength = 10
        Text = '  /  /    '
        PopupListClickKey = 0
        AddPrefixOnFilial = False
      end
      object larValueA: xbLabelEditAnalitRefer
        Left = 8
        Top = 26
        Width = 180
        Height = 21
        BorderColor = clWindowText
        Caption = #1047#1085#1072#1095#1077#1085#1080#1077
        CaptionAlignment = taLeftJustify
        DataField = 'VALUE'
        DataSource = ADS
        ButtonsColor = clBlack
        EnabledColor = clWhite
        TabOrder = 4
        LabelWidth = 90
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Visible = False
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2;Alt+Down'
        ClearFields = 'VALUE'
        EnabledEdit = False
        VisibleButton = True
        UseStandartHint = True
        FindFieldType = tfCharacterString
        ReferCaption = #1057#1087#1080#1089#1086#1082
        xReferId = 0
        IsHarbourRefer = True
        MakeChecking = True
      end
      object lerValueA: xbLabelEditRefer
        Left = 54
        Top = 38
        Width = 180
        Height = 21
        BorderColor = clWindowText
        Caption = #1047#1085#1072#1095#1077#1085#1080#1077
        CaptionAlignment = taLeftJustify
        DataField = 'VALUE'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 5
        LabelWidth = 90
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Required = True
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'VALUE'
        BeforeButtonClick = lerValueA_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 'CODE;-1;100;1;0;'#1050#1086#1076'|NAME;-1;300;1;0;'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        FindFieldType = tfCharacterString
        ReferCaption = #1056#1077#1082#1074#1080#1079#1080#1090#1099
        ReferWidth = 450
        xReferId = 0
        IsHarbourRefer = True
        IsMustEnter = True
      end
    end
  end
  object btnOK: xbButton
    Left = 305
    Top = 98
    Width = 75
    Height = 21
    Hint = #1057#1086#1093#1088#1072#1085#1077#1085#1080#1077' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (F10)'
    Caption = #1054#1050
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 1
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btnCANCEL: xbButton
    Left = 392
    Top = 98
    Width = 75
    Height = 21
    Hint = #1042#1099#1093#1086#1076' '#1080#1079' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (Esc)'
    Caption = #1054#1090#1084#1077#1085#1072
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 2
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_DOC_REC'
    Active = False
    Left = 67
    Top = 3
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <>
    OEMTranslate = False
    AfterEdit = DS_AfterEdit
    Left = 144
    Top = 1
  end
  object ADS: xbADSDataSource
    DataSet = DS
    Left = 107
    Top = 2
  end
  object DSDocTune: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'PAY\DOC_TUNE.DBF'
    OEMTranslate = False
    IndexName = 'TAG_HCODE'
    Left = 368
    Top = 4
  end
  object DSDIM: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    FieldDefs = <>
    TableName = 'dim_anl'
    OEMTranslate = False
    IndexName = 'CODE_GROUP'
    Left = 294
    Top = 3
  end
end
frmPayNDSOpCode.prg                                                   8826object frmPayNDSOpCode: TfrmPayNDSOpCode
  Left = 25
  Top = 25
  Width = 640
  Height = 183
  Anchors = []
  Caption = #1053#1044#1057' - '#1082#1086#1076#1099' '#1086#1087#1077#1088#1072#1094#1080#1081
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  WindowState = wsNormal
  OnActivate = Form_Activate
  OnClose = Form_Close
  OnCloseQuery = Form_CloseQuery
  OnCreate = Form_Create
  DesignSize = (
    632
    149)
  PixelsPerInch = 96
  TextHeight = 13
  object bPageControl1: xbPageControl
    Left = 8
    Top = 8
    Width = 616
    Height = 105
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    TabStop = False
    object TabSheet1: TTabSheet
      Caption = #1054#1073#1097#1077#1077
      object lbNNDSName: xbLabel
        Left = 208
        Top = 12
        Width = 400
        Height = 17
        Caption = 'lbNNDSName'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
      end
      object lbNDS0Name: xbLabel
        Left = 208
        Top = 36
        Width = 400
        Height = 17
        Caption = 'lbNDS0Name'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
      end
      object lbAgNDSName: xbLabel
        Left = 208
        Top = 60
        Width = 400
        Height = 17
        Caption = 'lbAgNDSName'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ShowAccelChar = False
      end
      object lerKopNNDS: xbLabelEditRefer
        Left = 8
        Top = 8
        Width = 190
        Height = 21
        BorderColor = clWindowText
        Caption = #1050'_'#1054#1055'_'#1053#1045#1054#1041#1051'_'#1053#1044#1057
        CaptionAlignment = taLeftJustify
        DataField = 'KOP_NNDS'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 0
        LabelWidth = 110
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Required = True
        OnExit = lerKopNNDS_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'KOP_NNDS'
        BeforeButtonClick = lerKopNNDS_BeforeButtonClick
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 
          'CODE;-1;50;1;-1;'#1058#1072#1073'.'#8470'|SHORTNAME;-1;120;1;-1;'#1060#1072#1084#1080#1083#1080#1103'|name1;-1;100' +
          ';1;-1;'#1048#1084#1103'|Name2;-1;150;1;-1;'#1054#1090#1095#1077#1089#1090#1074#1086
        FindFieldName = 'CODE'
        FindFieldType = tfCharacterString
        ReferCaption = #1057#1086#1090#1088#1091#1076#1085#1080#1082#1080
        ReferWidth = 450
        TypeFindFieldName = 'CODE'
        xReferId = 0
        IsHarbourRefer = True
        OnSelect = lerKopNNDS_Select
      end
      object lerKopNDS0: xbLabelEditRefer
        Left = 8
        Top = 32
        Width = 190
        Height = 21
        BorderColor = clWindowText
        Caption = #1050'_'#1054#1055'_'#1053#1044#1057'0'
        CaptionAlignment = taLeftJustify
        DataField = 'KOP_NDS0'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 1
        LabelWidth = 110
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Required = True
        OnEnter = lerKopNDS0_Enter
        OnExit = lerKopNDS0_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'KOP_NDS0'
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 
          'CODE;-1;50;1;-1;'#1058#1072#1073'.'#8470'|SHORTNAME;-1;120;1;-1;'#1060#1072#1084#1080#1083#1080#1103'|name1;-1;100' +
          ';1;-1;'#1048#1084#1103'|Name2;-1;150;1;-1;'#1054#1090#1095#1077#1089#1090#1074#1086
        FindFieldName = 'CODE'
        FindFieldType = tfCharacterString
        ReferCaption = #1057#1086#1090#1088#1091#1076#1085#1080#1082#1080
        ReferWidth = 450
        TypeFindFieldName = 'CODE'
        xReferId = 0
        IsHarbourRefer = True
        OnSelect = lerKopNDS0_Select
      end
      object lerKopAgNDS: xbLabelEditRefer
        Left = 8
        Top = 55
        Width = 190
        Height = 21
        BorderColor = clWindowText
        Caption = #1050'_'#1054#1055'_'#1053#1040#1051'_'#1040#1043
        CaptionAlignment = taLeftJustify
        DataField = 'KOP_AG_NDS'
        DataSource = ADS
        ButtonsColor = clBtnFace
        EnabledColor = clWhite
        TabOrder = 2
        LabelWidth = 110
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'MS Sans Serif'
        LabelFont.Style = []
        Required = True
        OnEnter = lerKopAgNDS_Enter
        OnExit = lerKopAgNDS_Exit
        PopupListClickKey = 0
        AddPrefixOnFilial = False
        ClickKeysAlternate = 'F2'
        ClearFields = 'KOP_AG_NDS'
        VisibleButton = True
        UseStandartHint = True
        ColumnsTune = 
          'CODE;-1;50;1;-1;'#1058#1072#1073'.'#8470'|SHORTNAME;-1;120;1;-1;'#1060#1072#1084#1080#1083#1080#1103'|name1;-1;100' +
          ';1;-1;'#1048#1084#1103'|Name2;-1;150;1;-1;'#1054#1090#1095#1077#1089#1090#1074#1086
        FindFieldName = 'CODE'
        FindFieldType = tfCharacterString
        ReferCaption = #1057#1086#1090#1088#1091#1076#1085#1080#1082#1080
        ReferWidth = 450
        TypeFindFieldName = 'CODE'
        xReferId = 0
        IsHarbourRefer = True
        OnSelect = lerKopAgNDS_Select
      end
    end
  end
  object btnOK: xbButton
    Left = 465
    Top = 121
    Width = 75
    Height = 21
    Hint = #1057#1086#1093#1088#1072#1085#1077#1085#1080#1077' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (F10)'
    Caption = #1054#1050
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 1
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object btnCANCEL: xbButton
    Left = 552
    Top = 121
    Width = 75
    Height = 21
    Hint = #1042#1099#1093#1086#1076' '#1080#1079' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (Esc)'
    Caption = #1054#1090#1084#1077#1085#1072
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    RoundedButton = True
    ShowHint = True
    TabOrder = 2
    Anchors = [akRight, akBottom]
    ButtonColor = clBlack
  end
  object BO: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsPAY_DOC_CMP'
    Active = False
    Left = 151
    Top = 1
  end
  object DS: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BO
    FieldDefs = <>
    OEMTranslate = False
    AfterEdit = DS_AfterEdit
    Left = 228
    Top = 65535
  end
  object ADS: xbADSDataSource
    DataSet = DS
    Left = 191
  end
  object BODimAnl: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsDIM_ANL'
    Active = False
    Left = 372
    Top = 12
  end
  object DSDimAnl: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BODimAnl
    FieldDefs = <>
    OEMTranslate = False
    Left = 432
    Top = 12
  end
  object BOAnalSeg: TBObject
    xbsClassPointer = 0
    xbsClassName = 'clsANALIT_SEG'
    Active = False
    Left = 374
    Top = 60
  end
  object DSAnalSeg: TBestDataset
    xbsClassPointer = 0
    xbsContainerPointer = 0
    BObject = BOAnalSeg
    FieldDefs = <>
    OEMTranslate = False
    Left = 434
    Top = 60
  end
end
