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

Text File | 1998-04-04 | 7KB | 240 lines

object fm2500102CjeniciKopiranje: Tfm2500102CjeniciKopiranje
  Left = 385
  Top = 364
  HelpContext = 250010101
  BorderIcons = [biHelp]
  BorderStyle = bsDialog
  Caption = 'fm2500102CjeniciKopiranje'
  ClientHeight = 307
  ClientWidth = 535
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object paTipke: TPanel
    Left = 0
    Top = 269
    Width = 535
    Height = 38
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 1
    object bbIzracun: TBitBtn
      Left = 5
      Top = 8
      Width = 114
      Height = 25
      Hint = 'Po�etak kopiranja cjenika'
      Caption = '&Kopiranje cjenika'
      Default = True
      TabOrder = 0
      OnClick = bbIzracunClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333330B7FFF
        FFB0333333777F3333773333330B7FFFFFB0333333777F3333773333330B7FFF
        FFB0333333777F3333773333330B7FFFFFB03FFFFF777FFFFF77000000000077
        007077777777777777770FFFFFFFF00077B07F33333337FFFF770FFFFFFFF000
        7BB07F3FF3FFF77FF7770F00F000F00090077F77377737777F770FFFFFFFF039
        99337F3FFFF3F7F777FF0F0000F0F09999937F7777373777777F0FFFFFFFF999
        99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
        99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
        93337FFFF7737777733300000033333333337777773333333333}
      NumGlyphs = 2
    end
    object bbIzlaz: TBitBtn
      Left = 125
      Top = 7
      Width = 85
      Height = 25
      Caption = 'I&zlaz'
      TabOrder = 1
      OnClick = bbIzlazClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
        03333377777777777F333301BBBBBBBB033333773F3333337F3333011BBBBBBB
        0333337F73F333337F33330111BBBBBB0333337F373F33337F333301110BBBBB
        0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
        0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
        0333337F337F33337F333301110BBBBB0333337F337FF3337F33330111B0BBBB
        0333337F337733337F333301110BBBBB0333337F337F33337F333301110BBBBB
        0333337F3F7F33337F333301E10BBBBB0333337F7F7F33337F333301EE0BBBBB
        0333337F777FFFFF7F3333000000000003333377777777777333}
      NumGlyphs = 2
    end
  end
  object ScrollBox1: TScrollBox
    Left = 0
    Top = 0
    Width = 535
    Height = 269
    Align = alClient
    Color = clBtnFace
    ParentColor = False
    TabOrder = 0
    object Bevel2: TBevel
      Left = 18
      Top = 194
      Width = 499
      Height = 50
    end
    object Label15: TLabel
      Left = 34
      Top = 128
      Width = 94
      Height = 13
      Caption = 'Kopiranje IZ cjenika'
      FocusControl = cbIzCjenika
    end
    object Label1: TLabel
      Left = 35
      Top = 197
      Width = 86
      Height = 13
      Caption = 'Kopiranje U cjenik'
      FocusControl = cbUCjenik
    end
    object Bevel1: TBevel
      Left = 16
      Top = 125
      Width = 499
      Height = 50
    end
    object Memo1: TMemo
      Left = 13
      Top = 9
      Width = 502
      Height = 92
      Color = clBtnFace
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      Lines.Strings = (
        'UPUTA za kopiranje cijena izme�u dva cjenika.'

          'Ako postoje cijene u  ciljnom cjeniku, bti �e biti izbrisane i u' +
          'pisat �e se cijene iz '
        'ishodi�nog cjenika')
      ParentFont = False
      ReadOnly = True
      ScrollBars = ssVertical
      TabOrder = 0
    end
    object cbIzCjenika: TComboBox
      Left = 35
      Top = 142
      Width = 261
      Height = 22
      Style = csDropDownList
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial CE'
      Font.Style = [fsBold]
      ItemHeight = 14
      ParentFont = False
      TabOrder = 1
    end
    object cbUCjenik: TComboBox
      Left = 35
      Top = 212
      Width = 261
      Height = 22
      Style = csDropDownList
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial CE'
      Font.Style = [fsBold]
      ItemHeight = 14
      ParentFont = False
      TabOrder = 2
    end
  end
  object ta1CjeniciPop: TTable
    Tag = 3
    DatabaseName = 'praznepar'
    TableName = 'cjeniciPop'
    Left = 958
    Top = 245
    object ta1CjeniciPopSifra: TIntegerField
      FieldName = 'Sifra'
    end
    object ta1CjeniciPopNaziv: TStringField
      FieldName = 'Naziv'
      Size = 150
    end
  end
  object ta1Cjenici: TTable
    Tag = 3
    DatabaseName = 'praznepar'
    TableName = 'Cjenici'
    Left = 1003
    Top = 322
    object ta1CjeniciRecord: TAutoIncField
      FieldName = 'Record'
    end
    object ta1CjeniciSifra: TIntegerField
      FieldName = 'Sifra'
    end
    object ta1CjeniciArtikl: TIntegerField
      FieldName = 'Artikl'
    end
    object ta1CjeniciMarzaStopa: TFloatField
      FieldName = 'MarzaStopa'
      DisplayFormat = ',0.00####'
      EditFormat = '0.00####'
    end
    object ta1CjeniciCijena1: TFloatField
      FieldName = 'Cijena1'
      DisplayFormat = ',0.00####'
      EditFormat = '0.00####'
    end
  end
  object ta2Cjenici: TTable
    Tag = 3
    DatabaseName = 'praznepar'
    TableName = 'Cjenici'
    Left = 1065
    Top = 326
    object ta2CjeniciRecord: TAutoIncField
      FieldName = 'Record'
    end
    object ta2CjeniciSifra: TIntegerField
      FieldName = 'Sifra'
    end
    object ta2CjeniciArtikl: TIntegerField
      FieldName = 'Artikl'
    end
    object ta2CjeniciMarzaStopa: TFloatField
      FieldName = 'MarzaStopa'
      DisplayFormat = ',0.00####'
      EditFormat = '0.00####'
    end
    object ta2CjeniciCijena1: TFloatField
      FieldName = 'Cijena1'
      DisplayFormat = ',0.00####'
      EditFormat = '0.00####'
    end
  end
  object ta1LockSkupnePar: TTable
    DatabaseName = 'praznepar'
    TableName = '_lockSkupnePar'
    Left = 961
    Top = 385
  end
end