home *** CD-ROM | disk | FTP | other *** search
/ Chip 2003 December / CMCD1203.ISO / Software / Demo / salarii / Upgrade / salarii.exe / 0 / RCDATA / TFSEL / TFSEL.txt
Encoding:
Text File  |  2003-10-10  |  7.4 KB  |  355 lines
  1. object FSel: TFSel
  2.   Left = 388
  3.   Top = 369
  4.   BorderIcons = [biSystemMenu]
  5.   BorderStyle = bsSingle
  6.   Caption = 'Liste'
  7.   ClientHeight = 158
  8.   ClientWidth = 404
  9.   Color = clBtnFace
  10.   Font.Charset = DEFAULT_CHARSET
  11.   Font.Color = clWindowText
  12.   Font.Height = -11
  13.   Font.Name = 'MS Sans Serif'
  14.   Font.Style = []
  15.   KeyPreview = True
  16.   OldCreateOrder = False
  17.   Position = poScreenCenter
  18.   OnClose = FormClose
  19.   OnShow = FormShow
  20.   PixelsPerInch = 96
  21.   TextHeight = 13
  22.   object lTitlu: TLabelEffect
  23.     Left = 0
  24.     Top = 0
  25.     Width = 404
  26.     Height = 25
  27.     ColourShadow = clGray
  28.     GraduateFrom = clWindowText
  29.     StyleHighlight = eoExtrude
  30.     StyleShadow = eoGraduated
  31.     ColourScheme = csText
  32.     Align = alTop
  33.     Alignment = taCenter
  34.     Caption = 'Tiparire Fisa fiscala'
  35.     Font.Charset = ANSI_CHARSET
  36.     Font.Color = clBlack
  37.     Font.Height = -16
  38.     Font.Name = 'Arial'
  39.     Font.Style = [fsBold]
  40.     ParentFont = False
  41.   end
  42.   object Label1: TLabel
  43.     Left = 53
  44.     Top = 37
  45.     Width = 54
  46.     Height = 15
  47.     Caption = 'Persoana'
  48.     Font.Charset = ANSI_CHARSET
  49.     Font.Color = clWindowText
  50.     Font.Height = -12
  51.     Font.Name = 'Arial'
  52.     Font.Style = []
  53.     ParentFont = False
  54.     Transparent = True
  55.   end
  56.   object LPers: TLabel
  57.     Left = 133
  58.     Top = 37
  59.     Width = 217
  60.     Height = 18
  61.     Anchors = [akLeft, akTop, akRight]
  62.     AutoSize = False
  63.     Color = clInfoBk
  64.     Font.Charset = ANSI_CHARSET
  65.     Font.Color = clWindowText
  66.     Font.Height = -12
  67.     Font.Name = 'Arial'
  68.     Font.Style = []
  69.     ParentColor = False
  70.     ParentFont = False
  71.     Layout = tlCenter
  72.   end
  73.   object lAn: TLabel
  74.     Left = 84
  75.     Top = 86
  76.     Width = 24
  77.     Height = 15
  78.     Caption = 'Anul'
  79.     Font.Charset = ANSI_CHARSET
  80.     Font.Color = clWindowText
  81.     Font.Height = -12
  82.     Font.Name = 'Arial'
  83.     Font.Style = []
  84.     ParentFont = False
  85.     Transparent = True
  86.   end
  87.   object LTip: TLabel
  88.     Left = 133
  89.     Top = 60
  90.     Width = 217
  91.     Height = 18
  92.     Anchors = [akLeft, akTop, akRight]
  93.     AutoSize = False
  94.     Color = clInfoBk
  95.     Font.Charset = ANSI_CHARSET
  96.     Font.Color = clWindowText
  97.     Font.Height = -12
  98.     Font.Name = 'Arial'
  99.     Font.Style = []
  100.     ParentColor = False
  101.     ParentFont = False
  102.     Layout = tlCenter
  103.   end
  104.   object Label4: TLabel
  105.     Left = 93
  106.     Top = 60
  107.     Width = 17
  108.     Height = 15
  109.     Caption = 'Tip'
  110.     Font.Charset = ANSI_CHARSET
  111.     Font.Color = clWindowText
  112.     Font.Height = -12
  113.     Font.Name = 'Arial'
  114.     Font.Style = []
  115.     ParentFont = False
  116.     Transparent = True
  117.   end
  118.   object BConfirm: TB
  119.     Left = 70
  120.     Top = 114
  121.     Width = 130
  122.     Height = 30
  123.     Caption = '&Tiparire'
  124.     Font.Charset = ANSI_CHARSET
  125.     Font.Color = clBtnText
  126.     Font.Height = -12
  127.     Font.Name = 'Arial'
  128.     Font.Style = []
  129.     ModalResult = 1
  130.     ParentFont = False
  131.     TabOrder = 0
  132.     OnClick = BConfirmClick
  133.   end
  134.   object BAbandon: TB
  135.     Left = 203
  136.     Top = 114
  137.     Width = 130
  138.     Height = 30
  139.     Cancel = True
  140.     Caption = '&Abandon'
  141.     Font.Charset = ANSI_CHARSET
  142.     Font.Color = clBtnText
  143.     Font.Height = -12
  144.     Font.Name = 'Arial'
  145.     Font.Style = []
  146.     ModalResult = 2
  147.     ParentFont = False
  148.     TabOrder = 1
  149.   end
  150.   object CBAn: TComboBox
  151.     Left = 132
  152.     Top = 82
  153.     Width = 141
  154.     Height = 22
  155.     Style = csOwnerDrawFixed
  156.     Font.Charset = ANSI_CHARSET
  157.     Font.Color = clWindowText
  158.     Font.Height = -12
  159.     Font.Name = 'Arial'
  160.     Font.Style = []
  161.     ItemHeight = 16
  162.     ParentFont = False
  163.     TabOrder = 2
  164.     OnKeyDown = CBAnKeyDown
  165.   end
  166.   object QFSel: TQuery
  167.     OnCalcFields = QFSelCalcFields
  168.     SQL.Strings = (
  169.       'SELECT LUNA'
  170.       'from   pers'
  171.       ''
  172.       'where (IID=:IDPersoana)'
  173.       'and (Tip=:varTip)'
  174.       ''
  175.       '/*group BY LUNA,NUME,PRENUME*/')
  176.     Left = 368
  177.     Top = 4
  178.     ParamData = <
  179.       item
  180.         DataType = ftInteger
  181.         Name = 'IDPersoana'
  182.         ParamType = ptInput
  183.       end
  184.       item
  185.         DataType = ftString
  186.         Name = 'varTip'
  187.         ParamType = ptInput
  188.       end>
  189.     object QFSelLUNA: TDateField
  190.       FieldName = 'LUNA'
  191.     end
  192.     object QFSelAnul: TIntegerField
  193.       FieldKind = fkCalculated
  194.       FieldName = 'Anul'
  195.       Calculated = True
  196.     end
  197.   end
  198.   object dsQ: TDataSource
  199.     DataSet = QFSel
  200.     Left = 88
  201.     Top = 16
  202.   end
  203.   object DSPers: TDataSource
  204.     DataSet = cdsPers
  205.     Left = 48
  206.     Top = 48
  207.   end
  208.   object cdsPers: TClientDataSet
  209.     Aggregates = <>
  210.     FieldDefs = <>
  211.     IndexDefs = <
  212.       item
  213.         Name = 'iLuna'
  214.         Fields = 'LUNA'
  215.         Options = [ixPrimary, ixUnique]
  216.       end>
  217.     IndexName = 'iLuna'
  218.     Params = <>
  219.     StoreDefs = True
  220.     OnCalcFields = cdsPersCalcFields
  221.     Left = 8
  222.     object DateField1: TDateField
  223.       FieldName = 'LUNA'
  224.     end
  225.     object FloatField1: TFloatField
  226.       FieldName = 'CoefInd'
  227.     end
  228.     object FloatField2: TFloatField
  229.       FieldName = 'VENIT_NET'
  230.     end
  231.     object FloatField4: TFloatField
  232.       FieldName = 'DED_PERS'
  233.     end
  234.     object FloatField3: TFloatField
  235.       FieldName = 'DED_PERS_SUPLI'
  236.     end
  237.     object cdsPersVENITBC: TFloatField
  238.       FieldName = 'VENITBC'
  239.     end
  240.     object cdsPersIMPOZIT: TFloatField
  241.       FieldName = 'IMPOZIT'
  242.     end
  243.     object cdsPersBazaPR_VA: TFloatField
  244.       FieldName = 'BazaPR_VA'
  245.     end
  246.     object cdsPersImpoPR_VA: TFloatField
  247.       FieldName = 'ImpoPR_VA'
  248.     end
  249.     object cdsPersCH_PROF: TFloatField
  250.       FieldName = 'CH_PROF'
  251.     end
  252.   end
  253.   object cdsPint: TClientDataSet
  254.     Aggregates = <>
  255.     FieldDefs = <>
  256.     IndexDefs = <
  257.       item
  258.         Name = 'iCNP'
  259.         Fields = 'CODNUMPERS'
  260.       end>
  261.     IndexName = 'iCNP'
  262.     Params = <>
  263.     StoreDefs = True
  264.     Left = 312
  265.     Top = 4
  266.     object cdsPintLuna: TDateField
  267.       FieldName = 'LUNA'
  268.     end
  269.     object cdsPintNume: TStringField
  270.       FieldName = 'Nume'
  271.     end
  272.     object cdsPintPrenume: TStringField
  273.       FieldName = 'Prenume'
  274.       Size = 30
  275.     end
  276.     object cdsPintCODNUMPERS: TStringField
  277.       FieldName = 'CODNUMPERS'
  278.       Size = 15
  279.     end
  280.     object cdsPintCoef: TFloatField
  281.       FieldName = 'Coef'
  282.     end
  283.     object cdsPintYnvaliditate: TStringField
  284.       FieldName = 'Ynvaliditate'
  285.     end
  286.     object cdsPintKalitate: TStringField
  287.       FieldName = 'Kalitate'
  288.     end
  289.   end
  290.   object dsPint: TDataSource
  291.     DataSet = cdsPint
  292.     Left = 4
  293.     Top = 48
  294.   end
  295.   object cdsPintSec: TClientDataSet
  296.     Aggregates = <>
  297.     FieldDefs = <>
  298.     IndexDefs = <
  299.       item
  300.         Name = 'iCNP'
  301.         Fields = 'CODNUMPERS;LUNA'
  302.       end>
  303.     IndexName = 'iCNP'
  304.     MasterFields = 'CODNUMPERS'
  305.     MasterSource = dsPint
  306.     PacketRecords = 0
  307.     Params = <>
  308.     StoreDefs = True
  309.     Left = 20
  310.     Top = 96
  311.     object DateField2: TDateField
  312.       FieldName = 'LUNA'
  313.     end
  314.     object StringField3: TStringField
  315.       FieldName = 'CODNUMPERS'
  316.       Size = 15
  317.     end
  318.     object FloatField5: TFloatField
  319.       FieldName = 'Coef'
  320.     end
  321.   end
  322.   object tImpo: TTable
  323.     DatabaseName = '_DBFirma'
  324.     IndexFieldNames = 'Luna;P_Venit'
  325.     TableName = 'Impo.db'
  326.     Left = 336
  327.     Top = 52
  328.   end
  329.   object tPara: TTable
  330.     DatabaseName = '_DBFirma'
  331.     TableName = 'Para.db'
  332.     Left = 368
  333.     Top = 52
  334.   end
  335.   object qDepPers: TQuery
  336.     DatabaseName = '_DBFirma'
  337.     SQL.Strings = (
  338.       'select * from para '
  339.       '  where (luna between :Luna1 and :Luna2)')
  340.     Left = 336
  341.     Top = 96
  342.     ParamData = <
  343.       item
  344.         DataType = ftUnknown
  345.         Name = 'Luna1'
  346.         ParamType = ptUnknown
  347.       end
  348.       item
  349.         DataType = ftUnknown
  350.         Name = 'Luna2'
  351.         ParamType = ptUnknown
  352.       end>
  353.   end
  354. end
  355.