Chip 2003 December/CMCD1203.ISO/Software/Demo/salarii/Upgrade/salarii.exe/0/RCDATA/TDE/TDE.txt

Text File | 2003-10-10 | 32.1 KB | 1,601 lines

object DE: TDE
  OldCreateOrder = False
  Left = 285
  Top = 161
  Height = 479
  Width = 741
  object tImpo: TTable
    DatabaseName = '_DBFirma'
    FieldDefs = <
      item
        Name = 'Nr'
        Attributes = [faReadonly]
        DataType = ftAutoInc
      end
      item
        Name = 'Luna'
        DataType = ftDate
      end
      item
        Name = 'P_Venit'
        DataType = ftFloat
      end
      item
        Name = 'V_Const'
        DataType = ftFloat
      end
      item
        Name = 'V_Proc'
        DataType = ftFloat
      end>
    IndexDefs = <
      item
        Name = 'tImpoIndex4'
        Fields = 'Nr'
        Options = [ixPrimary]
      end
      item
        Name = 'iLV'
        Fields = 'Luna;P_Venit'
      end>
    IndexFieldNames = 'Luna;P_Venit'
    StoreDefs = True
    TableName = 'Impo.db'
    Left = 76
    Top = 80
    object tImpoNr: TAutoIncField
      FieldName = 'Nr'
      ReadOnly = True
    end
    object tImpoLuna: TDateField
      FieldName = 'Luna'
    end
    object tImpoP_Venit: TFloatField
      FieldName = 'P_Venit'
    end
    object tImpoV_Const: TFloatField
      FieldName = 'V_Const'
    end
    object tImpoV_Proc: TFloatField
      FieldName = 'V_Proc'
    end
  end
  object tFirme: TTable
    DatabaseName = '_DBFirma'
    FieldDefs = <
      item
        Name = 'CodF'
        Attributes = [faReadonly]
        DataType = ftAutoInc
      end
      item
        Name = 'Cod'
        DataType = ftString
        Size = 8
      end
      item
        Name = 'TipAngaj'
        DataType = ftInteger
      end
      item
        Name = 'Denumire'
        DataType = ftString
        Size = 40
      end
      item
        Name = 'Nume'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'Prenume'
        DataType = ftString
        Size = 30
      end
      item
        Name = 'Judet'
        DataType = ftString
        Size = 16
      end
      item
        Name = 'CodFiscal'
        DataType = ftString
        Size = 13
      end
      item
        Name = 'RegCom'
        DataType = ftString
        Size = 16
      end
      item
        Name = 'Banca1'
        DataType = ftString
        Size = 30
      end
      item
        Name = 'Banca2'
        DataType = ftString
        Size = 30
      end
      item
        Name = 'Banca3'
        DataType = ftString
        Size = 30
      end
      item
        Name = 'Filiala1'
        DataType = ftString
        Size = 30
      end
      item
        Name = 'Filiala2'
        DataType = ftString
        Size = 30
      end
      item
        Name = 'Filiala3'
        DataType = ftString
        Size = 30
      end
      item
        Name = 'Cont1'
        DataType = ftString
        Size = 30
      end
      item
        Name = 'Cont2'
        DataType = ftString
        Size = 30
      end
      item
        Name = 'Cont3'
        DataType = ftString
        Size = 30
      end
      item
        Name = 'Telefon'
        DataType = ftString
        Size = 40
      end
      item
        Name = 'Fax'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'EMail'
        DataType = ftString
        Size = 30
      end
      item
        Name = 'Localitate'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'Strada'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'Numar'
        DataType = ftString
        Size = 5
      end
      item
        Name = 'CodPostal'
        DataType = ftString
        Size = 5
      end
      item
        Name = 'Bloc'
        DataType = ftString
        Size = 5
      end
      item
        Name = 'Scara'
        DataType = ftString
        Size = 5
      end
      item
        Name = 'Etaj'
        DataType = ftString
        Size = 5
      end
      item
        Name = 'Ap'
        DataType = ftString
        Size = 5
      end
      item
        Name = 'Sector'
        DataType = ftString
        Size = 5
      end
      item
        Name = 'Pers1'
        DataType = ftString
        Size = 40
      end
      item
        Name = 'Pers2'
        DataType = ftString
        Size = 40
      end
      item
        Name = 'NrI'
        DataType = ftInteger
      end
      item
        Name = 'nr'
        DataType = ftString
        Size = 10
      end>
    IndexDefs = <
      item
        Name = 'tFirmeIndex1'
        Fields = 'CodF'
        Options = [ixPrimary, ixUnique]
      end
      item
        Name = 'iCod'
        Fields = 'Cod'
        Options = [ixCaseInsensitive]
      end>
    IndexFieldNames = 'Cod'
    StoreDefs = True
    TableName = 'Firme.DB'
    Left = 32
    Top = 144
    object tFirmeCodF: TAutoIncField
      FieldName = 'CodF'
      ReadOnly = True
    end
    object tFirmeCod: TStringField
      FieldName = 'Cod'
      Size = 8
    end
    object tFirmeTipAngaj: TIntegerField
      FieldName = 'TipAngaj'
    end
    object tFirmeDenumire: TStringField
      FieldName = 'Denumire'
      Size = 40
    end
    object tFirmeNume: TStringField
      FieldName = 'Nume'
    end
    object tFirmePrenume: TStringField
      FieldName = 'Prenume'
      Size = 30
    end
    object tFirmeJudet: TStringField
      FieldName = 'Judet'
      Size = 16
    end
    object tFirmeCodFiscal: TStringField
      DisplayWidth = 13
      FieldName = 'CodFiscal'
      Size = 13
    end
    object tFirmeRegCom: TStringField
      FieldName = 'RegCom'
      Size = 16
    end
    object tFirmeBanca1: TStringField
      FieldName = 'Banca1'
      Size = 30
    end
    object tFirmeBanca2: TStringField
      FieldName = 'Banca2'
      Size = 30
    end
    object tFirmeBanca3: TStringField
      FieldName = 'Banca3'
      Size = 30
    end
    object tFirmeCont1: TStringField
      FieldName = 'Cont1'
      Size = 30
    end
    object tFirmeCont2: TStringField
      FieldName = 'Cont2'
      Size = 30
    end
    object tFirmeCont3: TStringField
      FieldName = 'Cont3'
      Size = 30
    end
    object tFirmeTelefon: TStringField
      FieldName = 'Telefon'
      Size = 40
    end
    object tFirmeFax: TStringField
      FieldName = 'Fax'
    end
    object tFirmeEMail: TStringField
      FieldName = 'EMail'
      Size = 30
    end
    object tFirmeLocalitate: TStringField
      FieldName = 'Localitate'
    end
    object tFirmeStrada: TStringField
      FieldName = 'Strada'
    end
    object tFirmeNumar: TStringField
      FieldName = 'Numar'
      Size = 5
    end
    object tFirmeCodPostal: TStringField
      FieldName = 'CodPostal'
      Size = 5
    end
    object tFirmeBloc: TStringField
      FieldName = 'Bloc'
      Size = 5
    end
    object tFirmeScara: TStringField
      FieldName = 'Scara'
      Size = 5
    end
    object tFirmeEtaj: TStringField
      FieldName = 'Etaj'
      Size = 5
    end
    object tFirmeAp: TStringField
      FieldName = 'Ap'
      Size = 5
    end
    object tFirmeSector: TStringField
      FieldName = 'Sector'
      Size = 5
    end
    object tFirmePers1: TStringField
      FieldName = 'Pers1'
      Size = 40
    end
    object tFirmePers2: TStringField
      FieldName = 'Pers2'
      Size = 40
    end
    object tFirmeNrI: TIntegerField
      FieldName = 'NrI'
    end
    object tFirmeFiliala1: TStringField
      FieldName = 'Filiala1'
      Size = 30
    end
    object tFirmeFiliala2: TStringField
      FieldName = 'Filiala2'
      Size = 30
    end
    object tFirmeFiliala3: TStringField
      FieldName = 'Filiala3'
      Size = 30
    end
  end
  object tPers: TTable
    Tag = 1
    FieldDefs = <
      item
        Name = 'Nr'
        Attributes = [faReadonly]
        DataType = ftAutoInc
      end
      item
        Name = 'LUNA'
        DataType = ftDate
      end
      item
        Name = 'IID'
        DataType = ftInteger
      end
      item
        Name = 'TIP'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'NUME'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'PRENUME'
        DataType = ftString
        Size = 30
      end
      item
        Name = 'CODNUMPERS'
        DataType = ftString
        Size = 15
      end
      item
        Name = 'FUNCTIE'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'SALINC'
        DataType = ftFloat
      end
      item
        Name = 'TIMP'
        DataType = ftFloat
      end
      item
        Name = 'TIMP_SPL'
        DataType = ftFloat
      end
      item
        Name = 'VAL_TIMP_S'
        DataType = ftFloat
      end
      item
        Name = 'ALTESPORP'
        DataType = ftFloat
      end
      item
        Name = 'VAL_SPORP'
        DataType = ftFloat
      end
      item
        Name = 'PRIME'
        DataType = ftFloat
      end
      item
        Name = 'CM1L'
        DataType = ftFloat
      end
      item
        Name = 'CM2L'
        DataType = ftFloat
      end
      item
        Name = 'BRUT'
        DataType = ftFloat
      end
      item
        Name = 'PENSIE'
        DataType = ftFloat
      end
      item
        Name = 'SOMAJ'
        DataType = ftFloat
      end
      item
        Name = 'TOTDREPT'
        DataType = ftFloat
      end
      item
        Name = 'IMPOZIT'
        DataType = ftFloat
      end
      item
        Name = 'AVANS'
        DataType = ftFloat
      end
      item
        Name = 'RETINERI'
        DataType = ftFloat
      end
      item
        Name = 'RESTPL'
        DataType = ftFloat
      end
      item
        Name = 'STUDII'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'DATA_ANG'
        DataType = ftDate
      end
      item
        Name = 'DATA_NAS'
        DataType = ftDate
      end
      item
        Name = 'DATA_LICH'
        DataType = ftDate
      end
      item
        Name = 'LOCALITATE'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'STRADA'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'NUMAR'
        DataType = ftString
        Size = 5
      end
      item
        Name = 'CODPOSTAL'
        DataType = ftString
        Size = 5
      end
      item
        Name = 'BLOC'
        DataType = ftString
        Size = 5
      end
      item
        Name = 'SCARA'
        DataType = ftString
        Size = 5
      end
      item
        Name = 'ETAJ'
        DataType = ftString
        Size = 5
      end
      item
        Name = 'AP'
        DataType = ftString
        Size = 5
      end
      item
        Name = 'SECTOR'
        DataType = ftString
        Size = 5
      end
      item
        Name = 'TELEFON'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'ALTE_DATE'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'SANATATE'
        DataType = ftFloat
      end
      item
        Name = 'TIMP_NOAPTE'
        DataType = ftFloat
      end
      item
        Name = 'SUMA_T_NOAPTE'
        DataType = ftFloat
      end
      item
        Name = 'ZILE_CO'
        DataType = ftFloat
      end
      item
        Name = 'SUMA_ZILE_CO'
        DataType = ftFloat
      end
      item
        Name = 'ALTE_SUME'
        DataType = ftFloat
      end
      item
        Name = 'CIC'
        DataType = ftFloat
      end
      item
        Name = 'POPRIRI'
        DataType = ftFloat
      end
      item
        Name = 'GARANTII'
        DataType = ftFloat
      end
      item
        Name = 'ALTE_RET'
        DataType = ftFloat
      end
      item
        Name = 'PRIME_INCASATE'
        DataType = ftFloat
      end
      item
        Name = 'AVANS_CO'
        DataType = ftFloat
      end
      item
        Name = 'ZILE_FP'
        DataType = ftSmallint
      end
      item
        Name = 'ZILE_CM'
        DataType = ftSmallint
      end
      item
        Name = 'CATEGORIE'
        DataType = ftSmallint
      end
      item
        Name = 'MARCA'
        DataType = ftInteger
      end
      item
        Name = 'ACORD'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'REALIZAT'
        DataType = ftFloat
      end
      item
        Name = 'ZILE_CIC'
        DataType = ftSmallint
      end
      item
        Name = 'SPORURI'
        DataType = ftFloat
      end
      item
        Name = 'CoefInd'
        DataType = ftFloat
      end
      item
        Name = 'CoefInd1'
        DataType = ftFloat
      end
      item
        Name = 'INVALIDITATE'
        DataType = ftInteger
      end
      item
        Name = 'Judet'
        DataType = ftString
        Size = 16
      end
      item
        Name = 'VENIT_NET'
        DataType = ftFloat
      end
      item
        Name = 'DED_PERS_SUPLI'
        DataType = ftFloat
      end
      item
        Name = 'DED_PERS'
        DataType = ftFloat
      end
      item
        Name = 'ALT_VENIT'
        DataType = ftInteger
      end
      item
        Name = 'Depart'
        DataType = ftString
        Size = 8
      end
      item
        Name = 'EMAIL'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'fisa_rectif'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'fisa_regul'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'Domiciliu_ext'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'pr_va'
        DataType = ftFloat
      end
      item
        Name = 'Spor1'
        DataType = ftFloat
      end
      item
        Name = 'vals1'
        DataType = ftFloat
      end
      item
        Name = 'spor2'
        DataType = ftFloat
      end
      item
        Name = 'vals2'
        DataType = ftFloat
      end
      item
        Name = 'spor3'
        DataType = ftFloat
      end
      item
        Name = 'vals3'
        DataType = ftFloat
      end
      item
        Name = 'spor4'
        DataType = ftFloat
      end
      item
        Name = 'vals4'
        DataType = ftFloat
      end
      item
        Name = 'Dif_Brut'
        DataType = ftFloat
      end
      item
        Name = 'SumeExcept'
        DataType = ftFloat
      end
      item
        Name = 'Brut1'
        DataType = ftFloat
      end
      item
        Name = 'BifaSom'
        DataType = ftInteger
      end
      item
        Name = 'Ch_Prof'
        DataType = ftFloat
      end
      item
        Name = 'PlatitOra'
        DataType = ftInteger
      end
      item
        Name = 'Ore_Zi'
        DataType = ftFloat
      end
      item
        Name = 'ProcImpo'
        DataType = ftFloat
      end
      item
        Name = 'Pensionar'
        DataType = ftInteger
      end
      item
        Name = 'NORMA'
        DataType = ftInteger
      end>
    IndexDefs = <
      item
        Name = 'tPersIndex1'
        Fields = 'Nr'
        Options = [ixPrimary, ixUnique]
      end
      item
        Name = 'iIL'
        Fields = 'LUNA;IID'
        Options = [ixCaseInsensitive]
      end
      item
        Name = 'iLTCM'
        Fields = 'LUNA;Depart;TIP;CATEGORIE;MARCA'
      end
      item
        Name = 'iLT'
        Fields = 'LUNA;TIP'
      end>
    IndexFieldNames = 'LUNA;IID'
    StoreDefs = True
    TableName = 'pers.db'
    Left = 28
    Top = 32
    object tPersNr: TAutoIncField
      FieldName = 'Nr'
      ReadOnly = True
      Visible = False
    end
    object tPersLUNA: TDateField
      FieldName = 'LUNA'
    end
    object tPersIID: TIntegerField
      FieldName = 'IID'
      Visible = False
    end
    object tPersTIP: TStringField
      FieldName = 'TIP'
      Size = 1
    end
    object tPersNUME: TStringField
      FieldName = 'NUME'
    end
    object tPersPRENUME: TStringField
      FieldName = 'PRENUME'
      Size = 30
    end
    object tPersCODNUMPERS: TStringField
      FieldName = 'CODNUMPERS'
      Size = 15
    end
    object tPersFUNCTIE: TStringField
      FieldName = 'FUNCTIE'
      Size = 50
    end
    object tPersSALINC: TFloatField
      FieldName = 'SALINC'
    end
    object tPersTIMP: TFloatField
      FieldName = 'TIMP'
    end
    object tPersTIMP_SPL: TFloatField
      FieldName = 'TIMP_SPL'
    end
    object tPersVAL_TIMP_S: TFloatField
      FieldName = 'VAL_TIMP_S'
    end
    object tPersALTESPORP: TFloatField
      FieldName = 'ALTESPORP'
    end
    object tPersPRIME: TFloatField
      FieldName = 'PRIME'
    end
    object tPersCM1L: TFloatField
      FieldName = 'CM1L'
    end
    object tPersCM2L: TFloatField
      FieldName = 'CM2L'
    end
    object tPersBRUT: TFloatField
      FieldName = 'BRUT'
    end
    object tPersPENSIE: TFloatField
      FieldName = 'PENSIE'
    end
    object tPersSOMAJ: TFloatField
      FieldName = 'SOMAJ'
    end
    object tPersTOTDREPT: TFloatField
      FieldName = 'TOTDREPT'
    end
    object tPersIMPOZIT: TFloatField
      FieldName = 'IMPOZIT'
    end
    object tPersAVANS: TFloatField
      FieldName = 'AVANS'
    end
    object tPersRETINERI: TFloatField
      FieldName = 'RETINERI'
    end
    object tPersRESTPL: TFloatField
      FieldName = 'RESTPL'
    end
    object tPersSTUDII: TStringField
      FieldName = 'STUDII'
      Size = 50
    end
    object tPersDATA_ANG: TDateField
      FieldName = 'DATA_ANG'
    end
    object tPersDATA_NAS: TDateField
      FieldName = 'DATA_NAS'
    end
    object tPersDATA_LICH: TDateField
      FieldName = 'DATA_LICH'
    end
    object tPersLOCALITATE: TStringField
      FieldName = 'LOCALITATE'
    end
    object tPersSTRADA: TStringField
      FieldName = 'STRADA'
    end
    object tPersNUMAR: TStringField
      FieldName = 'NUMAR'
      Size = 5
    end
    object tPersCODPOSTAL: TStringField
      FieldName = 'CODPOSTAL'
      Size = 5
    end
    object tPersBLOC: TStringField
      FieldName = 'BLOC'
      Size = 5
    end
    object tPersSCARA: TStringField
      FieldName = 'SCARA'
      Size = 5
    end
    object tPersETAJ: TStringField
      FieldName = 'ETAJ'
      Size = 5
    end
    object tPersAP: TStringField
      FieldName = 'AP'
      Size = 5
    end
    object tPersSECTOR: TStringField
      FieldName = 'SECTOR'
      Size = 5
    end
    object tPersTELEFON: TStringField
      FieldName = 'TELEFON'
      Size = 50
    end
    object tPersALTE_DATE: TStringField
      FieldName = 'ALTE_DATE'
      Size = 50
    end
    object tPersSANATATE: TFloatField
      FieldName = 'SANATATE'
    end
    object tPersTIMP_NOAPTE: TFloatField
      FieldName = 'TIMP_NOAPTE'
    end
    object tPersSUMA_T_NOAPTE: TFloatField
      FieldName = 'SUMA_T_NOAPTE'
    end
    object tPersZILE_CO: TFloatField
      FieldName = 'ZILE_CO'
    end
    object tPersSUMA_ZILE_CO: TFloatField
      FieldName = 'SUMA_ZILE_CO'
    end
    object tPersALTE_SUME: TFloatField
      FieldName = 'ALTE_SUME'
    end
    object tPersCIC: TFloatField
      FieldName = 'CIC'
    end
    object tPersPOPRIRI: TFloatField
      FieldName = 'POPRIRI'
    end
    object tPersGARANTII: TFloatField
      FieldName = 'GARANTII'
    end
    object tPersALTE_RET: TFloatField
      FieldName = 'ALTE_RET'
    end
    object tPersPRIME_INCASATE: TFloatField
      FieldName = 'PRIME_INCASATE'
    end
    object tPersAVANS_CO: TFloatField
      FieldName = 'AVANS_CO'
    end
    object tPersZILE_FP: TSmallintField
      FieldName = 'ZILE_FP'
    end
    object tPersZILE_CM: TSmallintField
      FieldName = 'ZILE_CM'
    end
    object tPersCATEGORIE: TSmallintField
      FieldName = 'CATEGORIE'
    end
    object tPersMARCA: TIntegerField
      FieldName = 'MARCA'
    end
    object tPersACORD: TStringField
      FieldName = 'ACORD'
      Size = 1
    end
    object tPersREALIZAT: TFloatField
      FieldName = 'REALIZAT'
    end
    object tPersZILE_CIC: TSmallintField
      FieldName = 'ZILE_CIC'
    end
    object tPersSPORURI: TFloatField
      FieldName = 'SPORURI'
    end
    object tPersCoefInd: TFloatField
      FieldName = 'CoefInd'
    end
    object tPersCoefInd1: TFloatField
      FieldName = 'CoefInd1'
      DisplayFormat = '#,##0.##'
      EditFormat = '#,##0.##'
    end
    object tPersINVALIDITATE: TIntegerField
      FieldName = 'INVALIDITATE'
    end
    object tPersJudet: TStringField
      FieldName = 'Judet'
      Size = 16
    end
    object tPersVAL_SPORP: TFloatField
      FieldName = 'VAL_SPORP'
    end
    object tPersVENIT_NET: TFloatField
      FieldName = 'VENIT_NET'
    end
    object tPersDED_PERS_SUPLI: TFloatField
      FieldName = 'DED_PERS_SUPLI'
    end
    object tPersDED_PERS: TFloatField
      FieldName = 'DED_PERS'
    end
    object tPersALT_VENIT: TIntegerField
      FieldName = 'ALT_VENIT'
    end
    object tPersDepart: TStringField
      FieldName = 'Depart'
      Size = 8
    end
    object tPersEMAIL: TStringField
      FieldName = 'EMAIL'
      Size = 50
    end
    object tPersfisa_rectif: TStringField
      FieldName = 'fisa_rectif'
      Size = 1
    end
    object tPersfisa_regul: TStringField
      FieldName = 'fisa_regul'
      Size = 1
    end
    object tPersdomiciliu_ext: TStringField
      FieldName = 'domiciliu_ext'
      Size = 1
    end
    object tPerspr_va: TFloatField
      FieldName = 'pr_va'
    end
    object tPersspor1: TFloatField
      FieldName = 'spor1'
    end
    object tPersspor2: TFloatField
      FieldName = 'spor2'
    end
    object tPersspor3: TFloatField
      FieldName = 'spor3'
    end
    object tPersspor4: TFloatField
      FieldName = 'spor4'
    end
    object tPersDif_Brut: TFloatField
      FieldName = 'Dif_Brut'
    end
    object tPersSumeExcept: TFloatField
      FieldName = 'SumeExcept'
    end
    object tPersBrut1: TFloatField
      FieldName = 'Brut1'
    end
    object tPersvals1: TFloatField
      FieldName = 'vals1'
    end
    object tPersvals2: TFloatField
      FieldName = 'vals2'
    end
    object tPersvals3: TFloatField
      FieldName = 'vals3'
    end
    object tPersvals4: TFloatField
      FieldName = 'vals4'
    end
    object tPersBifaSom: TIntegerField
      FieldName = 'BifaSom'
    end
    object tPersCh_Prof: TFloatField
      FieldName = 'Ch_Prof'
    end
    object tPersPlatitOra: TIntegerField
      FieldName = 'PlatitOra'
    end
    object tPersProcImpo: TFloatField
      FieldName = 'ProcImpo'
    end
    object tPersOre_Zi: TFloatField
      FieldName = 'Ore_Zi'
    end
    object tPersPensionar: TIntegerField
      FieldName = 'Pensionar'
    end
    object tPersNORMA: TIntegerField
      FieldName = 'NORMA'
    end
  end
  object tParf: TTable
    Tag = 1
    DatabaseName = '_DBSal4'
    FieldDefs = <
      item
        Name = 'Nr'
        Attributes = [faReadonly]
        DataType = ftAutoInc
      end
      item
        Name = 'Luna'
        DataType = ftDate
      end
      item
        Name = 'Den'
        DataType = ftString
        Size = 12
      end
      item
        Name = 'Val'
        DataType = ftFloat
      end
      item
        Name = 'Grupa'
        DataType = ftString
        Size = 60
      end>
    IndexDefs = <
      item
        Name = 'tParfIndex1'
        Fields = 'Nr'
        Options = [ixPrimary, ixUnique]
      end
      item
        Name = 'iLD'
        Fields = 'Luna;Den'
        Options = [ixCaseInsensitive]
      end>
    IndexFieldNames = 'Luna;Den'
    StoreDefs = True
    TableName = 'parf.db'
    Left = 32
    Top = 256
    object tParfNr: TAutoIncField
      FieldName = 'Nr'
      ReadOnly = True
    end
    object tParfLuna: TDateField
      FieldName = 'Luna'
    end
    object tParfDen: TStringField
      FieldName = 'Den'
      Size = 12
    end
    object tParfVal: TFloatField
      FieldName = 'Val'
    end
    object tParfGrupa: TStringField
      FieldName = 'Grupa'
      Size = 60
    end
  end
  object tPara: TTable
    DatabaseName = '_DBFirma'
    FieldDefs = <
      item
        Name = 'Nr'
        Attributes = [faReadonly]
        DataType = ftAutoInc
      end
      item
        Name = 'Luna'
        DataType = ftDate
      end
      item
        Name = 'Den'
        DataType = ftString
        Size = 12
      end
      item
        Name = 'Val'
        DataType = ftFloat
      end
      item
        Name = 'Grupa'
        DataType = ftString
        Size = 12
      end>
    IndexDefs = <
      item
        Name = 'tParaIndex1'
        Fields = 'Nr'
        Options = [ixPrimary, ixUnique]
      end
      item
        Name = 'iLD'
        Fields = 'Luna;Den'
        Options = [ixCaseInsensitive]
      end>
    IndexFieldNames = 'Luna;Den'
    StoreDefs = True
    TableName = 'Para.db'
    Left = 32
    Top = 204
    object tParaNr: TAutoIncField
      FieldName = 'Nr'
      ReadOnly = True
    end
    object tParaLuna: TDateField
      FieldName = 'Luna'
    end
    object tParaDen: TStringField
      FieldName = 'Den'
      Size = 12
    end
    object tParaVal: TFloatField
      FieldName = 'Val'
    end
    object tParaGrupa: TStringField
      FieldName = 'Grupa'
      Size = 12
    end
  end
  object tPint: TTable
    Tag = 1
    FieldDefs = <
      item
        Name = 'Nr'
        Attributes = [faReadonly]
        DataType = ftAutoInc
      end
      item
        Name = 'Luna'
        DataType = ftDate
      end
      item
        Name = 'IID'
        DataType = ftInteger
      end
      item
        Name = 'AiPers'
        DataType = ftInteger
      end
      item
        Name = 'Nume'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'Prenume'
        DataType = ftString
        Size = 30
      end
      item
        Name = 'CODNUMPERS'
        DataType = ftString
        Size = 15
      end
      item
        Name = 'Calitate'
        DataType = ftInteger
      end
      item
        Name = 'Invaliditate'
        DataType = ftInteger
      end
      item
        Name = 'Coef'
        DataType = ftFloat
      end>
    IndexDefs = <
      item
        Name = 'tPintIndex1'
        Fields = 'Nr'
        Options = [ixPrimary, ixUnique]
      end
      item
        Name = 'iLI'
        Fields = 'Luna;IID'
        Options = [ixCaseInsensitive]
      end>
    IndexName = 'iLI'
    MasterFields = 'LUNA;IID'
    MasterSource = dPers
    StoreDefs = True
    TableName = 'Pint.db'
    Left = 204
    Top = 16
    object tPintNr: TAutoIncField
      FieldName = 'Nr'
      ReadOnly = True
    end
    object tPintLuna: TDateField
      FieldName = 'Luna'
    end
    object tPintIID: TIntegerField
      FieldName = 'IID'
    end
    object tPintAiPers: TIntegerField
      FieldName = 'AiPers'
    end
    object tPintNume: TStringField
      FieldName = 'Nume'
    end
    object tPintPrenume: TStringField
      FieldName = 'Prenume'
      Size = 30
    end
    object tPintCODNUMPERS: TStringField
      FieldName = 'CODNUMPERS'
      Size = 15
    end
    object tPintCalitate: TIntegerField
      FieldName = 'Calitate'
    end
    object tPintInvaliditate: TIntegerField
      FieldName = 'Invaliditate'
    end
    object tPintCoef: TFloatField
      FieldName = 'Coef'
    end
    object tPintKalitate: TStringField
      FieldKind = fkCalculated
      FieldName = 'Kalitate'
      Calculated = True
    end
    object tPintYnvaliditate: TStringField
      FieldKind = fkCalculated
      FieldName = 'Ynvaliditate'
      Calculated = True
    end
  end
  object dPers: TDataSource
    AutoEdit = False
    DataSet = tPers
    Left = 148
    Top = 16
  end
  object tImpoAn: TTable
    DatabaseName = '_DBFirma'
    FieldDefs = <
      item
        Name = 'Nr'
        Attributes = [faReadonly]
        DataType = ftAutoInc
      end
      item
        Name = 'Luna'
        DataType = ftDate
      end
      item
        Name = 'P_Venit'
        DataType = ftFloat
      end
      item
        Name = 'V_Const'
        DataType = ftFloat
      end
      item
        Name = 'V_Proc'
        DataType = ftFloat
      end>
    IndexDefs = <
      item
        Name = 'tImpoAnIndex1'
        Fields = 'Nr'
        Options = [ixPrimary, ixUnique]
      end
      item
        Name = 'iLV'
        Fields = 'Luna;P_Venit'
      end>
    IndexFieldNames = 'Luna;P_Venit'
    StoreDefs = True
    TableName = 'Impo_an.db'
    Left = 24
    Top = 76
    object AutoIncField1: TAutoIncField
      FieldName = 'Nr'
      ReadOnly = True
    end
    object DateField1: TDateField
      FieldName = 'Luna'
    end
    object FloatField1: TFloatField
      FieldName = 'P_Venit'
    end
    object FloatField2: TFloatField
      FieldName = 'V_Const'
    end
    object FloatField3: TFloatField
      FieldName = 'V_Proc'
    end
  end
  object tPoze: TTable
    Tag = 1
    FieldDefs = <
      item
        Name = 'Nr'
        Attributes = [faReadonly]
        DataType = ftAutoInc
      end
      item
        Name = 'IID'
        DataType = ftInteger
      end
      item
        Name = 'poza'
        DataType = ftGraphic
      end>
    IndexDefs = <
      item
        Name = 'tPozeIndex1'
        Fields = 'Nr'
        Options = [ixPrimary, ixUnique]
      end>
    StoreDefs = True
    TableName = 'poze.db'
    Left = 148
    Top = 188
    object AutoIncField2: TAutoIncField
      FieldName = 'Nr'
      ReadOnly = True
      Visible = False
    end
    object tPozeIID: TIntegerField
      FieldName = 'IID'
    end
    object tPozePoza: TBlobField
      FieldName = 'Poza'
      BlobType = ftGraphic
    end
  end
  object dPoze: TDataSource
    DataSet = tPoze
    Left = 208
    Top = 184
  end
  object qSpor: TQuery
    Left = 148
    Top = 256
  end
  object qValCO: TQuery
    SQL.Strings = (

        'select * from pers where IID = :IID and Luna between :LunaI and ' +
        ':LunaF')
    Left = 204
    Top = 252
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'IID'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'LunaI'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'LunaF'
        ParamType = ptUnknown
      end>
  end
  object qTimp: TQuery
    SQL.Strings = (

        'select * from pers where IID = :IID and Luna between :LunaI and ' +
        ':LunaF')
    Left = 256
    Top = 252
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'IID'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'LunaI'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'LunaF'
        ParamType = ptUnknown
      end>
  end
  object tParfCalc: TTable
    Tag = 1
    DatabaseName = '_DBSal4'
    FieldDefs = <
      item
        Name = 'Nr'
        Attributes = [faReadonly]
        DataType = ftAutoInc
      end
      item
        Name = 'Luna'
        DataType = ftDate
      end
      item
        Name = 'Den'
        DataType = ftString
        Size = 12
      end
      item
        Name = 'Val'
        DataType = ftFloat
      end
      item
        Name = 'Grupa'
        DataType = ftString
        Size = 60
      end>
    IndexDefs = <
      item
        Name = 'tParfIndex1'
        Fields = 'Nr'
        Options = [ixPrimary, ixUnique]
      end
      item
        Name = 'iLD'
        Fields = 'Luna;Den'
        Options = [ixCaseInsensitive]
      end>
    IndexFieldNames = 'Luna;Den'
    StoreDefs = True
    TableName = 'parf.db'
    Left = 32
    Top = 328
    object AutoIncField3: TAutoIncField
      FieldName = 'Nr'
      ReadOnly = True
    end
    object DateField2: TDateField
      FieldName = 'Luna'
    end
    object StringField1: TStringField
      FieldName = 'Den'
      Size = 12
    end
    object FloatField4: TFloatField
      FieldName = 'Val'
    end
    object StringField2: TStringField
      FieldName = 'Grupa'
      Size = 60
    end
  end
  object tPint1: TTable
    Tag = 1
    TableName = 'Pint.db'
    Left = 260
    Top = 16
  end
  object tVerifPint: TTable
    Tag = 1
    TableName = 'Pint.db'
    Left = 468
    Top = 72
  end
  object tVerifPers: TTable
    Tag = 1
    TableName = 'pers.db'
    Left = 468
    Top = 16
  end
  object qVerifPint: TQuery
    DatabaseName = '_DBFirma'
    SQL.Strings = (
      'select * from Para where'
      '  den = '#39'VERIFPINT'#39)
    Left = 468
    Top = 124
  end
  object qAddCampuri: TQuery
    DatabaseName = 'Sal5'
    SQL.Strings = (
      'ALTER TABLE  "pers.db"  ADD ProcImpo float, ADD Ore_Zi Float')
    Left = 468
    Top = 176
  end
  object qAddPension: TQuery
    DatabaseName = 'Sal5'
    SQL.Strings = (
      'ALTER TABLE  "pers.db"  ADD Pensionar int')
    Left = 468
    Top = 228
  end
  object qAddNorma: TQuery
    DatabaseName = 'Sal5'
    SQL.Strings = (
      'ALTER TABLE  "pers.db"  ADD NORMA int')
    Left = 468
    Top = 276
  end
end