BUG 11/BUGCD1998_02.ISO/aplic/trade/_setup.1/main.exe/0/RCDATA/TSTANJEARTIKLI2/TSTANJEARTIKLI2.txt

Text File | 1998-01-05 | 36KB | 1,492 lines

object StanjeArtikli2: TStanjeArtikli2
  Tag = 1
  Left = 146
  Top = 109
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Kartica artikli po skladi�tima'
  ClientHeight = 453
  ClientWidth = 632
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  Position = poScreenCenter
  OnCloseQuery = FormCloseQuery
  OnHide = FormHide
  OnKeyDown = FormKeyDown
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel9: TBevel
    Left = 4
    Top = 99
    Width = 186
    Height = 53
  end
  object PrnKartica: TSpeedButton
    Left = 93
    Top = 125
    Width = 96
    Height = 26
    Caption = 'Kartica <F7>'
    Flat = True
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
      00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
      8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
      8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
      8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
      03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
      03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
      33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
      33333337FFFF7733333333300000033333333337777773333333}
    NumGlyphs = 2
    OnClick = PrintBtnClick
  end
  object PrnZaliha: TSpeedButton
    Left = 5
    Top = 100
    Width = 80
    Height = 51
    Caption = 'Zaliha <F5>'
    Flat = True
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
      00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
      8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
      8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
      8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
      03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
      03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
      33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
      33333337FFFF7733333333300000033333333337777773333333}
    Layout = blGlyphTop
    NumGlyphs = 2
    OnClick = PrintBtnClick
  end
  object PrnPromet: TSpeedButton
    Left = 93
    Top = 100
    Width = 96
    Height = 25
    Caption = 'Promet <F6>'
    Flat = True
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
      00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
      8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
      8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
      8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
      03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
      03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
      33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
      33333337FFFF7733333333300000033333333337777773333333}
    NumGlyphs = 2
    OnClick = PrintBtnClick
  end
  object Bevel11: TBevel
    Left = 88
    Top = 100
    Width = 5
    Height = 50
    Shape = bsLeftLine
  end
  object DBEdit1: TDBEdit
    Left = 264
    Top = 28
    Width = 21
    Height = 21
    TabStop = False
    DataField = 'Code'
    DataSource = sSkladiste
    Enabled = False
    TabOrder = 5
    OnChange = DBEdit1Change
  end
  object eGovor: TDBVar
    Left = 276
    Top = 12
    Width = 22
    Height = 21
    TabStop = False
    AutoSize = False
    Color = clBtnFace
    DataField = 'Govor'
    DataSource = sSifPart
    Enabled = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ReadOnly = True
    TabOrder = 4
    OnChange = eGovorChange
  end
  object gSifRobe: TMyDBGrid
    Left = 312
    Top = 4
    Width = 316
    Height = 147
    FindByName = True
    Ctl3D = True
    DataSource = sSifRobe
    Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgRowSelect, dgCancelOnExit]
    ParentCtl3D = False
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clBlack
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object gSifPart: TMyDBGrid
    Left = 4
    Top = 4
    Width = 186
    Height = 93
    FindByName = True
    DataSource = sSifPart
    Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgRowSelect, dgCancelOnExit]
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clBlack
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object gSkladiste: TMyDBGrid
    Left = 191
    Top = 4
    Width = 120
    Height = 147
    FindByName = True
    DataSource = sSkladiste
    Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgRowSelect, dgCancelOnExit]
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clBlack
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object Panel: TPanel
    Left = 0
    Top = 156
    Width = 632
    Height = 297
    BevelOuter = bvNone
    TabOrder = 3
    object Bevel2: TBevel
      Left = 16
      Top = 274
      Width = 593
      Height = 22
      Style = bsRaised
    end
    object Bevel3: TBevel
      Left = 180
      Top = 0
      Width = 5
      Height = 21
      Shape = bsLeftLine
    end
    object Bevel5: TBevel
      Left = 424
      Top = 0
      Width = 5
      Height = 21
      Shape = bsLeftLine
    end
    object Bevel6: TBevel
      Left = 372
      Top = 19
      Width = 5
      Height = 22
      Shape = bsLeftLine
    end
    object Bevel1: TBevel
      Left = 4
      Top = 19
      Width = 625
      Height = 6
      Shape = bsTopLine
    end
    object Bevel4: TBevel
      Left = 4
      Top = 0
      Width = 625
      Height = 42
      Shape = bsFrame
      Style = bsRaised
    end
    object Label24: TLabel
      Left = 12
      Top = 4
      Width = 24
      Height = 13
      Caption = '�ifra:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object lProizvodi: TLabel
      Left = 432
      Top = 4
      Width = 40
      Height = 13
      Caption = 'Oznaka:'
    end
    object Label2: TLabel
      Left = 188
      Top = 4
      Width = 57
      Height = 13
      Caption = 'Proizvo�a�:'
    end
    object DBText3: TMyDBText
      Left = 40
      Top = 4
      Width = 137
      Height = 13
      DataField = 'Sifra'
      DataSource = sSifRobe
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object DBText4: TMyDBText
      Left = 252
      Top = 4
      Width = 169
      Height = 13
      DataField = 'Sifra'
      DataSource = sFirme
    end
    object DBText5: TMyDBText
      Left = 476
      Top = 4
      Width = 149
      Height = 13
      DataField = 'Sifra'
      DataSource = sSifRobe2
    end
    object DBText1: TMyDBText
      Left = 12
      Top = 24
      Width = 357
      Height = 13
      DataField = 'Naziv'
      DataSource = sImeRobe
    end
    object Label1: TLabel
      Left = 172
      Top = 278
      Width = 95
      Height = 13
      Caption = 'Nabavna vrijednost:'
    end
    object Label3: TLabel
      Left = 408
      Top = 278
      Width = 65
      Height = 13
      Caption = 'VP vrijednost:'
    end
    object DBText2: TMyDBText
      Left = 272
      Top = 278
      Width = 121
      Height = 13
      Alignment = taRightJustify
      DataField = 'NV'
      DataSource = sKartica
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object DBText6: TMyDBText
      Left = 476
      Top = 278
      Width = 125
      Height = 13
      Alignment = taRightJustify
      DataField = 'VPV'
      DataSource = sKartica
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Bevel7: TBevel
      Left = 401
      Top = 274
      Width = 3
      Height = 22
      Shape = bsLeftLine
    end
    object Label4: TLabel
      Left = 20
      Top = 278
      Width = 40
      Height = 13
      Caption = 'Koli�ina:'
    end
    object DBText7: TMyDBText
      Left = 64
      Top = 278
      Width = 97
      Height = 13
      Alignment = taRightJustify
      DataField = 'Kolicina'
      DataSource = sKartica
    end
    object Bevel8: TBevel
      Left = 165
      Top = 273
      Width = 3
      Height = 22
      Shape = bsLeftLine
    end
    object Bevel13: TBevel
      Left = 4
      Top = 44
      Width = 625
      Height = 21
    end
    object DBText8: TMyDBText
      Left = 36
      Top = 48
      Width = 85
      Height = 13
      Alignment = taRightJustify
      DataField = 'Ulaz'
      DataSource = sZaliha
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object DBText9: TMyDBText
      Left = 408
      Top = 48
      Width = 85
      Height = 13
      Alignment = taRightJustify
      DataField = 'Izlaz'
      DataSource = sZaliha
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object DBText10: TMyDBText
      Left = 168
      Top = 48
      Width = 77
      Height = 13
      Alignment = taRightJustify
      DataField = 'Prijem'
      DataSource = sZaliha
    end
    object Prijenos: TMyDBText
      Left = 300
      Top = 48
      Width = 69
      Height = 13
      Alignment = taRightJustify
      DataField = 'Prijenos'
      DataSource = sZaliha
    end
    object DBText11: TMyDBText
      Left = 536
      Top = 48
      Width = 89
      Height = 13
      Alignment = taRightJustify
      DataField = 'Kolicina'
      DataSource = sZaliha
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label5: TLabel
      Left = 8
      Top = 48
      Width = 24
      Height = 13
      Caption = 'Ulaz:'
    end
    object Label6: TLabel
      Left = 380
      Top = 48
      Width = 24
      Height = 13
      Caption = 'Izlaz:'
    end
    object Label7: TLabel
      Left = 132
      Top = 48
      Width = 31
      Height = 13
      Caption = 'Prijem:'
    end
    object Label8: TLabel
      Left = 256
      Top = 48
      Width = 40
      Height = 13
      Caption = 'Prijenos:'
    end
    object Label9: TLabel
      Left = 504
      Top = 48
      Width = 32
      Height = 13
      Caption = 'Zaliha:'
    end
    object Bevel14: TBevel
      Left = 125
      Top = 44
      Width = 3
      Height = 21
      Shape = bsLeftLine
    end
    object Bevel15: TBevel
      Left = 249
      Top = 44
      Width = 3
      Height = 21
      Shape = bsLeftLine
    end
    object Bevel16: TBevel
      Left = 373
      Top = 44
      Width = 3
      Height = 21
      Shape = bsLeftLine
    end
    object Bevel17: TBevel
      Left = 497
      Top = 44
      Width = 3
      Height = 21
      Shape = bsLeftLine
    end
    object xBoje2: TDBChecker
      Left = 380
      Top = 24
      Width = 129
      Height = 13
      TabStop = False
      Caption = 'Proizvodi se u vi�e boja'
      DataField = 'Bezbojno'
      DataSource = sRoba
      Enabled = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      ValueChecked = 'True'
      ValueUnchecked = 'False'
      OnEnter = PrintKartica
    end
    object xOtkup1: TDBChecker
      Left = 516
      Top = 24
      Width = 109
      Height = 13
      TabStop = False
      Caption = 'Otkup od gra�ana'
      DataField = 'Otkup'
      DataSource = sSifRobe
      Enabled = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      ValueChecked = 'D'
      ValueUnchecked = 'N'
    end
    object gStavke: TMyDBGrid
      Left = 4
      Top = 66
      Width = 624
      Height = 93
      FindByName = True
      Ctl3D = True
      DataSource = sSaldoX
      Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      ParentCtl3D = False
      TabOrder = 2
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clBlack
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
    end
    object gKartice: TMyDBGrid
      Left = 4
      Top = 160
      Width = 625
      Height = 111
      FindByName = True
      Ctl3D = True
      DataSource = sKartica
      Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      ParentCtl3D = False
      TabOrder = 3
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clBlack
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
    end
  end
  object sSifPart: TDataSource
    DataSet = tSifPart
    Left = 48
    Top = 48
  end
  object sSifRobe: TDataSource
    DataSet = tSifRobe
    Left = 364
    Top = 48
  end
  object sRoba: TDataSource
    DataSet = tRoba
    Left = 492
    Top = 48
  end
  object sFirme: TDataSource
    DataSet = tFirme
    Left = 364
    Top = 84
  end
  object sSifRobe2: TDataSource
    DataSet = tSifRobe2
    Left = 428
    Top = 48
  end
  object sImeRobe: TDataSource
    DataSet = tImeRobe
    Left = 556
    Top = 48
  end
  object sSkladiste: TDataSource
    DataSet = tSkladiste
    Left = 236
    Top = 72
  end
  object sSaldoX: TDataSource
    DataSet = tSaldoX
    Left = 132
    Top = 232
  end
  object sKartica: TDataSource
    DataSet = tKartica
    Left = 112
    Top = 340
  end
  object sZaliha: TDataSource
    DataSet = tZaliha
    Left = 396
    Top = 116
  end
  object tRoba: TMyTable
    OnCalcFields = tRobaCalcFields
    DatabaseName = 'Global'
    IndexFieldNames = 'CODE'
    MasterFields = 'CODE'
    MasterSource = sSifRobe2
    TableName = 'ROBA.DB'
    AutoOpen = True
    AutoFlush = False
    FreeToModify = False
    FreeToDelete = False
    FreeToInsert = False
    Left = 464
    Top = 48
    object tRobaCode: TAutoIncField
      FieldName = 'Code'
    end
    object tRobaProizvodi: TIntegerField
      FieldName = 'Proizvodi'
    end
    object tRobaNaziv: TStringField
      FieldName = 'Naziv'
      Size = 60
    end
    object tRobaTarifaPoreza: TIntegerField
      FieldName = 'TarifaPoreza'
    end
    object tRobaTarifaCarine: TIntegerField
      FieldName = 'TarifaCarine'
    end
    object tRobaVrsta: TIntegerField
      FieldName = 'Vrsta'
    end
    object tRobaJedMj: TIntegerField
      FieldName = 'JedMj'
    end
    object tRobaPakiranje: TIntegerField
      FieldName = 'Pakiranje'
    end
    object tRobaBarKod: TStringField
      FieldName = 'BarKod'
      Size = 13
    end
    object tRobaTezina: TFloatField
      FieldName = 'Tezina'
      Precision = 9
    end
    object tRobaBezbojno: TBooleanField
      FieldName = 'Bezbojno'
    end
    object tRobaGovor: TIntegerField
      FieldName = 'Govor'
      Visible = False
      Calculated = True
    end
    object tRobaPartner: TIntegerField
      FieldName = 'Partner'
      Visible = False
      Calculated = True
    end
    object tRobaGovor2: TIntegerField
      FieldName = 'Govor2'
      Visible = False
      Calculated = True
    end
  end
  object tSifRobe2: TMyTable
    DatabaseName = 'Global'
    IndexFieldNames = 'PARTNER;CODE'
    MasterFields = 'PROIZVODI;CODE'
    MasterSource = sSifRobe
    TableName = 'SIF_ROBE.DB'
    AutoOpen = True
    AutoFlush = False
    FreeToModify = False
    FreeToDelete = False
    FreeToInsert = False
    Left = 400
    Top = 48
    object tSifRobe2Partner: TIntegerField
      FieldName = 'Partner'
    end
    object tSifRobe2Sifra: TStringField
      FieldName = 'Sifra'
      Size = 40
    end
    object tSifRobe2Code: TIntegerField
      FieldName = 'Code'
    end
    object tSifRobe2Proizvodi: TIntegerField
      FieldName = 'Proizvodi'
    end
    object tSifRobe2Grupa: TIntegerField
      FieldName = 'Grupa'
    end
    object tSifRobe2PodGrupa: TIntegerField
      FieldName = 'PodGrupa'
    end
    object tSifRobe2Amortizacija: TIntegerField
      FieldName = 'Amortizacija'
    end
    object tSifRobe2Revalorizacija: TIntegerField
      FieldName = 'Revalorizacija'
    end
    object tSifRobe2Naziv: TStringField
      FieldName = 'Naziv'
      Size = 60
    end
    object tSifRobe2Otkup: TStringField
      FieldName = 'Otkup'
      Visible = False
      Size = 1
    end
  end
  object tFirme: TMyTable
    DatabaseName = 'Global'
    IndexFieldNames = 'PARTNER'
    MasterFields = 'PROIZVODI'
    MasterSource = sSifRobe
    TableName = 'FIRME.DB'
    AutoOpen = True
    AutoFlush = False
    FreeToModify = False
    FreeToDelete = False
    FreeToInsert = False
    Left = 336
    Top = 84
    object tFirmeSifra: TStringField
      FieldName = 'Sifra'
      Size = 40
    end
    object tFirmePartner: TIntegerField
      FieldName = 'Partner'
    end
    object tFirmeBarKodOsnova: TStringField
      FieldName = 'BarKodOsnova'
      Size = 10
    end
    object tFirmeBarKodVelicina: TSmallintField
      FieldName = 'BarKodVelicina'
    end
  end
  object tSifRobe: TMyTable
    OnCalcFields = tSifRobeCalcFields
    DatabaseName = 'Global'
    IndexFieldNames = 'PARTNER;SIFRA'
    MasterFields = 'Partner'
    MasterSource = sSifPart
    TableName = 'SIF_ROBE.DB'
    AutoOpen = True
    AutoFlush = False
    FreeToModify = False
    FreeToDelete = False
    FreeToInsert = False
    Left = 336
    Top = 48
    object tSifRobePartner: TIntegerField
      FieldName = 'Partner'
      Visible = False
    end
    object tSifRobeSifra: TStringField
      DisplayLabel = '�ifra artikla'
      DisplayWidth = 15
      FieldName = 'Sifra'
      Size = 40
    end
    object tSifRobeCode: TIntegerField
      FieldName = 'Code'
      Visible = False
    end
    object tSifRobeProizvodi: TIntegerField
      FieldName = 'Proizvodi'
      Visible = False
    end
    object tSifRobeGrupa: TIntegerField
      FieldName = 'Grupa'
      Visible = False
    end
    object tSifRobePodGrupa: TIntegerField
      FieldName = 'PodGrupa'
      Visible = False
    end
    object tSifRobeAmortizacija: TIntegerField
      FieldName = 'Amortizacija'
      Visible = False
    end
    object tSifRobeRevalorizacija: TIntegerField
      FieldName = 'Revalorizacija'
      Visible = False
    end
    object tSifRobeNaziv: TStringField
      DisplayLabel = 'Naziv artikla'
      DisplayWidth = 20
      FieldName = 'Naziv'
      Size = 60
    end
    object tSifRobeOtkup: TStringField
      DisplayLabel = 'O'
      FieldName = 'Otkup'
      Visible = False
      Size = 1
    end
    object tSifRobeSkladiste: TIntegerField
      FieldName = 'Skladiste'
      Visible = False
      Calculated = True
    end
    object tSifRobeZaliha: TFloatField
      DisplayWidth = 10
      FieldName = 'Zaliha'
      Calculated = True
    end
  end
  object tSifPart: TMyTable
    DatabaseName = 'Lokal'
    IndexFieldNames = 'Dobavljac;Sifra'
    TableName = 'SIF_PART.DB'
    AutoOpen = True
    AutoFlush = False
    FreeToModify = False
    FreeToDelete = False
    FreeToInsert = False
    Left = 20
    Top = 48
    object tSifPartSifra: TStringField
      DisplayLabel = 'Partner (�ifra)'
      DisplayWidth = 25
      FieldName = 'Sifra'
      Size = 40
    end
    object tSifPartDobavljac: TStringField
      FieldName = 'Dobavljac'
      Visible = False
      Size = 1
    end
    object tSifPartDrzava: TStringField
      FieldName = 'Drzava'
      Visible = False
      Size = 1
    end
    object tSifPartPartner: TIntegerField
      FieldName = 'Partner'
      Visible = False
    end
    object tSifPartGovor: TIntegerField
      FieldName = 'Govor'
      Visible = False
    end
  end
  object tImeRobe: TMyTable
    DatabaseName = 'Global'
    IndexFieldNames = 'Roba;Govor'
    MasterFields = 'Code;Govor'
    MasterSource = sRoba
    TableName = 'IME_ROBE.DB'
    AutoOpen = True
    AutoFlush = False
    FreeToModify = False
    FreeToDelete = False
    FreeToInsert = False
    Left = 528
    Top = 48
    object tImeRobeRoba: TIntegerField
      FieldName = 'Roba'
    end
    object tImeRobeGovor: TIntegerField
      FieldName = 'Govor'
    end
    object tImeRobeNaziv: TStringField
      FieldName = 'Naziv'
      OnGetText = tImeRobeNazivGetText
      Size = 60
    end
  end
  object tSaldoX: TMyTable
    OnCalcFields = tSaldoXCalcFields
    DatabaseName = 'Lokal'
    IndexFieldNames = 'Skladiste;Artikl;Boja;MinKol'
    MasterFields = 'Skladiste;Code'
    MasterSource = sSifRobe
    TableName = 'SALDOX.DB'
    AutoOpen = True
    AutoFlush = False
    FreeToModify = False
    FreeToDelete = False
    FreeToInsert = False
    Left = 104
    Top = 232
    object tSaldoXSkladist: TStringField
      DisplayLabel = 'Skladi�te'
      DisplayWidth = 12
      FieldName = 'Skladist'
      Calculated = True
    end
    object tSaldoXArtikl: TIntegerField
      FieldName = 'Artikl'
      Visible = False
    end
    object tSaldoXSkladiste: TIntegerField
      FieldName = 'Skladiste'
      Visible = False
    end
    object tSaldoXVrsta: TSmallintField
      DisplayLabel = 'V'
      DisplayWidth = 1
      FieldName = 'Vrsta'
      Visible = False
    end
    object tSaldoXBojica: TStringField
      DisplayLabel = 'Boja'
      DisplayWidth = 14
      FieldName = 'Bojica'
      Calculated = True
    end
    object tSaldoXBoja: TIntegerField
      DisplayWidth = 15
      FieldName = 'Boja'
      Visible = False
    end
    object tSaldoXMinKol: TFloatField
      DisplayLabel = 'Min. kol.'
      DisplayWidth = 7
      FieldName = 'MinKol'
      Precision = 9
    end
    object tSaldoXUlaz: TFloatField
      DisplayWidth = 12
      FieldName = 'Ulaz'
      Precision = 9
    end
    object tSaldoXPrijem: TFloatField
      DisplayWidth = 12
      FieldName = 'Prijem'
      Precision = 9
    end
    object tSaldoXPrijenos: TFloatField
      DisplayWidth = 12
      FieldName = 'Prijenos'
      Precision = 9
    end
    object tSaldoXIzlaz: TFloatField
      DisplayWidth = 12
      FieldName = 'Izlaz'
      Precision = 9
    end
    object tSaldoXKolicina: TFloatField
      DisplayLabel = 'Zaliha'
      DisplayWidth = 11
      FieldName = 'Kolicina'
      Precision = 9
    end
  end
  object tKartica: TMyTable
    OnCalcFields = tKarticaCalcFields
    DatabaseName = 'Lokal'
    IndexFieldNames = 'Skladiste;Artikl;Boja;MinKol;Datum;Vrsta;BrojDok;Stavka;Svrha'
    MasterFields = 'Skladiste;Artikl;Boja;MinKol'
    MasterSource = sSaldoX
    TableName = 'IZLAZR.DB'
    AutoOpen = True
    AutoFlush = False
    FreeToModify = False
    FreeToDelete = False
    FreeToInsert = False
    Left = 84
    Top = 340
    object tKarticaSkladiste: TIntegerField
      FieldName = 'Skladiste'
      Visible = False
    end
    object tKarticaArtikl: TIntegerField
      FieldName = 'Artikl'
      Visible = False
    end
    object tKarticaBoja: TIntegerField
      FieldName = 'Boja'
      Visible = False
    end
    object tKarticaMinKol: TFloatField
      FieldName = 'MinKol'
      Visible = False
    end
    object tKarticaDatum: TDateField
      DisplayWidth = 10
      FieldName = 'Datum'
    end
    object tKarticaVrsta: TSmallintField
      FieldName = 'Vrsta'
      Visible = False
    end
    object tKarticaImeDok: TStringField
      DisplayLabel = 'Dokument'
      DisplayWidth = 11
      FieldName = 'ImeDok'
      Calculated = True
    end
    object tKarticaOpis: TStringField
      DisplayWidth = 10
      FieldName = 'Opis'
      Calculated = True
    end
    object tKarticaImeKalk: TStringField
      DisplayLabel = 'Kalkulacija'
      DisplayWidth = 11
      FieldName = 'ImeKalk'
      Calculated = True
    end
    object tKarticaBrojDok: TIntegerField
      DisplayLabel = 'Dokument'
      FieldName = 'BrojDok'
      Visible = False
    end
    object tKarticaSvrha: TSmallintField
      DisplayLabel = 'Opis'
      DisplayWidth = 5
      FieldName = 'Svrha'
      Visible = False
    end
    object tKarticaStavka: TSmallintField
      FieldName = 'Stavka'
      Visible = False
    end
    object tKarticaUlazDok: TIntegerField
      DisplayLabel = 'Kalkulacija'
      FieldName = 'UlazDok'
      Visible = False
    end
    object tKarticaCijena: TFloatField
      Tag = 2
      DisplayLabel = 'Nabavna cijena'
      DisplayWidth = 14
      FieldName = 'Cijena'
      Calculated = True
    end
    object tKarticaVPCijena: TFloatField
      Tag = 2
      DisplayLabel = 'VP cijena'
      DisplayWidth = 14
      FieldName = 'VPCijena'
      Calculated = True
    end
    object tKarticaUlaz: TFloatField
      DisplayWidth = 11
      FieldName = 'Ulaz'
    end
    object tKarticaIzlaz: TFloatField
      DisplayWidth = 11
      FieldName = 'Izlaz'
    end
    object tKarticaNV: TFloatField
      Tag = -1
      DisplayLabel = 'Nabavna vrijednost'
      DisplayWidth = 16
      FieldName = 'NV'
      Visible = False
    end
    object tKarticaVPV: TFloatField
      Tag = -1
      DisplayLabel = 'VP vrijednost'
      DisplayWidth = 16
      FieldName = 'VPV'
      Visible = False
    end
    object tKarticaKolicina: TFloatField
      FieldName = 'Kolicina'
      Visible = False
      Calculated = True
    end
  end
  object tSkladiste: TMyTable
    DatabaseName = 'Lokal'
    IndexFieldNames = 'Sifra'
    TableName = 'SKLADIST.DB'
    AutoOpen = True
    AutoFlush = False
    FreeToModify = False
    FreeToDelete = False
    FreeToInsert = False
    Left = 208
    Top = 72
    object tSkladisteCode: TAutoIncField
      FieldName = 'Code'
      Visible = False
    end
    object tSkladisteSifra: TStringField
      DisplayLabel = 'Skladi�te'
      DisplayWidth = 14
      FieldName = 'Sifra'
      Size = 40
    end
    object tSkladisteNaziv: TStringField
      FieldName = 'Naziv'
      Visible = False
      Size = 80
    end
  end
  object tZaliha: TMyTable
    DatabaseName = 'Lokal'
    IndexFieldNames = 'Skladiste;Artikl'
    MasterFields = 'Skladiste;Code'
    MasterSource = sSifRobe
    TableName = 'S_ZALIHE.DB'
    AutoOpen = True
    AutoFlush = False
    FreeToModify = False
    FreeToDelete = False
    FreeToInsert = False
    Left = 368
    Top = 116
    object IntegerField1: TIntegerField
      FieldName = 'Skladiste'
    end
    object IntegerField2: TIntegerField
      FieldName = 'Artikl'
    end
    object FloatField1: TFloatField
      FieldName = 'Kolicina'
    end
    object tZalihaUlaz: TFloatField
      FieldName = 'Ulaz'
    end
    object tZalihaIzlaz: TFloatField
      FieldName = 'Izlaz'
    end
    object tZalihaPrijem: TFloatField
      FieldName = 'Prijem'
    end
    object tZalihaPrijenos: TFloatField
      FieldName = 'Prijenos'
    end
  end
  object tBoje: TMyTable
    DatabaseName = 'Global'
    IndexFieldNames = 'PARTNER;PROIZVODI;CODE'
    TableName = 'SIF_BOJA.DB'
    AutoOpen = True
    AutoFlush = False
    FreeToModify = False
    FreeToDelete = False
    FreeToInsert = False
    Left = 132
    Top = 260
    object tBojePartner: TIntegerField
      FieldName = 'Partner'
    end
    object tBojeProizvodi: TIntegerField
      FieldName = 'Proizvodi'
    end
    object tBojeSifra: TStringField
      FieldName = 'Sifra'
      Size = 40
    end
    object tBojeCode: TIntegerField
      FieldName = 'Code'
    end
    object tBojeNaziv: TStringField
      FieldName = 'Naziv'
      Size = 60
    end
  end
  object tCodes: TMyTable
    OnCalcFields = tCodesCalcFields
    DatabaseName = 'Lokal'
    IndexFieldNames = 'Code'
    TableName = 'CODES.DB'
    AutoOpen = True
    AutoFlush = False
    FreeToModify = False
    FreeToDelete = False
    FreeToInsert = False
    Left = 84
    Top = 368
    object tCodesCode: TAutoIncField
      FieldName = 'Code'
    end
    object tCodesKnjizeno: TStringField
      FieldName = 'Knjizeno'
      Size = 1
    end
    object tCodesVrsta: TSmallintField
      FieldName = 'Vrsta'
    end
    object tCodesBroj: TIntegerField
      FieldName = 'Broj'
    end
    object tCodesOpis: TStringField
      FieldName = 'Opis'
      Calculated = True
    end
  end
  object tSkladist: TMyTable
    DatabaseName = 'Lokal'
    IndexFieldNames = 'Code'
    TableName = 'SKLADIST.DB'
    AutoOpen = True
    AutoFlush = False
    FreeToModify = False
    FreeToDelete = False
    FreeToInsert = False
    Left = 104
    Top = 260
    object tSkladistCode: TAutoIncField
      FieldName = 'Code'
    end
    object tSkladistSifra: TStringField
      FieldName = 'Sifra'
      Size = 40
    end
    object tSkladistNaziv: TStringField
      FieldName = 'Naziv'
      Size = 80
    end
  end
  object tZalihe: TMyTable
    DatabaseName = 'Lokal'
    IndexFieldNames = 'Skladiste;Artikl'
    TableName = 'S_ZALIHE.DB'
    AutoOpen = True
    AutoFlush = False
    FreeToModify = False
    FreeToDelete = False
    FreeToInsert = False
    Left = 336
    Top = 116
    object tZaliheSkladiste: TIntegerField
      FieldName = 'Skladiste'
    end
    object tZaliheArtikl: TIntegerField
      FieldName = 'Artikl'
    end
    object tZaliheKolicina: TFloatField
      FieldName = 'Kolicina'
    end
  end
  object tJedinice: TMyTable
    AutoCalcFields = False
    OnCalcFields = tJediniceCalcFields
    DatabaseName = 'Global'
    IndexFieldNames = 'Code'
    MasterFields = 'JedMj'
    MasterSource = sRoba
    TableName = 'JEDINICE.DB'
    AutoOpen = True
    AutoFlush = True
    FreeToModify = False
    FreeToDelete = True
    FreeToInsert = True
    Left = 408
    Top = 84
    object tJediniceCode: TAutoIncField
      FieldName = 'Code'
    end
    object tJediniceSifra: TStringField
      FieldName = 'Sifra'
      Size = 40
    end
    object tJediniceGovor: TIntegerField
      FieldName = 'Govor'
      Calculated = True
    end
  end
  object sJedinice: TDataSource
    DataSet = tJedinice
    Left = 436
    Top = 84
  end
  object tMjere: TMyTable
    DatabaseName = 'Global'
    IndexFieldNames = 'Jedinica;Govor'
    MasterFields = 'Code;Govor'
    MasterSource = sJedinice
    TableName = 'MJERE.DB'
    AutoOpen = True
    AutoFlush = True
    FreeToModify = False
    FreeToDelete = True
    FreeToInsert = True
    Left = 472
    Top = 84
    object tMjereJedinica: TIntegerField
      FieldName = 'Jedinica'
    end
    object tMjereGovor: TIntegerField
      FieldName = 'Govor'
    end
    object tMjereNaziv: TStringField
      FieldName = 'Naziv'
      OnGetText = tMjereNazivGetText
      Size = 60
    end
  end
  object sMjere: TDataSource
    DataSet = tMjere
    Left = 500
    Top = 84
  end
  object tBoja: TMyTable
    AutoCalcFields = False
    OnCalcFields = tBojaCalcFields
    DatabaseName = 'Global'
    IndexFieldNames = 'Code'
    MasterFields = 'Boja'
    MasterSource = sSaldoX
    TableName = 'BOJE.DB'
    AutoOpen = True
    AutoFlush = True
    FreeToModify = False
    FreeToDelete = True
    FreeToInsert = True
    Left = 256
    Top = 228
    object tBojaCode: TAutoIncField
      FieldName = 'Code'
    end
    object tBojaProizvodi: TIntegerField
      FieldName = 'Proizvodi'
    end
    object tBojaNaziv: TStringField
      FieldName = 'Naziv'
      Size = 60
    end
    object tBojaGovor: TIntegerField
      FieldName = 'Govor'
      Calculated = True
    end
  end
  object sBoja: TDataSource
    DataSet = tBoja
    Left = 284
    Top = 228
  end
  object tImeBoje: TMyTable
    DatabaseName = 'Global'
    IndexFieldNames = 'Boja;Govor'
    MasterFields = 'Code;Govor'
    MasterSource = sBoja
    TableName = 'IME_BOJA.DB'
    AutoOpen = True
    AutoFlush = True
    FreeToModify = False
    FreeToDelete = True
    FreeToInsert = True
    Left = 256
    Top = 260
    object tImeBojeBoja: TIntegerField
      FieldName = 'Boja'
    end
    object tImeBojeGovor: TIntegerField
      FieldName = 'Govor'
    end
    object tImeBojeNaziv: TStringField
      FieldName = 'Naziv'
      Size = 60
    end
  end
  object sImeBoje: TDataSource
    DataSet = tImeBoje
    Left = 284
    Top = 260
  end
  object tIzlazi: TMyTable
    DatabaseName = 'Lokal'
    IndexFieldNames = 'Artikl;Boja;MinKol;Vrsta;Skladiste;VPC;RUC;Dok;UFAbroj'
    MasterFields = 'Artikl;Boja;MinKol;Vrsta;Skladiste'
    MasterSource = sSaldoX
    TableName = 'IZLAZI.DB'
    AutoOpen = True
    AutoFlush = False
    FreeToModify = False
    FreeToDelete = False
    FreeToInsert = False
    Left = 168
    Top = 232
    object tIzlaziSkladiste: TIntegerField
      FieldName = 'Skladiste'
      Visible = False
    end
    object tIzlaziArtikl: TIntegerField
      FieldName = 'Artikl'
      Visible = False
    end
    object tIzlaziBoja: TIntegerField
      DisplayWidth = 6
      FieldName = 'Boja'
      Visible = False
    end
    object tIzlaziMinKol: TFloatField
      DisplayLabel = 'Min.kol.'
      DisplayWidth = 7
      FieldName = 'MinKol'
      Precision = 9
    end
    object tIzlaziVrsta: TSmallintField
      DisplayLabel = 'V'
      DisplayWidth = 1
      FieldName = 'Vrsta'
      Visible = False
    end
    object tIzlaziUFAbroj: TIntegerField
      DisplayLabel = 'Dokument'
      FieldName = 'UFAbroj'
      Visible = False
    end
    object tIzlaziVPC: TFloatField
      Tag = 2
      DisplayWidth = 12
      FieldName = 'VPC'
      Visible = False
      Precision = 9
    end
    object tIzlaziRUC: TFloatField
      Tag = 2
      DisplayWidth = 12
      FieldName = 'RUC'
      Visible = False
      Precision = 9
    end
    object tIzlaziFaktV: TFloatField
      Tag = -11
      FieldName = 'FaktV'
      Visible = False
      Precision = 9
    end
    object tIzlaziTrosakV: TFloatField
      Tag = -11
      FieldName = 'TrosakV'
      Visible = False
      Precision = 9
    end
    object tIzlaziRUCV: TFloatField
      Tag = -11
      FieldName = 'RUCV'
      Visible = False
      Precision = 9
    end
    object tIzlaziPorezV: TFloatField
      Tag = -11
      FieldName = 'PorezV'
      Visible = False
      Precision = 9
    end
    object tIzlaziPorez3V: TFloatField
      Tag = -11
      FieldName = 'Porez3V'
      Visible = False
      Precision = 9
    end
    object tIzlaziKolicina: TFloatField
      DisplayLabel = 'Zaliha'
      DisplayWidth = 10
      FieldName = 'Kolicina'
      Precision = 9
    end
    object tIzlaziDok: TIntegerField
      FieldName = 'Dok'
      Visible = False
    end
  end
end