ServerMethods_PTest.dfm

object ServerMethods1: TServerMethods1
  OnCreate = DSServerModuleCreate
  Height = 690
  Width = 1066
  object DataSetProvider1: TDataSetProvider
    DataSet = FDQuery1
    Options = [poAllowCommandText, poUseQuoteChar]
    UpdateMode = upWhereKeyOnly
    Left = 32
    Top = 128
  end
  object FDQuery1: TFDQuery
    Connection = DM_Connection.FDConn_Sql
    FetchOptions.AssignedValues = [evAutoFetchAll]
    FetchOptions.AutoFetchAll = afDisable
    ResourceOptions.AssignedValues = [rvCmdExecMode]
    ResourceOptions.CmdExecMode = amCancelDialog
    OnError = FDQuery1Error
    OnExecuteError = FDQuery1ExecuteError
    SQL.Strings = (
      
        'SELECT A.*, B.TIPO_PRATICA, B.DESCRIZIONE , (SELECT CAST(COUNT(*' +
        ') AS CHAR(10)) FROM NC_PROROGHE D WHERE D.FK_NC = A.PK_PROGRESSI' +
        'VO) AS TOTALE_PROROGHE '
      'FROM NC_MASTER A, SYS_TIPO_PRATICA B'
      'WHERE A.K_TIPO_PRATICA = B.PK_PROGRESSIVO '
      '')
    Left = 32
    Top = 64
  end
  object FDGUIxErrorDialog1: TFDGUIxErrorDialog
    Provider = 'Console'
    OnShow = FDGUIxErrorDialog1Show
    OnHide = FDGUIxErrorDialog1Hide
    Left = 376
    Top = 208
  end
  object FDGUIxWaitCursor1: TFDGUIxWaitCursor
    Provider = 'Console'
    ScreenCursor = gcrHourGlass
    Left = 512
    Top = 176
  end
  object FDGUIxAsyncExecuteDialog1: TFDGUIxAsyncExecuteDialog
    Provider = 'Console'
    Left = 480
    Top = 248
  end
  object FDGUIxScriptDialog1: TFDGUIxScriptDialog
    Provider = 'Console'
    Left = 304
    Top = 112
  end
  object FDGUIxLoginDialog1: TFDGUIxLoginDialog
    Provider = 'Console'
    Left = 456
    Top = 88
  end
  object FDQuery2: TFDQuery
    Connection = DM_Connection.FDConn_Sql
    SQL.Strings = (
      'select * from TS1_RICLASSIFICA_PROGETTO')
    Left = 96
    Top = 248
    object FDQuery2PK_PROGRESSIVO: TIntegerField
      FieldName = 'PK_PROGRESSIVO'
      Origin = 'PK_PROGRESSIVO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object FDQuery2FK_MACROGRUPPO: TIntegerField
      FieldName = 'FK_MACROGRUPPO'
      Origin = 'FK_MACROGRUPPO'
      Required = True
    end
    object FDQuery2FLAG_ATTIVO: TStringField
      FieldName = 'FLAG_ATTIVO'
      Origin = 'FLAG_ATTIVO'
      Required = True
      FixedChar = True
      Size = 1
    end
    object FDQuery2NOTE: TStringField
      FieldName = 'NOTE'
      Origin = 'NOTE'
      Size = 300
    end
    object FDQuery2DEFINIZIONE_RICLASSIFICATO: TStringField
      FieldName = 'DEFINIZIONE_RICLASSIFICATO'
      Origin = 'DEFINIZIONE_RICLASSIFICATO'
      Required = True
      Size = 250
    end
    object FDQuery2NSAL_UFFICIALI: TSmallintField
      FieldName = 'NSAL_UFFICIALI'
      Origin = 'NSAL_UFFICIALI'
      Required = True
    end
    object FDQuery2NSAL_INTERNI: TSmallintField
      FieldName = 'NSAL_INTERNI'
      Origin = 'NSAL_INTERNI'
      Required = True
    end
  end
  object FDQuery3: TFDQuery
    Connection = DM_Connection.FDConn_Sql
    SQL.Strings = (
      'select * from TS1_RICLASSIFICA_PROGETTO_DETAIL')
    Left = 88
    Top = 368
    object FDQuery3PK_PROGRESSIVO: TIntegerField
      FieldName = 'PK_PROGRESSIVO'
      Origin = 'PK_PROGRESSIVO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object FDQuery3FK_PARAM_PROGETTO: TIntegerField
      FieldName = 'FK_PARAM_PROGETTO'
      Origin = 'FK_PARAM_PROGETTO'
      Required = True
    end
    object FDQuery3FK_TIPO_COSTO: TIntegerField
      FieldName = 'FK_TIPO_COSTO'
      Origin = 'FK_TIPO_COSTO'
      Required = True
    end
    object FDQuery3FLAG_ATTIVO: TStringField
      FieldName = 'FLAG_ATTIVO'
      Origin = 'FLAG_ATTIVO'
      Required = True
      FixedChar = True
      Size = 1
    end
    object FDQuery3DATA_IN: TDateField
      FieldName = 'DATA_IN'
      Origin = 'DATA_IN'
      Required = True
    end
    object FDQuery3DATA_FI: TDateField
      FieldName = 'DATA_FI'
      Origin = 'DATA_FI'
      Required = True
    end
    object FDQuery3BUDGET: TFloatField
      FieldName = 'BUDGET'
      Origin = 'BUDGET'
      Required = True
    end
    object FDQuery3BUDGET_UTILIZZATO: TFloatField
      FieldName = 'BUDGET_UTILIZZATO'
      Origin = 'BUDGET_UTILIZZATO'
      Required = True
    end
    object FDQuery3QUOTA_DETRAIBILE: TSingleField
      FieldName = 'QUOTA_DETRAIBILE'
      Origin = 'QUOTA_DETRAIBILE'
      Required = True
    end
    object FDQuery3BUDGET_TMP_CALCOLI: TFloatField
      FieldName = 'BUDGET_TMP_CALCOLI'
      Origin = 'BUDGET_TMP_CALCOLI'
      Required = True
    end
    object FDQuery3GG_TMP: TIntegerField
      FieldName = 'GG_TMP'
      Origin = 'GG_TMP'
    end
    object FDQuery3BUDGET_GG_TMP: TFloatField
      FieldName = 'BUDGET_GG_TMP'
      Origin = 'BUDGET_GG_TMP'
    end
    object FDQuery3DATA_IN_TMP: TDateField
      FieldName = 'DATA_IN_TMP'
      Origin = 'DATA_IN_TMP'
      Required = True
    end
    object FDQuery3FK_ANAG: TIntegerField
      FieldName = 'FK_ANAG'
      Origin = 'FK_ANAG'
      Required = True
    end
  end
  object FDQuery4: TFDQuery
    Connection = DM_Connection.FDConn_Sql
    SQL.Strings = (
      'select * from TS1_RICLASSIFICA_PROGETTO_DETT_ALLERT')
    Left = 232
    Top = 272
    object FDQuery4PK_PROGRESSIVO: TIntegerField
      FieldName = 'PK_PROGRESSIVO'
      Origin = 'PK_PROGRESSIVO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object FDQuery4FK_PARAM_PROGETTO_DETAIL: TIntegerField
      FieldName = 'FK_PARAM_PROGETTO_DETAIL'
      Origin = 'FK_PARAM_PROGETTO_DETAIL'
      Required = True
    end
    object FDQuery4FLAG_ATTIVO: TStringField
      FieldName = 'FLAG_ATTIVO'
      Origin = 'FLAG_ATTIVO'
      Required = True
      FixedChar = True
      Size = 1
    end
    object FDQuery4DATA_IN: TDateField
      FieldName = 'DATA_IN'
      Origin = 'DATA_IN'
      Required = True
    end
    object FDQuery4DATA_FI: TDateField
      FieldName = 'DATA_FI'
      Origin = 'DATA_FI'
      Required = True
    end
    object FDQuery4BUDGET: TFloatField
      FieldName = 'BUDGET'
      Origin = 'BUDGET'
      Required = True
    end
    object FDQuery4BUDGET_UTILIZZATO: TFloatField
      FieldName = 'BUDGET_UTILIZZATO'
      Origin = 'BUDGET_UTILIZZATO'
      Required = True
    end
    object FDQuery4FK_ANAG: TIntegerField
      FieldName = 'FK_ANAG'
      Origin = 'FK_ANAG'
      Required = True
    end
    object FDQuery4FLAG_EMAIL: TStringField
      FieldName = 'FLAG_EMAIL'
      Origin = 'FLAG_EMAIL'
      Required = True
      FixedChar = True
      Size = 1
    end
    object FDQuery4GG_ALLERT: TSmallintField
      FieldName = 'GG_ALLERT'
      Origin = 'GG_ALLERT'
      Required = True
    end
  end
  object DataSetProvider2: TDataSetProvider
    DataSet = FDQuery2
    Options = [poAllowCommandText, poUseQuoteChar]
    UpdateMode = upWhereKeyOnly
    Left = 96
    Top = 304
  end
  object DataSetProvider3: TDataSetProvider
    DataSet = FDQuery3
    Options = [poAllowCommandText, poUseQuoteChar]
    UpdateMode = upWhereKeyOnly
    Left = 88
    Top = 424
  end
  object DataSetProvider4: TDataSetProvider
    DataSet = FDQuery4
    Options = [poAllowCommandText, poUseQuoteChar]
    UpdateMode = upWhereKeyOnly
    Left = 232
    Top = 352
  end
  object FDQuery5: TFDQuery
    Connection = DM_Connection.FDConn_Sql
    SQL.Strings = (
      'select * from combobox_test')
    Left = 472
    Top = 344
    object FDQuery5PK_1: TIntegerField
      FieldName = 'PK_1'
      Origin = 'PK_1'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object FDQuery5PK_2: TIntegerField
      FieldName = 'PK_2'
      Origin = 'PK_2'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object FDQuery5PK_3: TIntegerField
      FieldName = 'PK_3'
      Origin = 'PK_3'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
  end
  object DataSetProvider5: TDataSetProvider
    DataSet = FDQuery5
    Options = [poAllowCommandText, poUseQuoteChar]
    UpdateMode = upWhereKeyOnly
    Left = 480
    Top = 424
  end
  object FDQ_Master: TFDQuery
    Connection = DM_Connection.FDConn_Sql
    SQL.Strings = (
      'select * from tmaster')
    Left = 768
    Top = 40
    object FDQ_MasterPK_PRIMARY_KEY: TIntegerField
      FieldName = 'PK_PRIMARY_KEY'
      Origin = 'PK_PRIMARY_KEY'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object FDQ_MasterDESCRIPTION: TStringField
      FieldName = 'DESCRIPTION'
      Origin = 'DESCRIPTION'
      Required = True
      Size = 250
    end
  end
  object DSP_Master: TDataSetProvider
    DataSet = FDQ_Master
    Options = [poAllowCommandText, poUseQuoteChar]
    Left = 768
    Top = 112
  end
  object FDQ_Detail1: TFDQuery
    Connection = DM_Connection.FDConn_Sql
    SQL.Strings = (
      'select * from tdetail_level1')
    Left = 744
    Top = 216
    object FDQ_Detail1PK_PRIMARY_KEY: TIntegerField
      FieldName = 'PK_PRIMARY_KEY'
      Origin = 'PK_PRIMARY_KEY'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object FDQ_Detail1FK_PRIMARY_KEY: TIntegerField
      FieldName = 'FK_PRIMARY_KEY'
      Origin = 'FK_PRIMARY_KEY'
      Required = True
    end
    object FDQ_Detail1DESCRIPTION_DETAIL1: TStringField
      FieldName = 'DESCRIPTION_DETAIL1'
      Origin = 'DESCRIPTION_DETAIL1'
      Required = True
      Size = 250
    end
  end
  object DSP_Detail1: TDataSetProvider
    DataSet = FDQ_Detail1
    Options = [poAllowCommandText, poUseQuoteChar]
    Left = 744
    Top = 288
  end
  object FDQ_Detail2: TFDQuery
    Connection = DM_Connection.FDConn_Sql
    SQL.Strings = (
      'select * from tdetail_level2')
    Left = 760
    Top = 384
    object FDQ_Detail2PK_PRIMARY_KEY: TIntegerField
      FieldName = 'PK_PRIMARY_KEY'
      Origin = 'PK_PRIMARY_KEY'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object FDQ_Detail2FK_PRIMARY_KEY_DETAIL1: TIntegerField
      FieldName = 'FK_PRIMARY_KEY_DETAIL1'
      Origin = 'FK_PRIMARY_KEY_DETAIL1'
      Required = True
    end
    object FDQ_Detail2DESCRIPTION_DETAIL2: TStringField
      FieldName = 'DESCRIPTION_DETAIL2'
      Origin = 'DESCRIPTION_DETAIL2'
      Required = True
      Size = 250
    end
  end
  object DSP_Detail2: TDataSetProvider
    DataSet = FDQ_Detail2
    Options = [poAllowCommandText, poUseQuoteChar]
    Left = 760
    Top = 456
  end
  object FDQ_Master1: TFDQuery
    Connection = DM_Connection.FDConn_Sql
    SQL.Strings = (
      'select * from tmaster')
    Left = 920
    Top = 48
    object IntegerField1: TIntegerField
      FieldName = 'PK_PRIMARY_KEY'
      Origin = 'PK_PRIMARY_KEY'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object StringField1: TStringField
      FieldName = 'DESCRIPTION'
      Origin = 'DESCRIPTION'
      Required = True
      Size = 250
    end
  end
  object DSP_Master1: TDataSetProvider
    DataSet = FDQ_Master1
    Left = 920
    Top = 104
  end
  object FDQ_Detail1_1: TFDQuery
    IndexFieldNames = 'FK_PRIMARY_KEY'
    MasterSource = DataSource1
    MasterFields = 'PK_PRIMARY_KEY'
    DetailFields = 'FK_PRIMARY_KEY'
    Connection = DM_Connection.FDConn_Sql
    FetchOptions.AssignedValues = [evItems, evCache]
    SQL.Strings = (
      
        'select * from tdetail_level1 where FK_PRIMARY_KEY = :PK_PRIMARY_' +
        'KEY')
    Left = 912
    Top = 192
    ParamData = <
      item
        Name = 'PK_PRIMARY_KEY'
        DataType = ftInteger
        ParamType = ptInput
        Value = 3
      end>
    object IntegerField2: TIntegerField
      FieldName = 'PK_PRIMARY_KEY'
      Origin = 'PK_PRIMARY_KEY'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object IntegerField3: TIntegerField
      FieldName = 'FK_PRIMARY_KEY'
      Origin = 'FK_PRIMARY_KEY'
      Required = True
    end
    object StringField2: TStringField
      FieldName = 'DESCRIPTION_DETAIL1'
      Origin = 'DESCRIPTION_DETAIL1'
      Required = True
      Size = 250
    end
  end
  object FDQ_Detail1_2: TFDQuery
    IndexFieldNames = 'PK_PRIMARY_KEY'
    MasterSource = DataSource2
    MasterFields = 'PK_PRIMARY_KEY'
    DetailFields = 'PK_PRIMARY_KEY'
    Connection = DM_Connection.FDConn_Sql
    FetchOptions.AssignedValues = [evItems, evCache]
    SQL.Strings = (
      
        'select * from tdetail_level2 where FK_PRIMARY_KEY_DETAIL1 = :PK_' +
        'PRIMARY_KEY')
    Left = 912
    Top = 272
    ParamData = <
      item
        Name = 'PK_PRIMARY_KEY'
        DataType = ftInteger
        ParamType = ptInput
        Value = 3
      end>
    object IntegerField4: TIntegerField
      FieldName = 'PK_PRIMARY_KEY'
      Origin = 'PK_PRIMARY_KEY'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object IntegerField5: TIntegerField
      FieldName = 'FK_PRIMARY_KEY_DETAIL1'
      Origin = 'FK_PRIMARY_KEY_DETAIL1'
      Required = True
    end
    object StringField3: TStringField
      FieldName = 'DESCRIPTION_DETAIL2'
      Origin = 'DESCRIPTION_DETAIL2'
      Required = True
      Size = 250
    end
  end
  object DataSource1: TDataSource
    DataSet = FDQ_Master1
    Left = 992
    Top = 64
  end
  object DataSource2: TDataSource
    DataSet = FDQ_Detail1_1
    Left = 1000
    Top = 192
  end
end