object sqNach_Budg: TSmartQuery
    CheckMode = cmNone
    Session = foMain.OraSession1
    SQL.Strings = (
      'select '
      '  nach_budg.rowid,'
      '  nach_budg.nach nach_id,'
      '  nach_budg.*'
      ''
      ' from nach_budg'
      ' where (nach_budg.deleted=0)'
      'and(nach_budg.nach=:id)')
    FetchAll = True
    LockMode = lmLockImmediate
    Active = True
    AfterRefresh = sqNach_BudgAfterRefresh
    Left =  265 
    Top =  156 
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'id'
        Value = Null
      end>
    object sqNach_BudgID: TFloatField
      DisplayWidth =  10 
      FieldName = 'ID'
    end
    object sqNach_BudgSUM: TFloatField
      DisplayWidth =  10 
      FieldName = 'SUM'
    end
    object sqNach_BudgBUDGET: TFloatField
      DisplayWidth =  10 
      FieldName = 'BUDGET'
    end

// -------------------
 
    object sqNach_Budgb: TStringField
      FieldKind = fkLookup
      FieldName = 'b'
      LookupDataSet = sqBudg_type
      LookupKeyFields = 'ID'
      LookupResultField = 'NAME'
      KeyFields = 'BUDGET'
      Lookup = True
    end

// ---------------------
 

    object sqNach_Budgstruct_name: TStringField
      FieldKind = fkLookup
      FieldName = 'struct_name'
      LookupDataSet = sqStruct
      LookupKeyFields = 'ID'
      LookupResultField = 'NAME'
      KeyFields = 'STRUCT'
      Size =  80 
      Lookup = True
    end
// ---------------------
 

    object sqNach_BudgROWID: TStringField
      FieldName = 'ROWID'
      ReadOnly = True
      Visible = False
      Size =  18 
    end
    object sqNach_BudgSTRUCT: TFloatField
      FieldName = 'STRUCT'
    end
    object sqNach_BudgNACH_ID: TFloatField
      FieldName = 'NACH_ID'
      ReadOnly = True
    end
    object sqNach_BudgDATA: TDateTimeField
      FieldName = 'DATA'
    end
    object sqNach_BudgDELETED: TIntegerField
      FieldName = 'DELETED'
    end
    object sqNach_BudgNACH: TFloatField
      FieldName = 'NACH'
    end
  end