BUG 14/BUGCD1998_05.ISO/aplic/ipos/_setup.1/Knjigovodstvo.exe/0/RCDATA/TFM2500301RACUNIVPRABAT/TFM2500301RACUNIVPRABAT.txt

Text File | 1998-04-04 | 10KB | 353 lines

object fm2500301RacuniVpRabat: Tfm2500301RacuniVpRabat
  Left = 349
  Top = 281
  HelpContext = 250030100
  BorderIcons = [biHelp]
  BorderStyle = bsDialog
  Caption = 'fm2500301RacuniVpRabat'
  ClientHeight = 319
  ClientWidth = 537
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object paTipke: TPanel
    Left = 0
    Top = 281
    Width = 537
    Height = 38
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 1
    object bbIzracun: TBitBtn
      Left = 5
      Top = 8
      Width = 114
      Height = 25
      Hint = 'Izra�un rabata za cijeli ra�un'
      Caption = 'Izra�un &rabata'
      Default = True
      TabOrder = 0
      OnClick = bbIzracunClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00337000000000
        73333337777777773F333308888888880333337F3F3F3FFF7F33330808089998
        0333337F737377737F333308888888880333337F3F3F3F3F7F33330808080808
        0333337F737373737F333308888888880333337F3F3F3F3F7F33330808080808
        0333337F737373737F333308888888880333337F3F3F3F3F7F33330808080808
        0333337F737373737F333308888888880333337F3FFFFFFF7F33330800000008
        0333337F7777777F7F333308000E0E080333337F7FFFFF7F7F33330800000008
        0333337F777777737F333308888888880333337F333333337F33330888888888
        03333373FFFFFFFF733333700000000073333337777777773333}
      NumGlyphs = 2
    end
    object bbIzlaz: TBitBtn
      Left = 270
      Top = 8
      Width = 85
      Height = 25
      Caption = 'I&zlaz'
      TabOrder = 2
      OnClick = bbIzlazClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
        03333377777777777F333301BBBBBBBB033333773F3333337F3333011BBBBBBB
        0333337F73F333337F33330111BBBBBB0333337F373F33337F333301110BBBBB
        0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
        0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
        0333337F337F33337F333301110BBBBB0333337F337FF3337F33330111B0BBBB
        0333337F337733337F333301110BBBBB0333337F337F33337F333301110BBBBB
        0333337F3F7F33337F333301E10BBBBB0333337F7F7F33337F333301EE0BBBBB
        0333337F777FFFFF7F3333000000000003333377777777777333}
      NumGlyphs = 2
    end
    object bbBrisanje: TBitBtn
      Left = 124
      Top = 8
      Width = 142
      Height = 25
      Hint = 'Brisanje svih rabata u ra�unu'
      Caption = 'Brisanje svih rabata'
      TabOrder = 1
      OnClick = bbBrisanjeClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500005000555
        555557777F777555F55500000000555055557777777755F75555005500055055
        555577F5777F57555555005550055555555577FF577F5FF55555500550050055
        5555577FF77577FF555555005050110555555577F757777FF555555505099910
        555555FF75777777FF555005550999910555577F5F77777775F5500505509990
        3055577F75F77777575F55005055090B030555775755777575755555555550B0
        B03055555F555757575755550555550B0B335555755555757555555555555550
        BBB35555F55555575F555550555555550BBB55575555555575F5555555555555
        50BB555555555555575F555555555555550B5555555555555575}
      NumGlyphs = 2
    end
  end
  object ScrollBox1: TScrollBox
    Left = 0
    Top = 0
    Width = 537
    Height = 281
    Align = alClient
    Color = clBtnFace
    ParentColor = False
    TabOrder = 0
    object rgTipRabata: TRadioGroup
      Left = 16
      Top = 152
      Width = 383
      Height = 105
      Caption = 'Upi�ite stopu ili iznos rabata ukupno za ra�un'
      ItemIndex = 0
      Items.Strings = (
        'Ukupna stopa rabata'
        'Ukupan iznos rabata')
      TabOrder = 3
    end
    object Memo1: TMemo
      Left = 15
      Top = 4
      Width = 502
      Height = 135
      TabStop = False
      Color = clBtnFace
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      Lines.Strings = (
        'UPUTA za izra�un ukupnog rabata za cijeli ra�un'
        ''
        'Kod rabata sa zadanom stopom:'

          'Ovaj postupak koristimo npr. kada dajemo rabat na veliki iznos r' +
          'a�una.'

          'U slu�aju da iznos rabata pojedine stavke bude takav da je proda' +
          'jna cijena s '

          'rabatom manja od nule tada �e se rabat smanjiti na iznos prodajn' +
          'e cijene.'
        'Ovako dodani rabat se zbraja na ve� utvr�eni rabat po stavkama.'
        ''
        'Kod rabata sa zadanim iznosom:'
        'Postoje�i rabat se bri�e i raspore�uje novi ispo�etka.'
        ''

          'Kod brisanja rabata, rabat svih stavaka �e biti postavljen na 0%' +
          '.')
      ParentFont = False
      ScrollBars = ssVertical
      TabOrder = 2
    end
    object edRabatStopa: TEdit
      Left = 167
      Top = 175
      Width = 121
      Height = 21
      TabOrder = 0
      Text = 'edRabatStopa'
      OnChange = edRabatStopaChange
      OnKeyPress = keyPressSvi
    end
    object edRabatIznos: TEdit
      Left = 167
      Top = 219
      Width = 121
      Height = 21
      TabOrder = 1
      Text = 'edRabatIznos'
      OnChange = edRabatIznosChange
      OnKeyPress = keyPressSvi
    end
  end
  object ta1Irnv: TTable
    Tag = 4
    DatabaseName = 'c:\knjigovodstvo\data\praznegod'
    TableName = 'irnv'
    Left = 757
    Top = 159
    object ta1IrnvRecord: TAutoIncField
      FieldName = 'Record'
    end
    object ta1IrnvGodina: TSmallintField
      FieldName = 'Godina'
    end
    object ta1IrnvBroj: TIntegerField
      FieldName = 'Broj'
    end
    object ta1IrnvDatum: TDateField
      FieldName = 'Datum'
      EditMask = '00/00/0000'
    end
    object ta1IrnvPartner: TIntegerField
      FieldName = 'Partner'
    end
    object ta1IrnvTipIrnv: TSmallintField
      FieldName = 'TipIrnv'
    end
    object ta1IrnvSkladiste: TIntegerField
      FieldName = 'Skladiste'
    end
    object ta1IrnvCjenik: TIntegerField
      FieldName = 'Cjenik'
    end
    object ta1IrnvPredGod: TSmallintField
      FieldName = 'PredGod'
    end
    object ta1IrnvPredBroj: TIntegerField
      FieldName = 'PredBroj'
    end
    object ta1IrnvPredDat: TDateField
      FieldName = 'PredDat'
      EditMask = '99/99/9999'
    end
    object ta1IrnvPredIznos: TFloatField
      FieldName = 'PredIznos'
      DisplayFormat = ',0.00####'
      EditFormat = '0.00####'
    end
    object ta1IrnvModelPlac: TStringField
      FieldName = 'ModelPlac'
      Size = 30
    end
    object ta1IrnvNacinPlac: TSmallintField
      FieldName = 'NacinPlac'
    end
    object ta1IrnvDospjece: TDateField
      FieldName = 'Dospjece'
      EditMask = '99/99/9999'
    end
    object ta1IrnvTekstPrije: TBlobField
      FieldName = 'TekstPrije'
      BlobType = ftFmtMemo
    end
    object ta1IrnvTekstIza: TBlobField
      FieldName = 'TekstIza'
      BlobType = ftFmtMemo
    end
    object ta1IrnvFakturirao: TSmallintField
      FieldName = 'Fakturirao'
    end
    object ta1IrnvOdobrio: TSmallintField
      FieldName = 'Odobrio'
    end
    object ta1IrnvJedinica: TIntegerField
      FieldName = 'Jedinica'
    end
    object ta1IrnvTip_ira: TIntegerField
      FieldName = 'Tip_ira'
    end
    object ta1IrnvTip_ira_unos: TIntegerField
      FieldName = 'Tip_ira_unos'
    end
    object ta1IrnvcfPartner: TStringField
      FieldName = 'cfPartner'
      Size = 60
      Calculated = True
    end
    object ta1IrnvcfSkladiste: TStringField
      FieldName = 'cfSkladiste'
      Size = 60
      Calculated = True
    end
    object ta1IrnvcfOtpremnica: TStringField
      FieldName = 'cfOtpremnica'
      Size = 60
      Calculated = True
    end
  end
  object ta1IrnvSt: TTable
    Tag = 4
    DatabaseName = 'c:\knjigovodstvo\data\praznegod'
    TableName = 'IrnvSt'
    Left = 863
    Top = 164
    object ta1IrnvStRecord: TAutoIncField
      FieldName = 'Record'
    end
    object ta1IrnvStGodina: TSmallintField
      FieldName = 'Godina'
    end
    object ta1IrnvStBroj: TIntegerField
      FieldName = 'Broj'
    end
    object ta1IrnvStRedbr: TSmallintField
      FieldName = 'Redbr'
    end
    object ta1IrnvStSifra: TIntegerField
      FieldName = 'Sifra'
    end
    object ta1IrnvStKolicina: TFloatField
      FieldName = 'Kolicina'
      DisplayFormat = ',0.000'
      EditFormat = '0.000'
    end
    object ta1IrnvStNc: TFloatField
      FieldName = 'Nc'
      DisplayFormat = ',0.00####'
      EditFormat = '0.00####'
    end
    object ta1IrnvStMarza: TFloatField
      FieldName = 'Marza'
      DisplayFormat = ',0.00####'
      EditFormat = '0.00####'
    end
    object ta1IrnvStRabat: TFloatField
      FieldName = 'Rabat'
      DisplayFormat = ',0.00####'
      EditFormat = '0.00####'
    end
    object ta1IrnvStPorezTb: TSmallintField
      FieldName = 'PorezTb'
    end
    object ta1IrnvStPorezStopa: TFloatField
      FieldName = 'PorezStopa'
      DisplayFormat = ',0.00####'
      EditFormat = '0.00####'
    end
    object ta1IrnvStcfSifra: TStringField
      FieldName = 'cfSifra'
      Size = 60
      Calculated = True
    end
    object ta1IrnvStcfJedmj: TStringField
      FieldName = 'cfJedmj'
      Calculated = True
    end
    object ta1IrnvStcfPc1: TStringField
      FieldName = 'cfPc1'
      Calculated = True
    end
    object ta1IrnvStcfPc2: TStringField
      FieldName = 'cfPc2'
      Calculated = True
    end
    object ta1IrnvStcfIznos: TStringField
      FieldName = 'cfIznos'
      Calculated = True
    end
  end
  object ta1LockFakt: TTable
    DatabaseName = 'praznegod'
    TableName = '_lockFakt'
    Left = 987
    Top = 584
  end
end