home *** CD-ROM | disk | FTP | other *** search
/ BUG 11 / BUGCD1998_02.ISO / aplic / trade / _setup.1 / main.exe / 0 / RCDATA / TDATAIFA2 / TDATAIFA2.txt
Text File  |  1998-01-05  |  39KB  |  1,644 lines

  1. object DataIfa2: TDataIfa2
  2.   Tag = 1
  3.   OnDestroy = DIzlaznaFakturaKomisijaDestroy
  4.   Left = 209
  5.   Top = 159
  6.   Height = 295
  7.   Width = 543
  8.   object sGlava: TDataSource
  9.     DataSet = tGlava
  10.     Left = 8
  11.     Top = 47
  12.   end
  13.   object sStavke: TDataSource
  14.     DataSet = tStavke
  15.     Left = 167
  16.     Top = 89
  17.   end
  18.   object sPartner: TDataSource
  19.     DataSet = tPartner
  20.     Left = 8
  21.     Top = 89
  22.   end
  23.   object sOrgJed: TDataSource
  24.     DataSet = tOrgJed
  25.     Left = 379
  26.     Top = 47
  27.   end
  28.   object sArtikl: TDataSource
  29.     DataSet = tArtikl
  30.     Left = 8
  31.     Top = 5
  32.   end
  33.   object sBoje: TDataSource
  34.     DataSet = tBoje
  35.     Left = 220
  36.     Top = 5
  37.   end
  38.   object sMjere: TDataSource
  39.     DataSet = tMjere
  40.     Left = 326
  41.     Top = 47
  42.   end
  43.   object sArtikl2: TDataSource
  44.     DataSet = tArtikl2
  45.     Left = 61
  46.     Top = 5
  47.   end
  48.   object sBoje2: TDataSource
  49.     DataSet = tBoje2
  50.     Left = 273
  51.     Top = 5
  52.   end
  53.   object sRoba: TDataSource
  54.     DataSet = tRoba
  55.     Left = 61
  56.     Top = 89
  57.   end
  58.   object sBoja: TDataSource
  59.     DataSet = tBoja
  60.     Left = 167
  61.     Top = 5
  62.   end
  63.   object sJedinice: TDataSource
  64.     DataSet = tJedinice
  65.     Left = 167
  66.     Top = 47
  67.   end
  68.   object sAtomi: TDataSource
  69.     DataSet = tAtomi
  70.     Left = 114
  71.     Top = 5
  72.   end
  73.   object sPart: TDataSource
  74.     DataSet = tPart
  75.     Left = 485
  76.     Top = 47
  77.   end
  78.   object sValuta: TDataSource
  79.     DataSet = DGlava.tValuta
  80.     Left = 220
  81.     Top = 89
  82.   end
  83.   object sImeRobe: TDataSource
  84.     DataSet = tImeRobe
  85.     Left = 114
  86.     Top = 47
  87.   end
  88.   object sImeBoje: TDataSource
  89.     DataSet = tImeBoje
  90.     Left = 61
  91.     Top = 47
  92.   end
  93.   object sKonto4: TDataSource
  94.     DataSet = tKonto4
  95.     Left = 220
  96.     Top = 47
  97.   end
  98.   object sSkladiste: TDataSource
  99.     DataSet = tSkladiste
  100.     Left = 114
  101.     Top = 89
  102.   end
  103.   object sPakung: TDataSource
  104.     DataSet = tPakung
  105.     Left = 432
  106.     Top = 47
  107.   end
  108.   object sKonto5: TDataSource
  109.     DataSet = tKonto5
  110.     Left = 273
  111.     Top = 47
  112.   end
  113.   object sCeneRobe: TDataSource
  114.     DataSet = tCeneRobe
  115.     Left = 326
  116.     Top = 5
  117.   end
  118.   object sCijene2: TDataSource
  119.     DataSet = tCijene2
  120.     Left = 379
  121.     Top = 5
  122.   end
  123.   object sCijeneX: TDataSource
  124.     DataSet = tCijeneX
  125.     Left = 432
  126.     Top = 5
  127.   end
  128.   object sCodes: TDataSource
  129.     DataSet = tCodes
  130.     Left = 485
  131.     Top = 5
  132.   end
  133.   object sxGlava: TDataSource
  134.     DataSet = xGlava
  135.     Left = 256
  136.     Top = 220
  137.   end
  138.   object tOrgJed: TMyTable
  139.     DatabaseName = 'Global'
  140.     IndexFieldNames = 'PARTNER;CODE'
  141.     MasterFields = 'KUPAC;ORGJEDKUP'
  142.     MasterSource = sGlava
  143.     TableName = 'ORG_JED.DB'
  144.     AutoOpen = True
  145.     AutoFlush = True
  146.     FreeToModify = False
  147.     FreeToDelete = True
  148.     FreeToInsert = True
  149.     Left = 220
  150.     Top = 173
  151.   end
  152.   object tKonto4: TMyTable
  153.     DatabaseName = 'Global'
  154.     IndexFieldNames = 'CODE'
  155.     MasterFields = 'KONTOTROSKA'
  156.     MasterSource = sGlava
  157.     TableName = 'KONTA.DB'
  158.     AutoOpen = True
  159.     AutoFlush = True
  160.     FreeToModify = False
  161.     FreeToDelete = True
  162.     FreeToInsert = True
  163.     Left = 61
  164.     Top = 173
  165.   end
  166.   object tSkladiste: TMyTable
  167.     DatabaseName = 'Lokal'
  168.     IndexFieldNames = 'MJESTO;VRSTATER;VLASNIK;CODE'
  169.     MasterFields = 'ZEM;VRSTA;JA;SKLADISTE'
  170.     MasterSource = sGlava
  171.     TableName = 'SKLADIST.DB'
  172.     AutoOpen = True
  173.     AutoFlush = True
  174.     FreeToModify = False
  175.     FreeToDelete = True
  176.     FreeToInsert = True
  177.     Left = 61
  178.     Top = 215
  179.     object tSkladisteNaziv: TStringField
  180.       FieldName = 'Naziv'
  181.       Visible = False
  182.       Size = 80
  183.     end
  184.     object tSkladisteVlasnik: TIntegerField
  185.       FieldName = 'Vlasnik'
  186.       Visible = False
  187.     end
  188.     object tSkladisteVrstaTer: TSmallintField
  189.       FieldName = 'VrstaTer'
  190.       Visible = False
  191.     end
  192.     object tSkladisteMjesto: TStringField
  193.       FieldName = 'Mjesto'
  194.       Size = 1
  195.     end
  196.     object tSkladisteLokacija: TIntegerField
  197.       FieldName = 'Lokacija'
  198.     end
  199.     object tSkladisteCode: TAutoIncField
  200.       FieldName = 'Code'
  201.     end
  202.     object tSkladisteSifra: TStringField
  203.       FieldName = 'Sifra'
  204.       Size = 40
  205.     end
  206.     object tSkladisteDrzava: TIntegerField
  207.       FieldName = 'Drzava'
  208.     end
  209.     object tSkladisteZarada: TSmallintField
  210.       FieldName = 'Zarada'
  211.     end
  212.     object tSkladisteVP_Sklad: TIntegerField
  213.       FieldName = 'VP_Sklad'
  214.     end
  215.     object tSkladisteItems: TIntegerField
  216.       FieldName = 'Items'
  217.     end
  218.   end
  219.   object tKonto5: TMyTable
  220.     DatabaseName = 'Global'
  221.     IndexFieldNames = 'CODE'
  222.     MasterFields = 'KONTOTROSKAD'
  223.     MasterSource = sGlava
  224.     TableName = 'KONTA.DB'
  225.     AutoOpen = True
  226.     AutoFlush = True
  227.     FreeToModify = False
  228.     FreeToDelete = True
  229.     FreeToInsert = True
  230.     Left = 114
  231.     Top = 173
  232.   end
  233.   object tPart2: TMyTable
  234.     DatabaseName = 'Global'
  235.     IndexFieldNames = 'Code'
  236.     TableName = 'PARTNER.DB'
  237.     AutoOpen = True
  238.     AutoFlush = True
  239.     FreeToModify = False
  240.     FreeToDelete = True
  241.     FreeToInsert = True
  242.     Left = 379
  243.     Top = 173
  244.     object tPart2Poziv: TSmallintField
  245.       FieldName = 'Poziv'
  246.     end
  247.     object tPart2Model: TStringField
  248.       FieldName = 'Model'
  249.       Size = 30
  250.     end
  251.     object tPart2Rabat2: TBooleanField
  252.       FieldName = 'Rabat2'
  253.     end
  254.     object tPart2Rabat2Kolicina: TBooleanField
  255.       FieldName = 'Rabat2Kolicina'
  256.     end
  257.     object tPart2Code: TAutoIncField
  258.       FieldName = 'Code'
  259.     end
  260.     object tPart2Sifra: TStringField
  261.       FieldName = 'Sifra'
  262.       Size = 40
  263.     end
  264.     object tPart2ZiroRN: TIntegerField
  265.       FieldName = 'ZiroRN'
  266.     end
  267.     object tPart2Items: TIntegerField
  268.       FieldName = 'Items'
  269.     end
  270.   end
  271.   object tCijene: TMyTable
  272.     DatabaseName = 'Lokal'
  273.     IndexFieldNames = 'Artikl;Boja;MinKol;VPC'
  274.     MasterFields = 'Artikl;Boja;MinKol'
  275.     MasterSource = sStavke
  276.     TableName = 'CIJENE.DB'
  277.     AutoOpen = True
  278.     AutoFlush = True
  279.     FreeToModify = False
  280.     FreeToDelete = True
  281.     FreeToInsert = True
  282.     Left = 114
  283.     Top = 131
  284.     object tCijeneArtikl: TIntegerField
  285.       FieldName = 'Artikl'
  286.     end
  287.     object tCijeneBoja: TIntegerField
  288.       FieldName = 'Boja'
  289.     end
  290.     object tCijeneMinKol: TFloatField
  291.       FieldName = 'MinKol'
  292.       Precision = 9
  293.     end
  294.     object tCijeneVPC: TFloatField
  295.       FieldName = 'VPC'
  296.       Precision = 9
  297.     end
  298.     object tCijeneKolicina: TFloatField
  299.       FieldName = 'Kolicina'
  300.       Precision = 9
  301.     end
  302.   end
  303.   object tIzlaz: TMyTable
  304.     DatabaseName = 'Lokal'
  305.     IndexFieldNames = 'Artikl;Boja;MinKol;Vrsta;VPC'
  306.     MasterFields = 'Artikl;Boja;MinKol;VPS'
  307.     MasterSource = sStavke
  308.     TableName = 'IZLAZ.DB'
  309.     AutoOpen = True
  310.     AutoFlush = True
  311.     FreeToModify = False
  312.     FreeToDelete = True
  313.     FreeToInsert = True
  314.     Left = 485
  315.     Top = 131
  316.     object tIzlazArtikl: TIntegerField
  317.       FieldName = 'Artikl'
  318.     end
  319.     object tIzlazBoja: TIntegerField
  320.       FieldName = 'Boja'
  321.     end
  322.     object tIzlazMinKol: TFloatField
  323.       FieldName = 'MinKol'
  324.       Precision = 9
  325.     end
  326.     object tIzlazVrsta: TSmallintField
  327.       FieldName = 'Vrsta'
  328.     end
  329.     object tIzlazVPC: TFloatField
  330.       FieldName = 'VPC'
  331.       Precision = 9
  332.     end
  333.     object tIzlazKolicina: TFloatField
  334.       FieldName = 'Kolicina'
  335.       Precision = 9
  336.     end
  337.   end
  338.   object tAtomi: TMyTable
  339.     DatabaseName = 'Global'
  340.     IndexFieldNames = 'PAKUNG;KOLICINA'
  341.     MasterFields = 'PAKUNG;ATOM'
  342.     MasterSource = sStavke
  343.     TableName = 'ATOMI.DB'
  344.     AutoOpen = True
  345.     AutoFlush = True
  346.     FreeToModify = False
  347.     FreeToDelete = True
  348.     FreeToInsert = True
  349.     Left = 379
  350.     Top = 89
  351.     object tAtomiPakung: TIntegerField
  352.       FieldName = 'Pakung'
  353.     end
  354.     object tAtomiKolicina: TFloatField
  355.       FieldName = 'Kolicina'
  356.       Precision = 9
  357.     end
  358.   end
  359.   object tImeRobe: TMyTable
  360.     DatabaseName = 'Global'
  361.     IndexFieldNames = 'Roba;Govor'
  362.     MasterFields = 'Code;Govor'
  363.     MasterSource = sRoba
  364.     TableName = 'IME_ROBE.DB'
  365.     AutoOpen = True
  366.     AutoFlush = True
  367.     FreeToModify = False
  368.     FreeToDelete = True
  369.     FreeToInsert = True
  370.     Left = 432
  371.     Top = 131
  372.     object tImeRobeRoba: TIntegerField
  373.       FieldName = 'Roba'
  374.     end
  375.     object tImeRobeGovor: TIntegerField
  376.       FieldName = 'Govor'
  377.     end
  378.     object tImeRobeNaziv: TStringField
  379.       FieldName = 'Naziv'
  380.       OnGetText = tImeRobeNazivGetText
  381.       Size = 60
  382.     end
  383.   end
  384.   object tArtikl2: TMyTable
  385.     BeforePost = SifArtD_BP
  386.     DatabaseName = 'Global'
  387.     IndexFieldNames = 'PARTNER;CODE'
  388.     MasterFields = 'JA;Code'
  389.     MasterSource = sRoba
  390.     TableName = 'SIF_ROBE.DB'
  391.     AutoOpen = True
  392.     AutoFlush = True
  393.     FreeToModify = False
  394.     FreeToDelete = True
  395.     FreeToInsert = True
  396.     Left = 326
  397.     Top = 89
  398.     object tArtikl2Partner: TIntegerField
  399.       FieldName = 'Partner'
  400.     end
  401.     object tArtikl2Sifra: TStringField
  402.       FieldName = 'Sifra'
  403.       Size = 40
  404.     end
  405.     object tArtikl2Code: TIntegerField
  406.       FieldName = 'Code'
  407.     end
  408.     object tArtikl2Naziv: TStringField
  409.       FieldName = 'Naziv'
  410.       Size = 60
  411.     end
  412.     object tArtikl2Proizvodi: TIntegerField
  413.       FieldName = 'Proizvodi'
  414.     end
  415.     object tArtikl2Grupa: TIntegerField
  416.       FieldName = 'Grupa'
  417.     end
  418.     object tArtikl2PodGrupa: TIntegerField
  419.       FieldName = 'PodGrupa'
  420.     end
  421.     object tArtikl2Amortizacija: TIntegerField
  422.       FieldName = 'Amortizacija'
  423.     end
  424.     object tArtikl2Revalorizacija: TIntegerField
  425.       FieldName = 'Revalorizacija'
  426.     end
  427.     object tArtikl2Otkup: TStringField
  428.       FieldName = 'Otkup'
  429.       Size = 1
  430.     end
  431.     object tArtikl2Items: TIntegerField
  432.       FieldName = 'Items'
  433.       Visible = False
  434.     end
  435.   end
  436.   object tRoba: TMyTable
  437.     AutoCalcFields = False
  438.     OnCalcFields = tRobaCalcFields
  439.     DatabaseName = 'Global'
  440.     IndexFieldNames = 'Code'
  441.     MasterFields = 'Code'
  442.     MasterSource = sArtikl
  443.     TableName = 'ROBA.DB'
  444.     AutoOpen = True
  445.     AutoFlush = True
  446.     FreeToModify = False
  447.     FreeToDelete = True
  448.     FreeToInsert = True
  449.     Left = 8
  450.     Top = 215
  451.     object tRobaCode: TAutoIncField
  452.       FieldName = 'Code'
  453.     end
  454.     object tRobaProizvodi: TIntegerField
  455.       FieldName = 'Proizvodi'
  456.     end
  457.     object tRobaNaziv: TStringField
  458.       FieldName = 'Naziv'
  459.       Size = 60
  460.     end
  461.     object tRobaTarifaPoreza: TIntegerField
  462.       FieldName = 'TarifaPoreza'
  463.     end
  464.     object tRobaTarifaCarine: TIntegerField
  465.       FieldName = 'TarifaCarine'
  466.     end
  467.     object tRobaVrsta: TIntegerField
  468.       FieldName = 'Vrsta'
  469.     end
  470.     object tRobaJedMj: TIntegerField
  471.       FieldName = 'JedMj'
  472.     end
  473.     object tRobaPakiranje: TIntegerField
  474.       FieldName = 'Pakiranje'
  475.     end
  476.     object tRobaBarKod: TStringField
  477.       FieldName = 'BarKod'
  478.       Size = 13
  479.     end
  480.     object tRobaTezina: TFloatField
  481.       FieldName = 'Tezina'
  482.       Precision = 9
  483.     end
  484.     object tRobaBezbojno: TBooleanField
  485.       FieldName = 'Bezbojno'
  486.     end
  487.     object tRobaJa: TIntegerField
  488.       FieldName = 'Ja'
  489.       Visible = False
  490.       Calculated = True
  491.     end
  492.     object tRobaGovor: TIntegerField
  493.       FieldName = 'Govor'
  494.       Calculated = True
  495.     end
  496.     object tRobaItems: TIntegerField
  497.       FieldName = 'Items'
  498.     end
  499.   end
  500.   object tArtikl: TMyTable
  501.     BeforePost = SifArt_BP
  502.     DatabaseName = 'Global'
  503.     IndexFieldNames = 'PARTNER;CODE'
  504.     MasterFields = 'JA;ARTIKL'
  505.     MasterSource = sStavke
  506.     TableName = 'SIF_ROBE.DB'
  507.     AutoOpen = True
  508.     AutoFlush = True
  509.     FreeToModify = False
  510.     FreeToDelete = True
  511.     FreeToInsert = True
  512.     Left = 273
  513.     Top = 89
  514.     object tArtiklPartner: TIntegerField
  515.       FieldName = 'Partner'
  516.     end
  517.     object tArtiklSifra: TStringField
  518.       FieldName = 'Sifra'
  519.       Size = 40
  520.     end
  521.     object tArtiklCode: TIntegerField
  522.       FieldName = 'Code'
  523.     end
  524.     object tArtiklNaziv: TStringField
  525.       FieldName = 'Naziv'
  526.       Size = 60
  527.     end
  528.     object tArtiklProizvodi: TIntegerField
  529.       FieldName = 'Proizvodi'
  530.     end
  531.     object tArtiklItems: TIntegerField
  532.       FieldName = 'Items'
  533.       Visible = False
  534.     end
  535.   end
  536.   object tImeBoje: TMyTable
  537.     DatabaseName = 'Global'
  538.     IndexFieldNames = 'Boja;Govor'
  539.     MasterFields = 'Code;Govor'
  540.     MasterSource = sBoja
  541.     TableName = 'IME_BOJA.DB'
  542.     AutoOpen = True
  543.     AutoFlush = True
  544.     FreeToModify = False
  545.     FreeToDelete = True
  546.     FreeToInsert = True
  547.     Left = 379
  548.     Top = 131
  549.     object tImeBojeBoja: TIntegerField
  550.       FieldName = 'Boja'
  551.     end
  552.     object tImeBojeGovor: TIntegerField
  553.       FieldName = 'Govor'
  554.     end
  555.     object tImeBojeNaziv: TStringField
  556.       FieldName = 'Naziv'
  557.       OnGetText = tImeBojeNazivGetText
  558.       Size = 60
  559.     end
  560.   end
  561.   object tBoje2: TMyTable
  562.     BeforePost = SifBojeD_BP
  563.     DatabaseName = 'Global'
  564.     IndexFieldNames = 'PARTNER;PROIZVODI;CODE'
  565.     MasterFields = 'Ja;Proizvodi;Code'
  566.     MasterSource = sBoja
  567.     TableName = 'SIF_BOJA.DB'
  568.     AutoOpen = True
  569.     AutoFlush = True
  570.     FreeToModify = False
  571.     FreeToDelete = True
  572.     FreeToInsert = True
  573.     Left = 8
  574.     Top = 131
  575.     object tBoje2Partner: TIntegerField
  576.       FieldName = 'Partner'
  577.     end
  578.     object tBoje2Proizvodi: TIntegerField
  579.       FieldName = 'Proizvodi'
  580.     end
  581.     object tBoje2Sifra: TStringField
  582.       FieldName = 'Sifra'
  583.       Size = 40
  584.     end
  585.     object tBoje2Code: TIntegerField
  586.       FieldName = 'Code'
  587.     end
  588.     object tBoje2Naziv: TStringField
  589.       FieldName = 'Naziv'
  590.       Size = 60
  591.     end
  592.     object tBoje2Items: TIntegerField
  593.       FieldName = 'Items'
  594.       Visible = False
  595.     end
  596.   end
  597.   object tBoja: TMyTable
  598.     AutoCalcFields = False
  599.     OnCalcFields = tBojaCalcFields
  600.     DatabaseName = 'Global'
  601.     IndexFieldNames = 'Code'
  602.     MasterFields = 'Code'
  603.     MasterSource = sBoje
  604.     TableName = 'BOJE.DB'
  605.     AutoOpen = True
  606.     AutoFlush = True
  607.     FreeToModify = False
  608.     FreeToDelete = True
  609.     FreeToInsert = True
  610.     Left = 432
  611.     Top = 89
  612.     object tBojaCode: TAutoIncField
  613.       FieldName = 'Code'
  614.     end
  615.     object tBojaProizvodi: TIntegerField
  616.       FieldName = 'Proizvodi'
  617.     end
  618.     object tBojaNaziv: TStringField
  619.       FieldName = 'Naziv'
  620.       Size = 60
  621.     end
  622.     object tBojaGovor: TIntegerField
  623.       FieldName = 'Govor'
  624.       Calculated = True
  625.     end
  626.     object tBojaJa: TIntegerField
  627.       FieldName = 'Ja'
  628.       Calculated = True
  629.     end
  630.     object tBojaItems: TIntegerField
  631.       FieldName = 'Items'
  632.       Visible = False
  633.     end
  634.   end
  635.   object tBoje: TMyTable
  636.     BeforePost = SifBoje_BP
  637.     DatabaseName = 'Global'
  638.     IndexFieldNames = 'PARTNER;PROIZVODI;CODE'
  639.     MasterFields = 'JA;PROIZVODI;BOJA'
  640.     MasterSource = sStavke
  641.     TableName = 'SIF_BOJA.DB'
  642.     AutoOpen = True
  643.     AutoFlush = True
  644.     FreeToModify = False
  645.     FreeToDelete = True
  646.     FreeToInsert = True
  647.     Left = 485
  648.     Top = 89
  649.     object tBojePartner: TIntegerField
  650.       FieldName = 'Partner'
  651.     end
  652.     object tBojeProizvodi: TIntegerField
  653.       FieldName = 'Proizvodi'
  654.     end
  655.     object tBojeSifra: TStringField
  656.       FieldName = 'Sifra'
  657.       Size = 40
  658.     end
  659.     object tBojeCode: TIntegerField
  660.       FieldName = 'Code'
  661.     end
  662.     object tBojeNaziv: TStringField
  663.       FieldName = 'Naziv'
  664.       Size = 60
  665.     end
  666.     object tBojeItems: TIntegerField
  667.       FieldName = 'Items'
  668.       Visible = False
  669.     end
  670.   end
  671.   object tPakung: TMyTable
  672.     DatabaseName = 'Global'
  673.     IndexFieldNames = 'Jedinica;Code'
  674.     MasterFields = 'JedMj;Pakiranje'
  675.     MasterSource = sRoba
  676.     TableName = 'PAKUNG.DB'
  677.     AutoOpen = True
  678.     AutoFlush = True
  679.     FreeToModify = False
  680.     FreeToDelete = True
  681.     FreeToInsert = True
  682.     Left = 273
  683.     Top = 173
  684.     object tPakungCode: TAutoIncField
  685.       FieldName = 'Code'
  686.     end
  687.     object tPakungJedinica: TIntegerField
  688.       FieldName = 'Jedinica'
  689.     end
  690.     object tPakungSifra: TStringField
  691.       FieldName = 'Sifra'
  692.       Size = 40
  693.     end
  694.     object tPakungMinKolicina: TFloatField
  695.       FieldName = 'MinKolicina'
  696.       Precision = 9
  697.     end
  698.     object tPakungImaAtoma: TBooleanField
  699.       FieldName = 'ImaAtoma'
  700.     end
  701.     object tPakungCijene: TFloatField
  702.       FieldName = 'Cijene'
  703.       Precision = 9
  704.     end
  705.   end
  706.   object tMjere: TMyTable
  707.     DatabaseName = 'Global'
  708.     IndexFieldNames = 'Jedinica;Govor'
  709.     MasterFields = 'Code;Govor'
  710.     MasterSource = sJedinice
  711.     TableName = 'MJERE.DB'
  712.     AutoOpen = True
  713.     AutoFlush = True
  714.     FreeToModify = False
  715.     FreeToDelete = True
  716.     FreeToInsert = True
  717.     Left = 167
  718.     Top = 173
  719.     object tMjereJedinica: TIntegerField
  720.       FieldName = 'Jedinica'
  721.     end
  722.     object tMjereGovor: TIntegerField
  723.       FieldName = 'Govor'
  724.     end
  725.     object tMjereNaziv: TStringField
  726.       FieldName = 'Naziv'
  727.       OnGetText = tMjereNazivGetText
  728.       Size = 60
  729.     end
  730.   end
  731.   object tJedinice: TMyTable
  732.     AutoCalcFields = False
  733.     OnCalcFields = tJediniceCalcFields
  734.     DatabaseName = 'Global'
  735.     IndexFieldNames = 'CODE'
  736.     MasterFields = 'JEDMJ'
  737.     MasterSource = sStavke
  738.     TableName = 'JEDINICE.DB'
  739.     AutoOpen = True
  740.     AutoFlush = True
  741.     FreeToModify = False
  742.     FreeToDelete = True
  743.     FreeToInsert = True
  744.     Left = 8
  745.     Top = 173
  746.     object tJediniceCode: TAutoIncField
  747.       FieldName = 'Code'
  748.     end
  749.     object tJediniceSifra: TStringField
  750.       FieldName = 'Sifra'
  751.       Size = 40
  752.     end
  753.     object tJediniceGovor: TIntegerField
  754.       FieldName = 'Govor'
  755.       Calculated = True
  756.     end
  757.   end
  758.   object tCijene2: TMyTable
  759.     DatabaseName = 'Lokal'
  760.     IndexFieldNames = 'ARTIKL;BOJA;MINKOL;VPC'
  761.     MasterFields = 'ARTIKL;BOJA;MINKOL;CIJENAX'
  762.     MasterSource = sStavke
  763.     TableName = 'CIJENE.DB'
  764.     AutoOpen = True
  765.     AutoFlush = True
  766.     FreeToModify = False
  767.     FreeToDelete = True
  768.     FreeToInsert = True
  769.     Left = 167
  770.     Top = 131
  771.     object tCijene2Artikl: TIntegerField
  772.       FieldName = 'Artikl'
  773.     end
  774.     object tCijene2Boja: TIntegerField
  775.       FieldName = 'Boja'
  776.     end
  777.     object tCijene2MinKol: TFloatField
  778.       FieldName = 'MinKol'
  779.     end
  780.     object tCijene2VPC: TFloatField
  781.       DisplayWidth = 10
  782.       FieldName = 'VPC'
  783.     end
  784.     object tCijene2Kolicina: TFloatField
  785.       DisplayLabel = 'Zaliha'
  786.       DisplayWidth = 10
  787.       FieldName = 'Kolicina'
  788.     end
  789.   end
  790.   object tCeneRobe: TMyTable
  791.     DatabaseName = 'Lokal'
  792.     IndexFieldNames = 'Roba;Boja;MinKol;Valuta'
  793.     TableName = 'CENEROBE.DB'
  794.     AutoOpen = True
  795.     AutoFlush = True
  796.     FreeToModify = True
  797.     FreeToDelete = True
  798.     FreeToInsert = True
  799.     Left = 61
  800.     Top = 131
  801.     object tCeneRobeRoba: TIntegerField
  802.       FieldName = 'Roba'
  803.     end
  804.     object tCeneRobeBoja: TIntegerField
  805.       FieldName = 'Boja'
  806.     end
  807.     object tCeneRobeMinKol: TFloatField
  808.       FieldName = 'MinKol'
  809.       Precision = 9
  810.     end
  811.     object tCeneRobeValuta: TIntegerField
  812.       FieldName = 'Valuta'
  813.     end
  814.     object tCeneRobeCijena: TFloatField
  815.       FieldName = 'Cijena'
  816.       Precision = 9
  817.     end
  818.     object tCeneRobeRabat: TFloatField
  819.       FieldName = 'Rabat'
  820.       Precision = 9
  821.     end
  822.     object tCeneRobeRabatI: TFloatField
  823.       FieldName = 'RabatI'
  824.       Precision = 9
  825.     end
  826.     object tCeneRobeRabat2: TFloatField
  827.       FieldName = 'Rabat2'
  828.       Precision = 9
  829.     end
  830.     object tCeneRobeRabat2I: TFloatField
  831.       FieldName = 'Rabat2I'
  832.       Precision = 9
  833.     end
  834.     object tCeneRobeVPC: TFloatField
  835.       FieldName = 'VPC'
  836.       Precision = 9
  837.     end
  838.   end
  839.   object tPosta: TMyTable
  840.     DatabaseName = 'Global'
  841.     IndexFieldNames = 'Code'
  842.     MasterFields = 'Posta'
  843.     MasterSource = sPart
  844.     TableName = 'POSTA.DB'
  845.     AutoOpen = True
  846.     AutoFlush = True
  847.     FreeToModify = False
  848.     FreeToDelete = True
  849.     FreeToInsert = True
  850.     Left = 485
  851.     Top = 173
  852.     object tPostaCode: TAutoIncField
  853.       FieldName = 'Code'
  854.     end
  855.     object tPostaSifra: TStringField
  856.       FieldName = 'Sifra'
  857.       Size = 40
  858.     end
  859.     object tPostaZemlja: TIntegerField
  860.       FieldName = 'Zemlja'
  861.     end
  862.     object tPostaBroj: TIntegerField
  863.       FieldName = 'Broj'
  864.     end
  865.   end
  866.   object tPart: TMyTable
  867.     DatabaseName = 'Global'
  868.     IndexFieldNames = 'Code'
  869.     MasterFields = 'Partner'
  870.     MasterSource = sPartner
  871.     TableName = 'PARTNER.DB'
  872.     AutoOpen = True
  873.     AutoFlush = True
  874.     FreeToModify = False
  875.     FreeToDelete = True
  876.     FreeToInsert = True
  877.     Left = 326
  878.     Top = 173
  879.     object tPartNaziv: TStringField
  880.       FieldName = 'Naziv'
  881.       Visible = False
  882.       Size = 80
  883.     end
  884.     object tPartMjesto: TStringField
  885.       FieldName = 'Mjesto'
  886.       Visible = False
  887.       Size = 40
  888.     end
  889.     object tPartUlicaBroj: TStringField
  890.       FieldName = 'UlicaBroj'
  891.       Visible = False
  892.       Size = 60
  893.     end
  894.     object tPartCode: TAutoIncField
  895.       FieldName = 'Code'
  896.     end
  897.     object tPartSifra: TStringField
  898.       FieldName = 'Sifra'
  899.       Size = 40
  900.     end
  901.     object tPartPosta: TIntegerField
  902.       FieldName = 'Posta'
  903.     end
  904.     object tPartItems: TIntegerField
  905.       FieldName = 'Items'
  906.     end
  907.   end
  908.   object tPartner: TMyTable
  909.     DatabaseName = 'Lokal'
  910.     IndexFieldNames = 'Partner'
  911.     MasterFields = 'LOKACIJA'
  912.     MasterSource = sSkladiste
  913.     TableName = 'SIF_PART.DB'
  914.     AutoOpen = True
  915.     AutoFlush = True
  916.     FreeToModify = False
  917.     FreeToDelete = True
  918.     FreeToInsert = True
  919.     Left = 432
  920.     Top = 173
  921.     object tPartnerPartner: TIntegerField
  922.       FieldName = 'Partner'
  923.     end
  924.     object tPartnerDobavljac: TStringField
  925.       FieldName = 'Dobavljac'
  926.       Size = 1
  927.     end
  928.     object tPartnerDrzava: TStringField
  929.       FieldName = 'Drzava'
  930.       Visible = False
  931.       Size = 1
  932.     end
  933.     object tPartnerUgovRabat2: TFloatField
  934.       FieldName = 'UgovRabat2'
  935.       Visible = False
  936.       Precision = 9
  937.     end
  938.     object tPartnerRokPlacanja2: TSmallintField
  939.       FieldName = 'RokPlacanja2'
  940.       Visible = False
  941.     end
  942.     object tPartnerVeceKolicine2: TBooleanField
  943.       FieldName = 'VeceKolicine2'
  944.       Visible = False
  945.     end
  946.     object tPartnerSifra: TStringField
  947.       FieldName = 'Sifra'
  948.       Size = 40
  949.     end
  950.     object tPartnerGovor: TIntegerField
  951.       FieldName = 'Govor'
  952.     end
  953.     object tPartnerItems: TIntegerField
  954.       FieldName = 'Items'
  955.     end
  956.     object tPartnerPoOrgJed: TBooleanField
  957.       FieldName = 'PoOrgJed'
  958.     end
  959.   end
  960.   object tCijeneX: TMyTable
  961.     DatabaseName = 'Lokal'
  962.     IndexFieldNames = 'Artikl;Boja;MinKol'
  963.     MasterFields = 'ARTIKL;BOJA;MINKOL'
  964.     MasterSource = sStavke
  965.     TableName = 'CIJENEX.DB'
  966.     AutoOpen = True
  967.     AutoFlush = True
  968.     FreeToModify = False
  969.     FreeToDelete = True
  970.     FreeToInsert = True
  971.     Left = 220
  972.     Top = 131
  973.     object tCijeneXArtikl: TIntegerField
  974.       FieldName = 'Artikl'
  975.     end
  976.     object tCijeneXBoja: TIntegerField
  977.       FieldName = 'Boja'
  978.     end
  979.     object tCijeneXMinKol: TFloatField
  980.       FieldName = 'MinKol'
  981.     end
  982.     object tCijeneXKolicina: TFloatField
  983.       DisplayLabel = 'Zaliha'
  984.       DisplayWidth = 10
  985.       FieldName = 'Kolicina'
  986.     end
  987.   end
  988.   object xGlava: TMyTable
  989.     DatabaseName = 'Lokal2'
  990.     IndexFieldNames = 'Code'
  991.     TableName = 'IFE2.DB'
  992.     AutoOpen = False
  993.     AutoFlush = True
  994.     FreeToModify = False
  995.     FreeToDelete = True
  996.     FreeToInsert = True
  997.     Left = 300
  998.     Top = 220
  999.     object xGlavaBrojIFE: TIntegerField
  1000.       FieldName = 'BrojIFE'
  1001.     end
  1002.     object xGlavaCode: TIntegerField
  1003.       FieldName = 'Code'
  1004.     end
  1005.     object xGlavaKnjizeno: TStringField
  1006.       FieldName = 'Knjizeno'
  1007.       Size = 1
  1008.     end
  1009.     object xGlavaDatumKnj: TDateField
  1010.       FieldName = 'DatumKnj'
  1011.     end
  1012.     object xGlavaKupac: TIntegerField
  1013.       FieldName = 'Kupac'
  1014.     end
  1015.     object xGlavaOrgJedKup: TIntegerField
  1016.       FieldName = 'OrgJedKup'
  1017.     end
  1018.     object xGlavaSkladiste: TIntegerField
  1019.       FieldName = 'Skladiste'
  1020.     end
  1021.     object xGlavaOrgJed: TIntegerField
  1022.       FieldName = 'OrgJed'
  1023.     end
  1024.     object xGlavaSifreDobavljaca: TBooleanField
  1025.       FieldName = 'SifreDobavljaca'
  1026.     end
  1027.     object xGlavaDatumDok: TDateField
  1028.       FieldName = 'DatumDok'
  1029.     end
  1030.     object xGlavaRacunBr: TStringField
  1031.       FieldName = 'RacunBr'
  1032.       Size = 50
  1033.     end
  1034.     object xGlavaOtpremnicaBr: TStringField
  1035.       FieldName = 'OtpremnicaBr'
  1036.       Size = 50
  1037.     end
  1038.     object xGlavaZahtjevnicaBr: TStringField
  1039.       FieldName = 'ZahtjevnicaBr'
  1040.       Size = 50
  1041.     end
  1042.     object xGlavaDatumDVO: TDateField
  1043.       FieldName = 'DatumDVO'
  1044.     end
  1045.     object xGlavaRokPlacanja: TSmallintField
  1046.       FieldName = 'RokPlacanja'
  1047.     end
  1048.     object xGlavaVrijednost: TFloatField
  1049.       FieldName = 'Vrijednost'
  1050.     end
  1051.     object xGlavaVPVrijednost: TFloatField
  1052.       FieldName = 'VPVrijednost'
  1053.     end
  1054.     object xGlavaTrosakDirekt: TBooleanField
  1055.       FieldName = 'TrosakDirekt'
  1056.     end
  1057.     object xGlavaKontoTroska: TIntegerField
  1058.       FieldName = 'KontoTroska'
  1059.     end
  1060.     object xGlavaKontoTroskaD: TIntegerField
  1061.       FieldName = 'KontoTroskaD'
  1062.     end
  1063.     object xGlavaStopaTroska: TFloatField
  1064.       FieldName = 'StopaTroska'
  1065.     end
  1066.     object xGlavaTransport: TFloatField
  1067.       FieldName = 'Transport'
  1068.     end
  1069.     object xGlavaOstaliTroskovi: TFloatField
  1070.       FieldName = 'OstaliTroskovi'
  1071.     end
  1072.     object xGlavaTransportNaKonto: TFloatField
  1073.       FieldName = 'TransportNaKonto'
  1074.     end
  1075.     object xGlavaTransportNaRobu: TFloatField
  1076.       FieldName = 'TransportNaRobu'
  1077.     end
  1078.     object xGlavaOstaloNaKonto: TFloatField
  1079.       FieldName = 'OstaloNaKonto'
  1080.     end
  1081.     object xGlavaOstaloNaRobu: TFloatField
  1082.       FieldName = 'OstaloNaRobu'
  1083.     end
  1084.     object xGlavaRabatIznos: TBooleanField
  1085.       FieldName = 'RabatIznos'
  1086.     end
  1087.     object xGlavaImaRabat2: TBooleanField
  1088.       FieldName = 'ImaRabat2'
  1089.     end
  1090.     object xGlavaRabat2Kolicina: TBooleanField
  1091.       FieldName = 'Rabat2Kolicina'
  1092.     end
  1093.     object xGlavaVeceKolicine: TBooleanField
  1094.       FieldName = 'VeceKolicine'
  1095.     end
  1096.     object xGlavaIstiRabat: TBooleanField
  1097.       FieldName = 'IstiRabat'
  1098.     end
  1099.     object xGlavaRabat1: TFloatField
  1100.       FieldName = 'Rabat1'
  1101.     end
  1102.     object xGlavaRabat2: TFloatField
  1103.       FieldName = 'Rabat2'
  1104.     end
  1105.     object xGlavaRabatMod: TBooleanField
  1106.       FieldName = 'RabatMod'
  1107.     end
  1108.     object xGlavaPodesiCijenu: TBooleanField
  1109.       FieldName = 'PodesiCijenu'
  1110.     end
  1111.     object xGlavaPodesiVPC: TBooleanField
  1112.       FieldName = 'PodesiVPC'
  1113.     end
  1114.   end
  1115.   object xStavke: TMyTable
  1116.     DatabaseName = 'Lokal2'
  1117.     IndexFieldNames = 'BROJIFE;STAVKA'
  1118.     MasterFields = 'Code'
  1119.     MasterSource = sxGlava
  1120.     TableName = 'IFE2S.DB'
  1121.     AutoOpen = False
  1122.     AutoFlush = True
  1123.     FreeToModify = False
  1124.     FreeToDelete = True
  1125.     FreeToInsert = True
  1126.     Left = 340
  1127.     Top = 220
  1128.     object xStavkeBrojIFE: TIntegerField
  1129.       FieldName = 'BrojIFE'
  1130.     end
  1131.     object xStavkeStavka: TSmallintField
  1132.       FieldName = 'Stavka'
  1133.     end
  1134.     object xStavkeArtikl: TIntegerField
  1135.       FieldName = 'Artikl'
  1136.     end
  1137.     object xStavkeBoja: TIntegerField
  1138.       FieldName = 'Boja'
  1139.     end
  1140.     object xStavkeAtom: TFloatField
  1141.       FieldName = 'Atom'
  1142.     end
  1143.     object xStavkeMinKol: TFloatField
  1144.       FieldName = 'MinKol'
  1145.     end
  1146.     object xStavkeProizvodi: TIntegerField
  1147.       FieldName = 'Proizvodi'
  1148.     end
  1149.     object xStavkePakung: TIntegerField
  1150.       FieldName = 'Pakung'
  1151.     end
  1152.     object xStavkeJedMj: TIntegerField
  1153.       FieldName = 'JedMj'
  1154.     end
  1155.     object xStavkeOpis: TStringField
  1156.       FieldName = 'Opis'
  1157.       Size = 40
  1158.     end
  1159.     object xStavkeKolicina: TFloatField
  1160.       FieldName = 'Kolicina'
  1161.     end
  1162.     object xStavkeCijenaX: TFloatField
  1163.       FieldName = 'CijenaX'
  1164.     end
  1165.     object xStavkeXKol: TFloatField
  1166.       FieldName = 'XKol'
  1167.     end
  1168.     object xStavkeCijena: TFloatField
  1169.       FieldName = 'Cijena'
  1170.     end
  1171.     object xStavkeVrijednost: TFloatField
  1172.       FieldName = 'Vrijednost'
  1173.     end
  1174.     object xStavkeRabat: TFloatField
  1175.       FieldName = 'Rabat'
  1176.     end
  1177.     object xStavkeRabatI: TFloatField
  1178.       FieldName = 'RabatI'
  1179.     end
  1180.     object xStavkeRabat2: TFloatField
  1181.       FieldName = 'Rabat2'
  1182.     end
  1183.     object xStavkeRabat2I: TFloatField
  1184.       FieldName = 'Rabat2I'
  1185.     end
  1186.     object xStavkeRabatV: TFloatField
  1187.       FieldName = 'RabatV'
  1188.     end
  1189.     object xStavkeVPCijena: TFloatField
  1190.       FieldName = 'VPCijena'
  1191.     end
  1192.     object xStavkeVPVrijednost: TFloatField
  1193.       FieldName = 'VPVrijednost'
  1194.     end
  1195.   end
  1196.   object tCodes: TMyTable
  1197.     DatabaseName = 'Lokal'
  1198.     IndexFieldNames = 'Code'
  1199.     MasterFields = 'Code'
  1200.     MasterSource = sGlava
  1201.     TableName = 'CODES.DB'
  1202.     AutoOpen = True
  1203.     AutoFlush = True
  1204.     FreeToModify = True
  1205.     FreeToDelete = True
  1206.     FreeToInsert = True
  1207.     Left = 273
  1208.     Top = 131
  1209.     object tCodesCode: TAutoIncField
  1210.       FieldName = 'Code'
  1211.     end
  1212.     object tCodesKnjizeno: TStringField
  1213.       FieldName = 'Knjizeno'
  1214.       Size = 1
  1215.     end
  1216.     object tCodesVrsta: TSmallintField
  1217.       FieldName = 'Vrsta'
  1218.     end
  1219.     object tCodesBroj: TIntegerField
  1220.       FieldName = 'Broj'
  1221.     end
  1222.   end
  1223.   object tStavke: TMyTable
  1224.     AfterPost = tStavkeAfterPost
  1225.     BeforeDelete = tStavkeBeforeDelete
  1226.     AfterDelete = tStavkeAfterDelete
  1227.     OnCalcFields = tStavkeCalcFields
  1228.     OnNewRecord = tStavkeNewRecord
  1229.     DatabaseName = 'Lokal'
  1230.     IndexFieldNames = 'BROJIFE;STAVKA'
  1231.     MasterFields = 'Code'
  1232.     MasterSource = sGlava
  1233.     TableName = 'IFE2S.DB'
  1234.     OnNewLastRecord = tStavkeNewLastRecord
  1235.     AutoOpen = True
  1236.     AutoFlush = True
  1237.     FreeToModify = False
  1238.     FreeToDelete = True
  1239.     FreeToInsert = True
  1240.     Left = 114
  1241.     Top = 215
  1242.     object tStavkeBrojIFE: TIntegerField
  1243.       FieldName = 'BrojIFE'
  1244.       Visible = False
  1245.     end
  1246.     object tStavkeStavka: TSmallintField
  1247.       DisplayWidth = 6
  1248.       FieldName = 'Stavka'
  1249.     end
  1250.     object tStavkeArtikl: TIntegerField
  1251.       FieldName = 'Artikl'
  1252.       Visible = False
  1253.     end
  1254.     object tStavkeBoja: TIntegerField
  1255.       FieldName = 'Boja'
  1256.       Visible = False
  1257.     end
  1258.     object tStavkeAtom: TFloatField
  1259.       FieldName = 'Atom'
  1260.       Visible = False
  1261.     end
  1262.     object tStavkeMinKol: TFloatField
  1263.       FieldName = 'MinKol'
  1264.       Visible = False
  1265.       OnGetText = tStavkeMinKolGetText
  1266.     end
  1267.     object tStavkeProizvodi: TIntegerField
  1268.       FieldName = 'Proizvodi'
  1269.       Visible = False
  1270.     end
  1271.     object tStavkePakung: TIntegerField
  1272.       FieldName = 'Pakung'
  1273.       Visible = False
  1274.     end
  1275.     object tStavkeJedMj: TIntegerField
  1276.       FieldName = 'JedMj'
  1277.       Visible = False
  1278.     end
  1279.     object tStavkeOpis: TStringField
  1280.       DisplayLabel = '∩┐╜ifra'
  1281.       DisplayWidth = 20
  1282.       FieldName = 'Opis'
  1283.       Size = 40
  1284.     end
  1285.     object tStavkeKolicina: TFloatField
  1286.       DisplayLabel = 'Koli∩┐╜ina'
  1287.       FieldName = 'Kolicina'
  1288.     end
  1289.     object tStavkeCijenaX: TFloatField
  1290.       FieldName = 'CijenaX'
  1291.       Visible = False
  1292.     end
  1293.     object tStavkeXKol: TFloatField
  1294.       FieldName = 'XKol'
  1295.       Visible = False
  1296.     end
  1297.     object tStavkeCijena: TFloatField
  1298.       FieldName = 'Cijena'
  1299.       Visible = False
  1300.     end
  1301.     object tStavkeVrijednost: TFloatField
  1302.       FieldName = 'Vrijednost'
  1303.       Visible = False
  1304.     end
  1305.     object tStavkeRabat: TFloatField
  1306.       FieldName = 'Rabat'
  1307.       Visible = False
  1308.     end
  1309.     object tStavkeRabatI: TFloatField
  1310.       FieldName = 'RabatI'
  1311.       Visible = False
  1312.     end
  1313.     object tStavkeRabat2: TFloatField
  1314.       FieldName = 'Rabat2'
  1315.       Visible = False
  1316.     end
  1317.     object tStavkeRabat2I: TFloatField
  1318.       FieldName = 'Rabat2I'
  1319.       Visible = False
  1320.     end
  1321.     object tStavkeRabatV: TFloatField
  1322.       FieldName = 'RabatV'
  1323.       Visible = False
  1324.     end
  1325.     object tStavkeVPCijena: TFloatField
  1326.       DisplayLabel = 'VPC'
  1327.       FieldName = 'VPCijena'
  1328.     end
  1329.     object tStavkeVPVrijednost: TFloatField
  1330.       DisplayLabel = 'VP Vrijednost'
  1331.       DisplayWidth = 14
  1332.       FieldName = 'VPVrijednost'
  1333.     end
  1334.     object tStavkeVPS: TSmallintField
  1335.       FieldName = 'VPS'
  1336.       Visible = False
  1337.       Calculated = True
  1338.     end
  1339.     object tStavkeMjesto: TStringField
  1340.       FieldName = 'Mjesto'
  1341.       Visible = False
  1342.       Size = 1
  1343.       Calculated = True
  1344.     end
  1345.     object tStavkeJA: TIntegerField
  1346.       FieldName = 'JA'
  1347.       Visible = False
  1348.       Calculated = True
  1349.     end
  1350.   end
  1351.   object tGlava: TMyTable
  1352.     AutoCalcFields = False
  1353.     BeforePost = tGlavaBeforePost
  1354.     AfterPost = tGlavaAfterPost
  1355.     BeforeDelete = tGlavaBeforeDelete
  1356.     OnCalcFields = tGlavaCalcFields
  1357.     OnNewRecord = tGlavaNewRecord
  1358.     DatabaseName = 'Lokal'
  1359.     IndexFieldNames = 'BROJIFE'
  1360.     TableName = 'IFE2.DB'
  1361.     OnNewLastRecord = tGlavaNewLastRecord
  1362.     AutoOpen = True
  1363.     AutoFlush = True
  1364.     FreeToModify = False
  1365.     FreeToDelete = True
  1366.     FreeToInsert = True
  1367.     Left = 326
  1368.     Top = 131
  1369.     object tGlavaKnjizeno: TStringField
  1370.       DisplayLabel = 'K'
  1371.       FieldName = 'Knjizeno'
  1372.       Size = 1
  1373.     end
  1374.     object tGlavaBrojIFE: TIntegerField
  1375.       DisplayLabel = 'Izdatnica br.'
  1376.       FieldName = 'BrojIFE'
  1377.     end
  1378.     object tGlavaCode: TIntegerField
  1379.       FieldName = 'Code'
  1380.       Visible = False
  1381.     end
  1382.     object tGlavaDatumKnj: TDateField
  1383.       DisplayLabel = 'Knji∩┐╜eno'
  1384.       FieldName = 'DatumKnj'
  1385.     end
  1386.     object tGlavaKupac: TIntegerField
  1387.       FieldName = 'Kupac'
  1388.       Visible = False
  1389.     end
  1390.     object tGlavaOrgJedKup: TIntegerField
  1391.       FieldName = 'OrgJedKup'
  1392.       Visible = False
  1393.     end
  1394.     object tGlavaSkladiste: TIntegerField
  1395.       FieldName = 'Skladiste'
  1396.       Visible = False
  1397.     end
  1398.     object tGlavaOrgJed: TIntegerField
  1399.       FieldName = 'OrgJed'
  1400.       Visible = False
  1401.     end
  1402.     object tGlavaSifreDobavljaca: TBooleanField
  1403.       FieldName = 'SifreDobavljaca'
  1404.       Visible = False
  1405.     end
  1406.     object tGlavaDatumDok: TDateField
  1407.       DisplayLabel = 'Datum dok.'
  1408.       FieldName = 'DatumDok'
  1409.     end
  1410.     object tGlavaRacunBr: TStringField
  1411.       DisplayLabel = 'Revers broj'
  1412.       DisplayWidth = 15
  1413.       FieldName = 'RacunBr'
  1414.       Size = 50
  1415.     end
  1416.     object tGlavaOtpremnicaBr: TStringField
  1417.       DisplayLabel = 'Otpremnica broj'
  1418.       DisplayWidth = 20
  1419.       FieldName = 'OtpremnicaBr'
  1420.       Visible = False
  1421.       Size = 50
  1422.     end
  1423.     object tGlavaZahtjevnicaBr: TStringField
  1424.       DisplayLabel = 'Zahtjevnica broj'
  1425.       DisplayWidth = 15
  1426.       FieldName = 'ZahtjevnicaBr'
  1427.       Size = 50
  1428.     end
  1429.     object tGlavaDatumDVO: TDateField
  1430.       DisplayLabel = 'Datum DVO'
  1431.       FieldName = 'DatumDVO'
  1432.     end
  1433.     object tGlavaRokPlacanja: TSmallintField
  1434.       DisplayLabel = 'RP'
  1435.       DisplayWidth = 2
  1436.       FieldName = 'RokPlacanja'
  1437.     end
  1438.     object tGlavaVrijednost: TFloatField
  1439.       FieldName = 'Vrijednost'
  1440.       Visible = False
  1441.     end
  1442.     object tGlavaVPVrijednost: TFloatField
  1443.       DisplayLabel = 'Vrijednost reversa'
  1444.       DisplayWidth = 17
  1445.       FieldName = 'VPVrijednost'
  1446.     end
  1447.     object tGlavaTrosakDirekt: TBooleanField
  1448.       FieldName = 'TrosakDirekt'
  1449.       Visible = False
  1450.       OnChange = KolikoNaKonto
  1451.     end
  1452.     object tGlavaKontoTroska: TIntegerField
  1453.       FieldName = 'KontoTroska'
  1454.       Visible = False
  1455.     end
  1456.     object tGlavaKontoTroskaD: TIntegerField
  1457.       FieldName = 'KontoTroskaD'
  1458.       Visible = False
  1459.     end
  1460.     object tGlavaStopaTroska: TFloatField
  1461.       FieldName = 'StopaTroska'
  1462.       Visible = False
  1463.     end
  1464.     object tGlavaTransport: TFloatField
  1465.       FieldName = 'Transport'
  1466.       Visible = False
  1467.       OnChange = KolikoNaKonto
  1468.     end
  1469.     object tGlavaOstaliTroskovi: TFloatField
  1470.       FieldName = 'OstaliTroskovi'
  1471.       Visible = False
  1472.       OnChange = KolikoNaKonto
  1473.     end
  1474.     object tGlavaTransportNaKonto: TFloatField
  1475.       FieldName = 'TransportNaKonto'
  1476.       Visible = False
  1477.     end
  1478.     object tGlavaTransportNaRobu: TFloatField
  1479.       FieldName = 'TransportNaRobu'
  1480.       Visible = False
  1481.     end
  1482.     object tGlavaOstaloNaKonto: TFloatField
  1483.       FieldName = 'OstaloNaKonto'
  1484.       Visible = False
  1485.     end
  1486.     object tGlavaOstaloNaRobu: TFloatField
  1487.       FieldName = 'OstaloNaRobu'
  1488.       Visible = False
  1489.     end
  1490.     object tGlavaRabatIznos: TBooleanField
  1491.       FieldName = 'RabatIznos'
  1492.       Visible = False
  1493.     end
  1494.     object tGlavaImaRabat2: TBooleanField
  1495.       FieldName = 'ImaRabat2'
  1496.       Visible = False
  1497.     end
  1498.     object tGlavaRabat2Kolicina: TBooleanField
  1499.       FieldName = 'Rabat2Kolicina'
  1500.       Visible = False
  1501.     end
  1502.     object tGlavaVeceKolicine: TBooleanField
  1503.       FieldName = 'VeceKolicine'
  1504.       Visible = False
  1505.     end
  1506.     object tGlavaIstiRabat: TBooleanField
  1507.       FieldName = 'IstiRabat'
  1508.       Visible = False
  1509.     end
  1510.     object tGlavaRabat1: TFloatField
  1511.       FieldName = 'Rabat1'
  1512.       Visible = False
  1513.     end
  1514.     object tGlavaRabat2: TFloatField
  1515.       FieldName = 'Rabat2'
  1516.       Visible = False
  1517.     end
  1518.     object tGlavaRabatMod: TBooleanField
  1519.       FieldName = 'RabatMod'
  1520.       Visible = False
  1521.     end
  1522.     object tGlavaPodesiCijenu: TBooleanField
  1523.       FieldName = 'PodesiCijenu'
  1524.       Visible = False
  1525.     end
  1526.     object tGlavaPodesiVPC: TBooleanField
  1527.       FieldName = 'PodesiVPC'
  1528.       Visible = False
  1529.     end
  1530.     object tGlavaZEM: TStringField
  1531.       FieldName = 'ZEM'
  1532.       Visible = False
  1533.       Size = 1
  1534.       Calculated = True
  1535.     end
  1536.     object tGlavaVrsta: TSmallintField
  1537.       FieldName = 'Vrsta'
  1538.       Visible = False
  1539.       Calculated = True
  1540.     end
  1541.     object tGlavaJA: TIntegerField
  1542.       FieldName = 'JA'
  1543.       Visible = False
  1544.       Calculated = True
  1545.     end
  1546.   end
  1547.   object xSkladiste: TMyTable
  1548.     DatabaseName = 'Lokal2'
  1549.     IndexFieldNames = 'Code'
  1550.     TableName = 'SKLADIST.DB'
  1551.     AutoOpen = False
  1552.     AutoFlush = True
  1553.     FreeToModify = False
  1554.     FreeToDelete = True
  1555.     FreeToInsert = True
  1556.     Left = 185
  1557.     Top = 219
  1558.     object xSkladisteCode: TAutoIncField
  1559.       FieldName = 'Code'
  1560.     end
  1561.     object xSkladisteZarada: TSmallintField
  1562.       FieldName = 'Zarada'
  1563.     end
  1564.     object xSkladisteVP_Sklad: TIntegerField
  1565.       FieldName = 'VP_Sklad'
  1566.     end
  1567.   end
  1568.   object tPartner2: TMyTable
  1569.     DatabaseName = 'Lokal'
  1570.     IndexFieldNames = 'Partner'
  1571.     TableName = 'SIF_PART.DB'
  1572.     AutoOpen = True
  1573.     AutoFlush = True
  1574.     FreeToModify = False
  1575.     FreeToDelete = True
  1576.     FreeToInsert = True
  1577.     Left = 432
  1578.     Top = 219
  1579.     object tPartner2Partner: TIntegerField
  1580.       FieldName = 'Partner'
  1581.     end
  1582.     object tPartner2Tretman: TBooleanField
  1583.       FieldName = 'Tretman'
  1584.     end
  1585.     object tPartner2UrabatIznos: TBooleanField
  1586.       FieldName = 'UrabatIznos'
  1587.     end
  1588.     object tPartner2XrabatIznos: TBooleanField
  1589.       FieldName = 'XrabatIznos'
  1590.     end
  1591.     object tPartner2UrabatVar: TBooleanField
  1592.       FieldName = 'UrabatVar'
  1593.     end
  1594.     object tPartner2XrabatVar: TBooleanField
  1595.       FieldName = 'XrabatVar'
  1596.     end
  1597.     object tPartner2UunosFV: TBooleanField
  1598.       FieldName = 'UunosFV'
  1599.     end
  1600.     object tPartner2XunosFV: TBooleanField
  1601.       FieldName = 'XunosFV'
  1602.     end
  1603.     object tPartner2UunosVPC: TBooleanField
  1604.       FieldName = 'UunosVPC'
  1605.     end
  1606.     object tPartner2XunosVPC: TBooleanField
  1607.       FieldName = 'XunosVPC'
  1608.     end
  1609.     object tPartner2XdatumDok: TBooleanField
  1610.       FieldName = 'XdatumDok'
  1611.     end
  1612.     object tPartner2XdatumDVO: TBooleanField
  1613.       FieldName = 'XdatumDVO'
  1614.     end
  1615.     object tPartner2XdatumValute: TBooleanField
  1616.       FieldName = 'XdatumValute'
  1617.     end
  1618.     object tPartner2XrokPlacanja: TBooleanField
  1619.       FieldName = 'XrokPlacanja'
  1620.     end
  1621.     object tPartner2Xotpremnica: TBooleanField
  1622.       FieldName = 'Xotpremnica'
  1623.     end
  1624.     object tPartner2Xnarudzbenica: TBooleanField
  1625.       FieldName = 'Xnarudzbenica'
  1626.     end
  1627.     object tPartner2Xtroskovi: TBooleanField
  1628.       FieldName = 'Xtroskovi'
  1629.     end
  1630.     object tPartner2UpoDobavljacu: TBooleanField
  1631.       FieldName = 'UpoDobavljacu'
  1632.     end
  1633.     object tPartner2XpoDobavljacu: TBooleanField
  1634.       FieldName = 'XpoDobavljacu'
  1635.     end
  1636.     object tPartner2UnudiRabat: TBooleanField
  1637.       FieldName = 'UnudiRabat'
  1638.     end
  1639.     object tPartner2XnudiRabat: TBooleanField
  1640.       FieldName = 'XnudiRabat'
  1641.     end
  1642.   end
  1643. end
  1644.