EXTAGREEMENTUnit.dfm.~15~

/HRManager/__history/EXTAGREEMENTUnit.dfm.~15~

https://github.com/oista/NPO · Unknown · 333 lines · 333 code · 0 blank · 0 comment · 0 complexity · c723fc8003e85e88f3c575e5eaeb2623 MD5 · raw file

inherited EXTAGREEMENT: TEXTAGREEMENT

  Caption = #1044#1086#1087'. '#1089#1086#1075#1083#1072#1096#1077#1085#1080#1077

  ClientHeight = 374

  ClientWidth = 808

  OnShow = FormShow

  ExplicitWidth = 814

  ExplicitHeight = 398

  PixelsPerInch = 96

  TextHeight = 13

  inherited Panel1: TPanel

    Left = 717

    Height = 374

    ExplicitLeft = 488

    ExplicitHeight = 374

    inherited Button1: TButton

      OnClick = Button1Click

    end

  end

  inherited PageControl1: TPageControl

    Width = 711

    Height = 368

    ExplicitWidth = 482

    ExplicitHeight = 368

    inherited TabSheet1: TTabSheet

      Caption = #1044#1086#1087'. '#1089#1086#1075#1083#1072#1096#1077#1085#1080#1077' '

      ExplicitLeft = 4

      ExplicitTop = 24

      ExplicitWidth = 474

      ExplicitHeight = 340

      object PKDBDictLabelEdit1: TPKDBDictLabelEdit

        Left = 15

        Top = 25

        Width = 338

        Height = 21

        Connection = DataModule1.ADConnection1

        Table = PKDBTable1

        TableField = 'EMPLOYEEID'

        LookUpRool = 

          ' lastname||'#39' '#39'||name||'#39' '#39'||fathership||'#39' '#1087#1072#1089#1087#1086#1088#1090' '#8470#39'||passportnum' +

          'b'

        WithoutTable = False

        EditLabel.Width = 56

        EditLabel.Height = 13

        EditLabel.Caption = #1057#1086#1090#1088#1091#1076#1085#1080#1082

        DesignSize = (

          338

          21)

      end

      object PKDBBLabelComboBox1: TPKDBBLabelComboBox

        Left = 15

        Top = 70

        Width = 338

        Height = 21

        Color = clWhite

        ItemHeight = 13

        TabOrder = 1

        Text = #1058#1080#1087' '#1089#1086#1075#1083#1072#1096#1077#1085#1080#1103

        OnChange = PKDBBLabelComboBox1Change

        DBTable = 'HR_FACETCONTENT'

        PrimaryKey = 'ID'

        content = ' rowcontent'

        constraint = ' facetid=4136891'

        Table = PKDBTable1

        TableField = 'AGREEMENTTYPE'

        EditLabel.Width = 81

        EditLabel.Height = 13

        EditLabel.Caption = #1058#1080#1087' '#1089#1086#1075#1083#1072#1096#1077#1085#1080#1103

      end

      object PKDBLabelEdit1: TPKDBLabelEdit

        Left = 15

        Top = 115

        Width = 161

        Height = 21

        TabOrder = 2

        Text = #1053#1086#1084#1077#1088' '#1089#1086#1075#1083#1072#1096#1077#1085#1080#1103

        Table = PKDBTable1

        TableField = 'AGREEMENTNUMB'

        EditLabel.Width = 94

        EditLabel.Height = 13

        EditLabel.Caption = #1053#1086#1084#1077#1088' '#1089#1086#1075#1083#1072#1096#1077#1085#1080#1103

      end

      object PKDBLabelEdit2: TPKDBLabelEdit

        Left = 15

        Top = 159

        Width = 161

        Height = 21

        TabOrder = 3

        Text = #1044#1072#1090#1072' '#1089#1086#1075#1083#1072#1096#1077#1085#1080#1103

        EditKind = ekDateEdit

        Table = PKDBTable1

        TableField = 'AGREEMENTDATE'

        EditLabel.Width = 89

        EditLabel.Height = 13

        EditLabel.Caption = #1044#1072#1090#1072' '#1089#1086#1075#1083#1072#1096#1077#1085#1080#1103

      end

      object PKDBLabelEdit3: TPKDBLabelEdit

        Left = 193

        Top = 115

        Width = 160

        Height = 21

        Color = clWhite

        TabOrder = 4

        Text = #1044#1072#1090#1072' '#1085#1072#1095'. '#1076#1077#1081#1089#1090#1074'. '#1089#1086#1075#1083#1072#1096'.'

        EditKind = ekDateEdit

        Table = PKDBTable1

        TableField = 'INDATE'

        EditLabel.Width = 137

        EditLabel.Height = 13

        EditLabel.Caption = #1044#1072#1090#1072' '#1085#1072#1095'. '#1076#1077#1081#1089#1090#1074'. '#1089#1086#1075#1083#1072#1096'.'

      end

      object PKDBLabelEdit4: TPKDBLabelEdit

        Left = 193

        Top = 159

        Width = 160

        Height = 21

        TabOrder = 5

        Text = #1044#1072#1090#1072' '#1086#1082#1086#1085'. '#1076#1077#1081#1089#1090#1074'. '#1089#1086#1075#1083#1072#1096'.'

        EditKind = ekDateEdit

        Table = PKDBTable1

        TableField = 'OUTDATE'

        EditLabel.Width = 143

        EditLabel.Height = 13

        EditLabel.Caption = #1044#1072#1090#1072' '#1086#1082#1086#1085'. '#1076#1077#1081#1089#1090#1074'. '#1089#1086#1075#1083#1072#1096'.'

      end

      object CheckBox1: TCheckBox

        Left = 15

        Top = 301

        Width = 177

        Height = 17

        Caption = #1042#1099#1074#1077#1089#1090#1080' '#1092#1086#1088#1084#1091' '#1089#1086#1075#1083#1072#1096#1077#1085#1080#1103

        Checked = True

        State = cbChecked

        TabOrder = 6

      end

      object PKDBDictLabelEdit2: TPKDBDictLabelEdit

        Left = 15

        Top = 205

        Width = 658

        Height = 21

        Connection = DataModule1.ADConnection1

        Table = PKDBTable1

        TableField = 'OLDSTRUCTUREID'

        LookUpRool = 

          ' '#39#1055#1054#1044#1056'.'#8470#39'||DCODE||'#39' '#39'|| jobtitle||'#39' '#39'||qualification||'#39' '#1047#1055':'#39'||sa' +

          'lary'

        WithoutTable = False

        EditLabel.Width = 96

        EditLabel.Height = 13

        EditLabel.Caption = #1057#1090#1072#1088#1072#1103' '#1076#1086#1083#1078#1085#1086#1089#1090#1100

        DesignSize = (

          658

          21)

      end

      object PKDBDictLabelEdit3: TPKDBDictLabelEdit

        Left = 15

        Top = 250

        Width = 658

        Height = 21

        Connection = DataModule1.ADConnection1

        Table = PKDBTable1

        TableField = 'NEWSTRUCTUREID'

        LookUpRool = 

          ' '#39#1055#1054#1044#1056'.'#8470#39'||DCODE||'#39' '#39'|| jobtitle||'#39' '#39'||qualification||'#39' '#1047#1055':'#39'||sa' +

          'lary'

        WithoutTable = False

        EditLabel.Width = 90

        EditLabel.Height = 13

        EditLabel.Caption = #1053#1086#1074#1072#1103' '#1076#1086#1083#1078#1085#1086#1089#1090#1100

        DesignSize = (

          658

          21)

      end

    end

  end

  inherited PKDBTable1: TPKDBTable

    Fields = <

      item

        FieldName = 'EMPLOYEEID'

        FieldLabel = #1057#1086#1090#1088#1091#1076#1085#1080#1082

        Nullable = False

        FieldType = ftsNumber

        ReferencingTable = 'HR_V_EMPLOYEE'

        ReferencingColumn = 'ID'

        LookUpRool = 

          ' lastname||'#39' '#39'||name||'#39' '#39'||fathership||'#39' '#1087#1072#1089#1087#1086#1088#1090' '#8470#39'||passportnum' +

          'b'

        IsParentKey = True

        DisplayName = 'EMPLOYEEID'

      end

      item

        FieldName = 'OLDSTRUCTUREID'

        FieldLabel = #1057#1090#1072#1088#1072#1103' '#1076#1086#1083#1078#1085#1086#1089#1090#1100

        Nullable = True

        FieldType = ftsNumber

        ReferencingTable = 'cs_v_schedule_structure'

        ReferencingColumn = 'ID'

        LookUpRool = ' '#39#1055#1054#1044#1056'.'#8470#39'||DCODE||'#39' '#39'|| jobtitle||'#39' '#39'||qualification'

        DisplayName = 'OLDSTRUCTUREID'

      end

      item

        FieldName = 'AGREEMENTNUMB'

        FieldLabel = #1053#1086#1084#1077#1088' '#1089#1086#1075#1083#1072#1096#1077#1085#1080#1103

        Nullable = True

        FieldType = ftsString

        DisplayName = 'AGREEMENTNUMB'

      end

      item

        FieldName = 'OUTDATE'

        FieldLabel = #1044#1072#1090#1072' '#1086#1082#1086#1085'. '#1076#1077#1081#1089#1090#1074'. '#1089#1086#1075#1083#1072#1096'.'

        Nullable = True

        FieldType = ftsDate

        DisplayName = 'OUTDATE'

      end

      item

        FieldName = 'AGREEMENTTYPE'

        FieldLabel = #1058#1080#1087' '#1089#1086#1075#1083#1072#1096#1077#1085#1080#1103

        Nullable = False

        FieldType = ftsNumber

        ReferencingTable = 'HR_FACETCONTENT'

        ReferencingColumn = 'ID'

        LookUpRool = ' rowcontent'

        DisplayName = 'AGREEMENTTYPE'

      end

      item

        FieldName = 'HOLIDAY_EXT'

        FieldLabel = #1063#1080#1089#1083#1086' '#1076#1085#1077#1081' '#1076#1086#1087'. '#1086#1090#1087#1091#1089#1082#1072

        Nullable = True

        FieldType = ftsNumber

        DisplayName = 'HOLIDAY_EXT'

      end

      item

        FieldName = 'HOLIDAY_GEN'

        FieldLabel = #1063#1080#1089#1083#1086' '#1076#1085#1077#1081' '#1086#1090#1087#1091#1089#1082#1072

        Nullable = True

        FieldType = ftsNumber

        DisplayName = 'HOLIDAY_GEN'

      end

      item

        FieldName = 'STATUSID'

        FieldLabel = #1057#1090#1072#1090#1091#1089

        Nullable = True

        FieldType = ftsNumber

        DisplayName = 'STATUSID'

      end

      item

        FieldName = 'CHANGESTATUSDATE'

        FieldLabel = #1044#1072#1090#1072' '#1080#1079#1084#1077#1085#1077#1085#1080#1103' '#1089#1090#1072#1090#1091#1089#1072

        Nullable = True

        FieldType = ftsDate

        DisplayName = 'CHANGESTATUSDATE'

      end

      item

        FieldName = 'AGREEMENTDATE'

        FieldLabel = #1044#1072#1090#1072' '#1089#1086#1075#1083#1072#1096#1077#1085#1080#1103

        Nullable = True

        FieldType = ftsDate

        DisplayName = 'AGREEMENTDATE'

      end

      item

        FieldName = 'ID'

        Nullable = False

        FieldType = ftsNumber

        IsPrimaryKey = True

        DisplayName = 'ID'

      end

      item

        FieldName = 'INDATE'

        FieldLabel = #1044#1072#1090#1072' '#1085#1072#1095'. '#1076#1077#1081#1089#1090#1074'. '#1089#1086#1075#1083#1072#1096'.'

        Nullable = False

        FieldType = ftsDate

        DisplayName = 'INDATE'

      end

      item

        FieldName = 'NEWSTRUCTUREID'

        FieldLabel = #1053#1086#1074#1072#1103' '#1076#1086#1083#1078#1085#1086#1089#1090#1100

        Nullable = True

        FieldType = ftsNumber

        ReferencingTable = 'cs_v_schedule_structure'

        ReferencingColumn = 'ID'

        LookUpRool = #39#1055#1054#1044#1056'.'#8470#39'||DCODE||'#39' '#39'|| jobtitle||'#39' '#39'||qualification'

        DisplayName = 'NEWSTRUCTUREID'

      end>

    TableName = 'HR_EXTAGREEMENT'

    NeedGenPrimaryKey = True

    Connection = DataModule1.ADConnection1

    PrimaryKeySeq = 'AE_IDSEQ'

    Left = 728

    Top = 88

  end

  object ADQuery1: TADQuery

    Connection = DataModule1.ADConnection1

    SQL.Strings = (

      'SELECT '

      '     ee.structureid from HR_EMPLOYEE ee '

      'WHERE '

      '    (ee.id = :ID) '

      '')

    Left = 760

    Top = 88

    ParamData = <

      item

        Name = 'ID'

        DataType = ftInteger

        ParamType = ptInput

        Value = Null

      end>

    object ADQuery1STRUCTUREID: TFMTBCDField

      FieldName = 'STRUCTUREID'

      Precision = 38

      Size = 38

    end

  end

  object ADQuery2: TADQuery

    Connection = DataModule1.ADConnection1

    SQL.Strings = (

      'SELECT t.id  FROM CS_V_SCHEDULE_STRUCTURE t '

      'WHERE t.indocumentid=:ID')

    Left = 760

    Top = 120

    ParamData = <

      item

        Name = 'ID'

        DataType = ftInteger

        ParamType = ptInput

        Value = Null

      end>

    object ADQuery2ID: TFMTBCDField

      FieldName = 'ID'

      Precision = 38

      Size = 38

    end

  end

end