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

Text File | 1998-01-05 | 35KB | 1,545 lines

object StanjeDobavljaca: TStanjeDobavljaca
  Tag = 1
  Left = 131
  Top = 99
  ActiveControl = gSifPart
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Kartice dobavlja�a'
  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
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel17: TBevel
    Left = 448
    Top = 212
    Width = 181
    Height = 30
  end
  object Bevel11: TBevel
    Left = 256
    Top = 196
    Width = 5
    Height = 21
    Shape = bsLeftLine
  end
  object Bevel10: TBevel
    Left = 64
    Top = 196
    Width = 377
    Height = 5
    Shape = bsTopLine
  end
  object Bevel5: TBevel
    Left = 64
    Top = 160
    Width = 5
    Height = 57
    Shape = bsLeftLine
  end
  object Bevel8: TBevel
    Left = 4
    Top = 160
    Width = 437
    Height = 5
    Shape = bsTopLine
    Style = bsRaised
  end
  object Bevel4: TBevel
    Left = 4
    Top = 140
    Width = 437
    Height = 77
    Shape = bsFrame
  end
  object Bevel23: TBevel
    Left = 448
    Top = 2
    Width = 181
    Height = 49
    Shape = bsFrame
  end
  object Bevel6: TBevel
    Left = 448
    Top = 49
    Width = 181
    Height = 21
    Shape = bsFrame
  end
  object Bevel24: TBevel
    Left = 448
    Top = 72
    Width = 181
    Height = 49
    Shape = bsFrame
  end
  object Bevel7: TBevel
    Left = 448
    Top = 119
    Width = 181
    Height = 21
    Shape = bsFrame
  end
  object Bevel19: TBevel
    Left = 448
    Top = 142
    Width = 181
    Height = 49
    Shape = bsFrame
  end
  object Bevel22: TBevel
    Left = 448
    Top = 189
    Width = 181
    Height = 21
    Shape = bsFrame
  end
  object Bevel2: TBevel
    Left = 144
    Top = 116
    Width = 217
    Height = 21
    Style = bsRaised
  end
  object Bevel1: TBevel
    Left = 4
    Top = 116
    Width = 137
    Height = 21
    Style = bsRaised
  end
  object Label1: TLabel
    Left = 8
    Top = 120
    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 Label4: TLabel
    Left = 148
    Top = 120
    Width = 55
    Height = 13
    Caption = 'Kra�i naziv:'
  end
  object Label6: TLabel
    Left = 26
    Top = 164
    Width = 34
    Height = 13
    Caption = 'Mjesto:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = 13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label7: TLabel
    Left = 8
    Top = 180
    Width = 52
    Height = 13
    Caption = 'Ulica i broj:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = 13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label8: TLabel
    Left = 30
    Top = 200
    Width = 30
    Height = 13
    Caption = 'Po�ta:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = 13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label9: TLabel
    Left = 264
    Top = 200
    Width = 34
    Height = 13
    Caption = 'Zemlja:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = 13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object lDug: TLabel
    Left = 452
    Top = 158
    Width = 37
    Height = 13
    Caption = 'Duguje:'
  end
  object lPotr: TLabel
    Left = 452
    Top = 174
    Width = 47
    Height = 13
    Caption = 'Potra�uje:'
  end
  object DBText1: TMyDBText
    Left = 496
    Top = 158
    Width = 125
    Height = 15
    Alignment = taRightJustify
    DataField = 'Duguje'
    DataSource = sStanjeS
  end
  object DBText2: TMyDBText
    Left = 508
    Top = 174
    Width = 113
    Height = 15
    Alignment = taRightJustify
    DataField = 'Potrazuje'
    DataSource = sStanjeS
  end
  object DBText9: TMyDBText
    Left = 484
    Top = 193
    Width = 138
    Height = 15
    Alignment = taRightJustify
    DataField = 'Saldo'
    DataSource = sStanjeS
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object DBText8: TMyDBText
    Left = 68
    Top = 200
    Width = 185
    Height = 14
    DataField = 'PostaBroj'
    DataSource = sPosta
  end
  object DBText16: TMyDBText
    Left = 300
    Top = 200
    Width = 137
    Height = 14
    DataField = 'Sifra'
    DataSource = sZemlja
  end
  object DBText17: TMyDBText
    Left = 68
    Top = 180
    Width = 369
    Height = 14
    DataField = 'UlicaBroj'
    DataSource = sPartner
  end
  object DBText18: TMyDBText
    Left = 68
    Top = 164
    Width = 369
    Height = 14
    DataField = 'Mjesto'
    DataSource = sPartner
  end
  object DBText19: TMyDBText
    Left = 8
    Top = 144
    Width = 429
    Height = 14
    DataField = 'Naziv'
    DataSource = sPartner
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object DBText20: TMyDBText
    Left = 208
    Top = 120
    Width = 149
    Height = 15
    DataField = 'Sifra'
    DataSource = sPartner
  end
  object DBText21: TMyDBText
    Left = 36
    Top = 120
    Width = 101
    Height = 15
    DataField = 'Sifra'
    DataSource = sSifPart2
  end
  object Bevel3: TBevel
    Left = 364
    Top = 116
    Width = 77
    Height = 21
    Style = bsRaised
  end
  object Label2: TLabel
    Left = 452
    Top = 193
    Width = 30
    Height = 13
    Caption = 'Saldo:'
  end
  object Label37: TLabel
    Left = 452
    Top = 53
    Width = 54
    Height = 13
    Caption = 'Saldo UFE:'
  end
  object Label46: TLabel
    Left = 452
    Top = 123
    Width = 49
    Height = 13
    Caption = 'Saldo IFE:'
  end
  object Label47: TLabel
    Left = 452
    Top = 18
    Width = 44
    Height = 13
    Caption = 'Kupljeno:'
  end
  object Label48: TLabel
    Left = 452
    Top = 34
    Width = 42
    Height = 13
    Caption = 'Pla�eno:'
  end
  object Label49: TLabel
    Left = 452
    Top = 88
    Width = 43
    Height = 13
    Caption = 'Prodano:'
  end
  object Label50: TLabel
    Left = 452
    Top = 104
    Width = 42
    Height = 13
    Caption = 'Pla�eno:'
  end
  object DBText14: TMyDBText
    Left = 508
    Top = 53
    Width = 113
    Height = 15
    Alignment = taRightJustify
    DataField = 'Saldo'
    DataSource = sStanjeU
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object DBText15: TMyDBText
    Left = 504
    Top = 123
    Width = 117
    Height = 15
    Alignment = taRightJustify
    DataField = 'Saldo'
    DataSource = sStanjeI
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label3: TLabel
    Left = 451
    Top = 144
    Width = 175
    Height = 13
    Alignment = taCenter
    AutoSize = False
    Caption = 'ZBIRNO'
    Color = clNavy
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
  end
  object Label5: TLabel
    Left = 451
    Top = 74
    Width = 175
    Height = 13
    Alignment = taCenter
    AutoSize = False
    Caption = 'IZLAZ'
    Color = clGreen
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
  end
  object Label10: TLabel
    Left = 451
    Top = 4
    Width = 175
    Height = 13
    Alignment = taCenter
    AutoSize = False
    Caption = 'ULAZ'
    Color = clRed
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
  end
  object DBText10: TMyDBText
    Left = 500
    Top = 18
    Width = 121
    Height = 14
    Alignment = taRightJustify
    DataField = 'Potrazuje'
    DataSource = sStanjeU
  end
  object DBText11: TMyDBText
    Left = 500
    Top = 34
    Width = 121
    Height = 14
    Alignment = taRightJustify
    DataField = 'Duguje'
    DataSource = sStanjeU
  end
  object DBText12: TMyDBText
    Left = 500
    Top = 88
    Width = 121
    Height = 14
    Alignment = taRightJustify
    DataField = 'Duguje'
    DataSource = sStanjeI
  end
  object DBText13: TMyDBText
    Left = 500
    Top = 104
    Width = 121
    Height = 14
    Alignment = taRightJustify
    DataField = 'Potrazuje'
    DataSource = sStanjeI
  end
  object Bevel15: TBevel
    Left = 12
    Top = 220
    Width = 421
    Height = 21
    Style = bsRaised
  end
  object Label12: TLabel
    Left = 20
    Top = 224
    Width = 148
    Height = 13
    Caption = 'Svi ra�uni partnera poredani po'
  end
  object PrintBtn: TSpeedButton
    Left = 449
    Top = 213
    Width = 88
    Height = 28
    Caption = 'Zbirno <F5>'
    Flat = True
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
      00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
      8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
      8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
      8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
      03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
      03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
      33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
      33333337FFFF7733333333300000033333333337777773333333}
    NumGlyphs = 2
    OnClick = PrintBtnClick
  end
  object PrintBtn2: TSpeedButton
    Left = 537
    Top = 213
    Width = 91
    Height = 28
    Caption = 'Odabir <F6>'
    Flat = True
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
      00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
      8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
      8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
      8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
      03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
      03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
      33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
      33333337FFFF7733333333300000033333333337777773333333}
    NumGlyphs = 2
    OnClick = PrintBtnClick
  end
  object xDrzava: TDBEdit
    Left = 396
    Top = 24
    Width = 17
    Height = 21
    TabStop = False
    DataField = 'Drzava'
    DataSource = sSifPart
    Enabled = False
    TabOrder = 0
    OnChange = xDrzavaChange
  end
  object gSifPart: TMyDBGrid
    Left = 4
    Top = 2
    Width = 437
    Height = 111
    FindByName = True
    Ctl3D = True
    DataSource = sSifPart
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgRowSelect, dgCancelOnExit]
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clBlack
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object xDobavljac: TDBChecker
    Left = 368
    Top = 120
    Width = 69
    Height = 13
    Caption = 'Dobavlja�'
    DataField = 'Dobavljac'
    DataSource = sSifPart
    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 = 'K'
  end
  object xValutacija: TCheckBox
    Left = 174
    Top = 224
    Width = 75
    Height = 13
    Caption = 'valutaciji'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    State = cbChecked
    TabOrder = 3
    OnClick = xValutacijaClick
  end
  object xDokumenti: TCheckBox
    Left = 252
    Top = 224
    Width = 176
    Height = 13
    Caption = 'uz dokumente i datume pla�anja.'
    TabOrder = 4
    OnClick = xDokumentiClick
  end
  object Book: TNotebook
    Left = 0
    Top = 244
    Width = 632
    Height = 209
    Align = alBottom
    PageIndex = 1
    TabOrder = 5
    object TPage
      Left = 0
      Top = 0
      Caption = 'Pojedinacno'
      object Bevel12: TBevel
        Left = 454
        Top = 116
        Width = 177
        Height = 89
        Shape = bsFrame
        Style = bsRaised
      end
      object Bevel9: TBevel
        Left = 552
        Top = 168
        Width = 5
        Height = 35
        Shape = bsLeftLine
      end
      object Bevel13: TBevel
        Left = 476
        Top = 168
        Width = 153
        Height = 5
        Shape = bsTopLine
      end
      object Bevel14: TBevel
        Left = 456
        Top = 134
        Width = 173
        Height = 5
        Shape = bsTopLine
      end
      object Bevel16: TBevel
        Left = 476
        Top = 136
        Width = 5
        Height = 67
        Shape = bsLeftLine
      end
      object DBText7: TMyDBText
        Left = 482
        Top = 152
        Width = 17
        Height = 14
        Alignment = taRightJustify
        DataField = 'Poziv'
        DataSource = sDok
      end
      object DBText22: TMyDBText
        Left = 504
        Top = 152
        Width = 123
        Height = 14
        DataField = 'Model'
        DataSource = sDok
      end
      object DBText23: TMyDBText
        Left = 480
        Top = 188
        Width = 69
        Height = 13
        Alignment = taCenter
        DataField = 'Valuta'
        DataSource = sDok
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object DBText24: TMyDBText
        Left = 520
        Top = 120
        Width = 105
        Height = 13
        Alignment = taRightJustify
        DataField = 'DevSaldo'
        DataSource = sDok
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label13: TLabel
        Left = 480
        Top = 172
        Width = 69
        Height = 13
        Alignment = taCenter
        AutoSize = False
        Caption = 'Datum DVO:'
      end
      object DBText26: TMyDBText
        Left = 556
        Top = 188
        Width = 69
        Height = 13
        Alignment = taCenter
        DataField = 'Valuta'
        DataSource = sDok
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label14: TLabel
        Left = 556
        Top = 172
        Width = 69
        Height = 13
        Alignment = taCenter
        AutoSize = False
        Caption = 'Valutacija:'
      end
      object DBText3: TMyDBText
        Left = 480
        Top = 137
        Width = 147
        Height = 14
        Alignment = taCenter
        DataField = 'Sifra'
        DataSource = sZiroRn
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object RotateLabel1: TRotateLabel
        Left = 458
        Top = 142
        Width = 16
        Height = 56
        Escapement = 90
        TextStyle = tsNone
        Caption = 'Pla�anje'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Arial CE'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label11: TLabel
        Left = 460
        Top = 120
        Width = 56
        Height = 13
        Caption = 'Dev. Saldo:'
      end
      object gStanje: TDBGrid2
        Left = 4
        Top = 0
        Width = 628
        Height = 111
        Ctl3D = True
        DataSource = sDok
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgRowSelect, dgCancelOnExit]
        ParentCtl3D = False
        ParentFont = False
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clBlack
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
      object gStavke: TDBGrid2
        Left = 4
        Top = 114
        Width = 447
        Height = 93
        Ctl3D = True
        DataSource = sDoks
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgRowSelect, dgCancelOnExit]
        ParentCtl3D = False
        ParentFont = False
        TabOrder = 1
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clBlack
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Zbirno'
      object gStanje2: TDBGrid2
        Left = 4
        Top = 0
        Width = 628
        Height = 201
        Ctl3D = True
        DataSource = sDok
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgRowSelect, dgCancelOnExit]
        ParentCtl3D = False
        ParentFont = False
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clBlack
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
    end
  end
  object NonVCContainer1: TNonVCContainer
    Left = 28
    Top = 28
    Columns = 10
    GridWidth = 43
    GridHeight = 42
    NameFont.Charset = DEFAULT_CHARSET
    NameFont.Color = clWindowText
    NameFont.Height = -9
    NameFont.Name = 'Arial'
    NameFont.Style = []
    NameBonus = 15
    SortBy = sbName
  end
  object sSifPart: TDataSource
    DataSet = tSifPart
    Left = 855
    Top = 45
  end
  object sPartner: TDataSource
    DataSet = tPartner
    Left = 769
    Top = 45
  end
  object sPosta: TDataSource
    DataSet = tPosta
    Left = 812
    Top = 45
  end
  object sZemlja: TDataSource
    DataSet = tZemlja
    Left = 640
    Top = 87
  end
  object sStanjeS: TDataSource
    DataSet = tStanjeS
    Left = 984
    Top = 45
  end
  object sStanjeU: TDataSource
    DataSet = tStanjeU
    Left = 1027
    Top = 45
  end
  object sStanjeI: TDataSource
    DataSet = tStanjeI
    Left = 941
    Top = 45
  end
  object sDok: TDataSource
    DataSet = tDok
    Left = 640
    Top = 45
  end
  object sSifPart2: TDataSource
    DataSet = tSifPart2
    Left = 898
    Top = 45
  end
  object sDoks: TDataSource
    DataSet = tDoks
    Enabled = False
    Left = 726
    Top = 45
  end
  object tPosta: TMyTable
    OnCalcFields = tPostaCalcFields
    DatabaseName = 'Global'
    IndexFieldNames = 'ZEMLJA;CODE'
    MasterFields = 'ZEMLJA;POSTA'
    MasterSource = sPartner
    TableName = 'POSTA.DB'
    AutoOpen = True
    AutoFlush = True
    FreeToModify = False
    FreeToDelete = False
    FreeToInsert = False
    Left = 898
    Top = 87
    object tPostaCode: TAutoIncField
      FieldName = 'Code'
    end
    object tPostaSifra: TStringField
      FieldName = 'Sifra'
      Size = 40
    end
    object tPostaZemlja: TIntegerField
      FieldName = 'Zemlja'
    end
    object tPostaBroj: TIntegerField
      Alignment = taLeftJustify
      FieldName = 'Broj'
    end
    object tPostaPostaBroj: TStringField
      FieldName = 'PostaBroj'
      Size = 80
      Calculated = True
    end
  end
  object tZemlja: TMyTable
    DatabaseName = 'Global'
    IndexFieldNames = 'CODE'
    MasterFields = 'ZEMLJA'
    MasterSource = sPartner
    TableName = 'ZEMLJA.DB'
    AutoOpen = True
    AutoFlush = True
    FreeToModify = False
    FreeToDelete = False
    FreeToInsert = False
    Left = 769
    Top = 129
    object tZemljaCode: TAutoIncField
      FieldName = 'Code'
    end
    object tZemljaSifra: TStringField
      FieldName = 'Sifra'
      Size = 50
    end
    object tZemljaGovor: TIntegerField
      FieldName = 'Govor'
    end
  end
  object tDok: TMyTable
    OnCalcFields = tDokCalcFields
    DatabaseName = 'Lokal'
    TableName = 'S_DOK.DB'
    AutoOpen = True
    AutoFlush = True
    FreeToModify = False
    FreeToDelete = False
    FreeToInsert = False
    Left = 769
    Top = 87
    object tDokPartner: TIntegerField
      FieldName = 'Partner'
      Visible = False
    end
    object tDokVrstaDok: TSmallintField
      FieldName = 'VrstaDok'
      Visible = False
    end
    object tDokBrojDok: TIntegerField
      FieldName = 'BrojDok'
      Visible = False
    end
    object tDokDok: TSmallintField
      Alignment = taCenter
      DisplayLabel = 'U/I'
      DisplayWidth = 2
      FieldName = 'Dok'
      OnGetText = tDokDokGetText
    end
    object tDokPoziv: TSmallintField
      DisplayLabel = 'Po'
      DisplayWidth = 2
      FieldName = 'Poziv'
      Visible = False
    end
    object tDokModel: TStringField
      DisplayWidth = 20
      FieldName = 'Model'
      Visible = False
      Size = 30
    end
    object tDokRacun: TStringField
      DisplayLabel = 'Ra�un broj'
      DisplayWidth = 19
      FieldName = 'Racun'
      Size = 30
    end
    object tDokDokument: TStringField
      DisplayWidth = 10
      FieldName = 'Dokument'
      Calculated = True
    end
    object tDokDatum: TDateField
      DisplayLabel = 'Datum DVO'
      DisplayWidth = 10
      FieldName = 'Datum'
    end
    object tDokValuta: TDateField
      DisplayLabel = 'Valutacija'
      DisplayWidth = 9
      FieldName = 'Valuta'
    end
    object tDokDuguje: TFloatField
      Tag = -11
      DisplayWidth = 14
      FieldName = 'Duguje'
    end
    object tDokPotrazuje: TFloatField
      Tag = -11
      DisplayLabel = 'Potra�uje'
      DisplayWidth = 14
      FieldName = 'Potrazuje'
    end
    object tDokSaldo: TFloatField
      Tag = -11
      DisplayWidth = 14
      FieldName = 'Saldo'
    end
    object tDokOpis: TStringField
      FieldName = 'Opis'
      Visible = False
      Size = 40
      Calculated = True
    end
    object tDokZiroRn: TIntegerField
      FieldName = 'ZiroRn'
      Visible = False
    end
    object tDokKonto: TIntegerField
      FieldName = 'Konto'
      Visible = False
    end
    object tDokDevSaldo: TFloatField
      Tag = -11
      FieldName = 'DevSaldo'
      Visible = False
    end
  end
  object tDoks: TMyTable
    OnCalcFields = tDoksCalcFields
    DatabaseName = 'Lokal'
    IndexFieldNames = 'Partner;Dok;BrojDok;Datum;Dokument'
    MasterFields = 'Partner;Dok;BrojDok'
    MasterSource = sDok2
    TableName = 'S_DOKS.DB'
    AutoOpen = True
    AutoFlush = True
    FreeToModify = False
    FreeToDelete = False
    FreeToInsert = False
    Left = 812
    Top = 87
    object tDoksPartner: TIntegerField
      FieldName = 'Partner'
      Visible = False
    end
    object tDoksDok: TSmallintField
      FieldName = 'Dok'
      Visible = False
    end
    object tDoksBrojDok: TIntegerField
      FieldName = 'BrojDok'
      Visible = False
    end
    object tDoksDatum: TDateField
      DisplayWidth = 10
      FieldName = 'Datum'
    end
    object tDoksDoku: TStringField
      DisplayLabel = 'Dokument'
      DisplayWidth = 10
      FieldName = 'Doku'
      Calculated = True
    end
    object tDoksDokument: TIntegerField
      FieldName = 'Dokument'
      Visible = False
    end
    object tDoksDuguje: TFloatField
      Tag = -11
      DisplayWidth = 15
      FieldName = 'Duguje'
    end
    object tDoksPotrazuje: TFloatField
      Tag = -11
      DisplayWidth = 15
      FieldName = 'Potrazuje'
    end
    object tDoksSaldo: TFloatField
      Tag = -11
      DisplayWidth = 15
      FieldName = 'Saldo'
    end
  end
  object tPartner: TMyTable
    DatabaseName = 'Global'
    IndexFieldNames = 'CODE'
    MasterFields = 'PARTNER'
    MasterSource = sDok
    TableName = 'PARTNER.DB'
    AutoOpen = True
    AutoFlush = True
    FreeToModify = False
    FreeToDelete = False
    FreeToInsert = False
    Left = 855
    Top = 87
    object tPartnerCode: TAutoIncField
      FieldName = 'Code'
    end
    object tPartnerSifra: TStringField
      FieldName = 'Sifra'
      Size = 40
    end
    object tPartnerNaziv: TStringField
      FieldName = 'Naziv'
      Size = 80
    end
    object tPartnerMjesto: TStringField
      FieldName = 'Mjesto'
      Size = 40
    end
    object tPartnerUlicaBroj: TStringField
      FieldName = 'UlicaBroj'
      Size = 60
    end
    object tPartnerPosta: TIntegerField
      FieldName = 'Posta'
    end
    object tPartnerZemlja: TIntegerField
      FieldName = 'Zemlja'
    end
    object tPartnerJezik: TIntegerField
      FieldName = 'Jezik'
    end
    object tPartnerTelefon: TStringField
      FieldName = 'Telefon'
    end
    object tPartnerTelefax: TStringField
      FieldName = 'Telefax'
    end
    object tPartnerMobitel: TStringField
      FieldName = 'Mobitel'
    end
    object tPartnerModem: TStringField
      FieldName = 'Modem'
    end
    object tPartnerKontaktOsoba: TStringField
      FieldName = 'KontaktOsoba'
      Size = 40
    end
    object tPartnerMaticni: TStringField
      FieldName = 'Maticni'
      Size = 30
    end
    object tPartnerDjelatnost: TIntegerField
      FieldName = 'Djelatnost'
    end
    object tPartnerBanka: TIntegerField
      FieldName = 'Banka'
    end
    object tPartnerInoBanka: TIntegerField
      FieldName = 'InoBanka'
    end
    object tPartnerValuta: TIntegerField
      FieldName = 'Valuta'
    end
    object tPartnerZiroRN: TIntegerField
      FieldName = 'ZiroRN'
    end
    object tPartnerPoziv: TSmallintField
      FieldName = 'Poziv'
    end
    object tPartnerModel: TStringField
      FieldName = 'Model'
      Size = 30
    end
    object tPartnerOstaliTelefoni: TMemoField
      FieldName = 'OstaliTelefoni'
      BlobType = ftMemo
      Size = 30
    end
    object tPartnerRabat2: TBooleanField
      FieldName = 'Rabat2'
    end
    object tPartnerRabat2Kolicina: TBooleanField
      FieldName = 'Rabat2Kolicina'
    end
  end
  object tSifPart: TMyTable
    OnCalcFields = tSifPartCalcFields
    DatabaseName = 'Lokal'
    IndexFieldNames = 'Dobavljac;Sifra'
    TableName = 'SIF_PART.DB'
    AutoOpen = True
    AutoFlush = True
    FreeToModify = False
    FreeToDelete = False
    FreeToInsert = False
    Left = 941
    Top = 87
    object tSifPartSifra: TStringField
      DisplayLabel = '�ifra partnera'
      DisplayWidth = 18
      FieldName = 'Sifra'
      Size = 40
    end
    object tSifPartDobavljac: TStringField
      Alignment = taCenter
      DisplayLabel = 'D/K'
      DisplayWidth = 3
      FieldName = 'Dobavljac'
      Size = 1
    end
    object tSifPartPartner: TIntegerField
      DisplayLabel = 'Veza'
      DisplayWidth = 10
      FieldName = 'Partner'
      Visible = False
    end
    object tSifPartDrzava: TStringField
      DisplayLabel = 'L'
      FieldName = 'Drzava'
      Visible = False
      Size = 1
    end
    object tSifPartNula: TIntegerField
      FieldName = 'Nula'
      Visible = False
      Calculated = True
    end
    object tSifPartVD_Ulaz: TIntegerField
      FieldName = 'VD_Ulaz'
      Visible = False
      Calculated = True
    end
    object tSifPartVD_Izlaz: TIntegerField
      FieldName = 'VD_Izlaz'
      Visible = False
      Calculated = True
    end
    object tSifPartDuguje: TFloatField
      Tag = -11
      DisplayWidth = 14
      FieldName = 'Duguje'
      Calculated = True
    end
    object tSifPartPotrazuje: TFloatField
      Tag = -11
      DisplayLabel = 'Potra�uje'
      DisplayWidth = 14
      FieldName = 'Potrazuje'
      Calculated = True
    end
    object tSifPartSaldo: TFloatField
      Tag = -11
      DisplayWidth = 14
      FieldName = 'Saldo'
      Calculated = True
    end
  end
  object tSifPart2: TMyTable
    OnCalcFields = tSifPartCalcFields
    DatabaseName = 'Lokal'
    IndexName = 'Partner'
    MasterFields = 'Code'
    MasterSource = sPartner
    TableName = 'SIF_PART.DB'
    AutoOpen = True
    AutoFlush = True
    FreeToModify = False
    FreeToDelete = False
    FreeToInsert = False
    Left = 984
    Top = 87
    object tSifPart2Sifra: TStringField
      FieldName = 'Sifra'
      Size = 40
    end
    object tSifPart2Partner: TIntegerField
      FieldName = 'Partner'
    end
    object tSifPart2Drzava: TStringField
      FieldName = 'Drzava'
      Size = 1
    end
  end
  object tStanjeS: TMyTable
    DatabaseName = 'Lokal'
    IndexFieldNames = 'Dok;OrgJed;Konto;Partner;OrgJedPart'
    MasterFields = 'Nula;Nula;Nula;Partner;Nula'
    MasterSource = sSifPart
    TableName = 'S_PART.DB'
    AutoOpen = True
    AutoFlush = True
    FreeToModify = False
    FreeToDelete = False
    FreeToInsert = False
    Left = 683
    Top = 129
    object tStanjeSDok: TSmallintField
      FieldName = 'Dok'
    end
    object tStanjeSOrgJed: TIntegerField
      FieldName = 'OrgJed'
    end
    object tStanjeSPartner: TIntegerField
      FieldName = 'Partner'
    end
    object tStanjeSOrgJedPart: TIntegerField
      FieldName = 'OrgJedPart'
    end
    object tStanjeSDuguje: TFloatField
      Tag = -11
      FieldName = 'Duguje'
    end
    object tStanjeSPotrazuje: TFloatField
      Tag = -11
      FieldName = 'Potrazuje'
    end
    object tStanjeSSaldo: TFloatField
      Tag = -11
      FieldName = 'Saldo'
    end
    object tStanjeSKonto: TIntegerField
      FieldName = 'Konto'
    end
  end
  object tStanjeU: TMyTable
    DatabaseName = 'Lokal'
    IndexFieldNames = 'Dok;OrgJed;Konto;Partner;OrgJedPart'
    MasterFields = 'VD_Ulaz;Nula;Nula;Partner;Nula'
    MasterSource = sSifPart
    TableName = 'S_PART.DB'
    AutoOpen = True
    AutoFlush = True
    FreeToModify = False
    FreeToDelete = False
    FreeToInsert = False
    Left = 726
    Top = 129
    object tStanjeUDok: TSmallintField
      FieldName = 'Dok'
    end
    object tStanjeUOrgJed: TIntegerField
      FieldName = 'OrgJed'
    end
    object tStanjeUPartner: TIntegerField
      FieldName = 'Partner'
    end
    object tStanjeUOrgJedPart: TIntegerField
      FieldName = 'OrgJedPart'
    end
    object tStanjeUDuguje: TFloatField
      Tag = -11
      FieldName = 'Duguje'
    end
    object tStanjeUPotrazuje: TFloatField
      Tag = -11
      FieldName = 'Potrazuje'
    end
    object tStanjeUSaldo: TFloatField
      Tag = -11
      FieldName = 'Saldo'
    end
    object tStanjeUKonto: TIntegerField
      FieldName = 'Konto'
    end
  end
  object tStanjeI: TMyTable
    DatabaseName = 'Lokal'
    IndexFieldNames = 'Dok;OrgJed;Konto;Partner;OrgJedPart'
    MasterFields = 'VD_Izlaz;Nula;Nula;Partner;Nula'
    MasterSource = sSifPart
    TableName = 'S_PART.DB'
    AutoOpen = True
    AutoFlush = True
    FreeToModify = False
    FreeToDelete = False
    FreeToInsert = False
    Left = 640
    Top = 129
    object tStanjeIDok: TSmallintField
      FieldName = 'Dok'
    end
    object tStanjeIOrgJed: TIntegerField
      FieldName = 'OrgJed'
    end
    object tStanjeIPartner: TIntegerField
      FieldName = 'Partner'
    end
    object tStanjeIOrgJedPart: TIntegerField
      FieldName = 'OrgJedPart'
    end
    object tStanjeIDuguje: TFloatField
      Tag = -11
      FieldName = 'Duguje'
    end
    object tStanjeIPotrazuje: TFloatField
      Tag = -11
      FieldName = 'Potrazuje'
    end
    object tStanjeISaldo: TFloatField
      Tag = -11
      FieldName = 'Saldo'
    end
    object tStanjeIKonto: TIntegerField
      FieldName = 'Konto'
    end
  end
  object tStanje: TMyTable
    DatabaseName = 'Lokal'
    IndexFieldNames = 'Dok;OrgJed;Konto;Partner;OrgJedPart'
    TableName = 'S_PART.DB'
    AutoOpen = True
    AutoFlush = True
    FreeToModify = False
    FreeToDelete = False
    FreeToInsert = False
    Left = 1027
    Top = 87
    object tStanjeDok: TSmallintField
      FieldName = 'Dok'
    end
    object tStanjeOrgJed: TIntegerField
      FieldName = 'OrgJed'
    end
    object tStanjePartner: TIntegerField
      FieldName = 'Partner'
    end
    object tStanjeOrgJedPart: TIntegerField
      FieldName = 'OrgJedPart'
    end
    object tStanjeDuguje: TFloatField
      FieldName = 'Duguje'
    end
    object tStanjePotrazuje: TFloatField
      FieldName = 'Potrazuje'
    end
    object tStanjeSaldo: TFloatField
      FieldName = 'Saldo'
    end
    object tStanjeKonto: TIntegerField
      FieldName = 'Konto'
    end
  end
  object tCodes: TMyTable
    OnCalcFields = tCodesCalcFields
    DatabaseName = 'Lokal'
    IndexFieldNames = 'Code'
    TableName = 'CODES.DB'
    AutoOpen = True
    AutoFlush = True
    FreeToModify = False
    FreeToDelete = False
    FreeToInsert = False
    Left = 726
    Top = 87
    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
    object tCodesFullOpis: TStringField
      FieldName = 'FullOpis'
      Size = 80
      Calculated = True
    end
  end
  object tZiroRn: TMyTable
    DatabaseName = 'Global'
    IndexFieldNames = 'Code'
    MasterFields = 'ZiroRn'
    MasterSource = sDok2
    TableName = 'ZIREKI.DB'
    AutoOpen = True
    AutoFlush = True
    FreeToModify = False
    FreeToDelete = False
    FreeToInsert = False
    Left = 812
    Top = 129
  end
  object sZiroRn: TDataSource
    DataSet = tZiroRn
    Enabled = False
    Left = 683
    Top = 87
  end
  object sDok2: TDataSource
    DataSet = tDok
    Enabled = False
    Left = 683
    Top = 45
  end
end