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

  1. object DataUfaM: TDataUfaM
  2.   Tag = 1
  3.   OnDestroy = DUlaznaFakturaMPDestroy
  4.   Left = 243
  5.   Top = 193
  6.   Height = 305
  7.   Width = 544
  8.   object sGlava: TDataSource
  9.     DataSet = tGlava
  10.     Left = 326
  11.     Top = 5
  12.   end
  13.   object sStavke: TDataSource
  14.     DataSet = tStavke
  15.     Left = 167
  16.     Top = 89
  17.   end
  18.   object sKonto: TDataSource
  19.     DataSet = tKonto
  20.     Left = 8
  21.     Top = 47
  22.   end
  23.   object sSkladist: TDataSource
  24.     DataSet = tSkladist
  25.     Left = 61
  26.     Top = 89
  27.   end
  28.   object sKonto2: TDataSource
  29.     DataSet = tKonto2
  30.     Left = 61
  31.     Top = 47
  32.   end
  33.   object sArtikl: TDataSource
  34.     DataSet = tArtikl
  35.     Left = 8
  36.     Top = 5
  37.   end
  38.   object sBoje: TDataSource
  39.     DataSet = tBoje
  40.     Left = 167
  41.     Top = 5
  42.   end
  43.   object sMjere: TDataSource
  44.     DataSet = tMjere
  45.     Left = 273
  46.     Top = 47
  47.   end
  48.   object sRoba: TDataSource
  49.     DataSet = tRoba
  50.     Left = 8
  51.     Top = 89
  52.   end
  53.   object sBoja: TDataSource
  54.     DataSet = tBoja
  55.     Left = 114
  56.     Top = 5
  57.   end
  58.   object sKonto3: TDataSource
  59.     DataSet = tKonto3
  60.     Left = 114
  61.     Top = 47
  62.   end
  63.   object sJedinice: TDataSource
  64.     DataSet = tJedinice
  65.     Left = 485
  66.     Top = 5
  67.   end
  68.   object sUsluge: TDataSource
  69.     DataSet = tUsluge
  70.     Left = 220
  71.     Top = 89
  72.   end
  73.   object sAtomi: TDataSource
  74.     DataSet = tAtomi
  75.     Left = 61
  76.     Top = 5
  77.   end
  78.   object sValuta: TDataSource
  79.     DataSet = DGlava.tValuta
  80.     Left = 326
  81.     Top = 89
  82.   end
  83.   object sPorez: TDataSource
  84.     DataSet = tPorez
  85.     Left = 485
  86.     Top = 47
  87.   end
  88.   object sImeRobe: TDataSource
  89.     DataSet = tImeRobe
  90.     Left = 432
  91.     Top = 5
  92.   end
  93.   object sImeBoje: TDataSource
  94.     DataSet = tImeBoje
  95.     Left = 379
  96.     Top = 5
  97.   end
  98.   object sKonto4: TDataSource
  99.     DataSet = tKonto4
  100.     Left = 167
  101.     Top = 47
  102.   end
  103.   object sSkladiste: TDataSource
  104.     DataSet = tSkladiste
  105.     Left = 114
  106.     Top = 89
  107.   end
  108.   object sPakung: TDataSource
  109.     DataSet = tPakung
  110.     Left = 432
  111.     Top = 47
  112.   end
  113.   object sKonto5: TDataSource
  114.     DataSet = tKonto5
  115.     Left = 220
  116.     Top = 47
  117.   end
  118.   object sOrgJed2: TDataSource
  119.     DataSet = tOrgJed2
  120.     Left = 326
  121.     Top = 47
  122.   end
  123.   object sOrgJed3: TDataSource
  124.     DataSet = tOrgJed3
  125.     Left = 379
  126.     Top = 47
  127.   end
  128.   object sUsluge2: TDataSource
  129.     DataSet = tUsluge2
  130.     Left = 273
  131.     Top = 89
  132.   end
  133.   object sCeneRobe: TDataSource
  134.     DataSet = tCeneRobe
  135.     Left = 220
  136.     Top = 5
  137.   end
  138.   object sCodes: TDataSource
  139.     DataSet = tCodes
  140.     Left = 273
  141.     Top = 5
  142.   end
  143.   object sxGlava: TDataSource
  144.     DataSet = xGlava
  145.     Left = 332
  146.     Top = 216
  147.   end
  148.   object tPorezi: TMyTable
  149.     DatabaseName = 'Global'
  150.     IndexFieldNames = 'Tarifa;Datum'
  151.     MasterFields = 'Code'
  152.     MasterSource = sPorez
  153.     TableName = 'S_POREZA.DB'
  154.     AutoOpen = True
  155.     AutoFlush = True
  156.     FreeToModify = False
  157.     FreeToDelete = True
  158.     FreeToInsert = True
  159.     Left = 379
  160.     Top = 173
  161.     object tPoreziDatum: TDateField
  162.       FieldName = 'Datum'
  163.     end
  164.     object tPoreziTarifa: TIntegerField
  165.       FieldName = 'Tarifa'
  166.     end
  167.     object tPoreziStopaRoba: TFloatField
  168.       FieldName = 'StopaRoba'
  169.       Precision = 9
  170.     end
  171.     object tPoreziStopaRUC: TFloatField
  172.       FieldName = 'StopaRUC'
  173.       Precision = 9
  174.     end
  175.     object tPoreziStopaUsluga: TFloatField
  176.       FieldName = 'StopaUsluga'
  177.       Precision = 9
  178.     end
  179.     object tPoreziStopaOtpis: TFloatField
  180.       FieldName = 'StopaOtpis'
  181.       Precision = 9
  182.     end
  183.     object tPoreziStopaPotrosnja: TFloatField
  184.       FieldName = 'StopaPotrosnja'
  185.       Precision = 9
  186.     end
  187.     object tPoreziStopaDodVrijednost: TFloatField
  188.       FieldName = 'StopaDodVrijednost'
  189.       Precision = 9
  190.     end
  191.   end
  192.   object tKonto: TMyTable
  193.     DatabaseName = 'Global'
  194.     IndexFieldNames = 'CODE'
  195.     MasterFields = 'KONTO'
  196.     MasterSource = sGlava
  197.     TableName = 'KONTA.DB'
  198.     AutoOpen = True
  199.     AutoFlush = True
  200.     FreeToModify = False
  201.     FreeToDelete = True
  202.     FreeToInsert = True
  203.     Left = 379
  204.     Top = 131
  205.   end
  206.   object tKonto2: TMyTable
  207.     DatabaseName = 'Global'
  208.     IndexFieldNames = 'CODE'
  209.     MasterFields = 'KONTO'
  210.     MasterSource = sStavke
  211.     TableName = 'KONTA.DB'
  212.     AutoOpen = True
  213.     AutoFlush = True
  214.     FreeToModify = False
  215.     FreeToDelete = True
  216.     FreeToInsert = True
  217.     Left = 432
  218.     Top = 131
  219.   end
  220.   object tKonto3: TMyTable
  221.     DatabaseName = 'Global'
  222.     IndexFieldNames = 'CODE'
  223.     MasterFields = 'KONTOD'
  224.     MasterSource = sStavke
  225.     TableName = 'KONTA.DB'
  226.     AutoOpen = True
  227.     AutoFlush = True
  228.     FreeToModify = False
  229.     FreeToDelete = True
  230.     FreeToInsert = True
  231.     Left = 485
  232.     Top = 131
  233.   end
  234.   object tKonto4: TMyTable
  235.     DatabaseName = 'Global'
  236.     IndexFieldNames = 'CODE'
  237.     MasterFields = 'KONTOTROSKA'
  238.     MasterSource = sGlava
  239.     TableName = 'KONTA.DB'
  240.     AutoOpen = True
  241.     AutoFlush = True
  242.     FreeToModify = False
  243.     FreeToDelete = True
  244.     FreeToInsert = True
  245.     Left = 8
  246.     Top = 173
  247.   end
  248.   object tKonto5: TMyTable
  249.     DatabaseName = 'Global'
  250.     IndexFieldNames = 'CODE'
  251.     MasterFields = 'KONTOTROSKAD'
  252.     MasterSource = sGlava
  253.     TableName = 'KONTA.DB'
  254.     AutoOpen = True
  255.     AutoFlush = True
  256.     FreeToModify = False
  257.     FreeToDelete = True
  258.     FreeToInsert = True
  259.     Left = 61
  260.     Top = 173
  261.   end
  262.   object tSkladist: TMyTable
  263.     DatabaseName = 'Lokal'
  264.     IndexFieldNames = 'MJESTO;VRSTATER;CODE'
  265.     MasterFields = 'MJESTO;VRSTA;SKLADISTE'
  266.     MasterSource = sStavke
  267.     TableName = 'SKLADIST.DB'
  268.     AutoOpen = True
  269.     AutoFlush = True
  270.     FreeToModify = False
  271.     FreeToDelete = True
  272.     FreeToInsert = True
  273.     Left = 485
  274.     Top = 173
  275.     object tSkladistCode: TAutoIncField
  276.       FieldName = 'Code'
  277.     end
  278.     object tSkladistSifra: TStringField
  279.       FieldName = 'Sifra'
  280.       Size = 40
  281.     end
  282.     object tSkladistNaziv: TStringField
  283.       FieldName = 'Naziv'
  284.       Size = 80
  285.     end
  286.     object tSkladistMoje: TBooleanField
  287.       FieldName = 'Moje'
  288.     end
  289.     object tSkladistPartner: TIntegerField
  290.       FieldName = 'Partner'
  291.     end
  292.     object tSkladistLokacija: TIntegerField
  293.       FieldName = 'Lokacija'
  294.     end
  295.     object tSkladistVlasnik: TIntegerField
  296.       FieldName = 'Vlasnik'
  297.     end
  298.     object tSkladistOrgJed: TIntegerField
  299.       FieldName = 'OrgJed'
  300.     end
  301.     object tSkladistDrzava: TIntegerField
  302.       FieldName = 'Drzava'
  303.     end
  304.     object tSkladistMjesto: TStringField
  305.       FieldName = 'Mjesto'
  306.       Size = 1
  307.     end
  308.     object tSkladistVrstaTer: TSmallintField
  309.       FieldName = 'VrstaTer'
  310.     end
  311.     object tSkladistZarada: TSmallintField
  312.       FieldName = 'Zarada'
  313.     end
  314.     object tSkladistVP_Sklad: TIntegerField
  315.       FieldName = 'VP_Sklad'
  316.     end
  317.     object tSkladistMP_Sklad: TIntegerField
  318.       FieldName = 'MP_Sklad'
  319.     end
  320.     object tSkladistOsnovica: TSmallintField
  321.       FieldName = 'Osnovica'
  322.     end
  323.     object tSkladistProvizija: TFloatField
  324.       FieldName = 'Provizija'
  325.     end
  326.     object tSkladistKnjiga: TIntegerField
  327.       FieldName = 'Knjiga'
  328.     end
  329.     object tSkladistValuta: TIntegerField
  330.       FieldName = 'Valuta'
  331.     end
  332.     object tSkladistKontoRobe: TIntegerField
  333.       FieldName = 'KontoRobe'
  334.     end
  335.     object tSkladistKontoNVPRobe: TIntegerField
  336.       FieldName = 'KontoNVPRobe'
  337.     end
  338.     object tSkladistKontoPPRobe: TIntegerField
  339.       FieldName = 'KontoPPRobe'
  340.     end
  341.     object tSkladistKontoRUC: TIntegerField
  342.       FieldName = 'KontoRUC'
  343.     end
  344.     object tSkladistKontoManjak: TIntegerField
  345.       FieldName = 'KontoManjak'
  346.     end
  347.     object tSkladistKontoTroskaProdaje: TIntegerField
  348.       FieldName = 'KontoTroskaProdaje'
  349.     end
  350.     object tSkladistKontoKvar: TIntegerField
  351.       FieldName = 'KontoKvar'
  352.     end
  353.     object tSkladistKontoTrgRoba: TIntegerField
  354.       FieldName = 'KontoTrgRoba'
  355.     end
  356.     object tSkladistKontoKalkPorez: TIntegerField
  357.       FieldName = 'KontoKalkPorez'
  358.     end
  359.     object tSkladistKontoTroskaNabave: TIntegerField
  360.       FieldName = 'KontoTroskaNabave'
  361.     end
  362.     object tSkladistKontoRabata: TIntegerField
  363.       FieldName = 'KontoRabata'
  364.     end
  365.     object tSkladistItems: TIntegerField
  366.       FieldName = 'Items'
  367.     end
  368.   end
  369.   object xSkladiste2: TMyTable
  370.     DatabaseName = 'Lokal2'
  371.     IndexFieldNames = 'Code'
  372.     TableName = 'SKLADIST.DB'
  373.     AutoOpen = False
  374.     AutoFlush = False
  375.     FreeToModify = False
  376.     FreeToDelete = True
  377.     FreeToInsert = True
  378.     Left = 484
  379.     Top = 216
  380.     object xSkladiste2Code: TAutoIncField
  381.       FieldName = 'Code'
  382.     end
  383.     object xSkladiste2OrgJed: TIntegerField
  384.       FieldName = 'OrgJed'
  385.     end
  386.     object xSkladiste2Knjiga: TIntegerField
  387.       FieldName = 'Knjiga'
  388.     end
  389.     object xSkladiste2KontoRobe: TIntegerField
  390.       FieldName = 'KontoRobe'
  391.     end
  392.     object xSkladiste2KontoNVPRobe: TIntegerField
  393.       FieldName = 'KontoNVPRobe'
  394.     end
  395.     object xSkladiste2KontoPPRobe: TIntegerField
  396.       FieldName = 'KontoPPRobe'
  397.     end
  398.     object xSkladiste2KontoRUC: TIntegerField
  399.       FieldName = 'KontoRUC'
  400.     end
  401.     object xSkladiste2KontoManjak: TIntegerField
  402.       FieldName = 'KontoManjak'
  403.     end
  404.     object xSkladiste2KontoTroskaProdaje: TIntegerField
  405.       FieldName = 'KontoTroskaProdaje'
  406.     end
  407.     object xSkladiste2KontoKvar: TIntegerField
  408.       FieldName = 'KontoKvar'
  409.     end
  410.     object xSkladiste2KontoTrgRoba: TIntegerField
  411.       FieldName = 'KontoTrgRoba'
  412.     end
  413.     object xSkladiste2KontoKalkPorez: TIntegerField
  414.       FieldName = 'KontoKalkPorez'
  415.     end
  416.     object xSkladiste2KontoTroskaNabave: TIntegerField
  417.       FieldName = 'KontoTroskaNabave'
  418.     end
  419.     object xSkladiste2KontoRabata: TIntegerField
  420.       FieldName = 'KontoRabata'
  421.     end
  422.     object xSkladiste2Items: TIntegerField
  423.       FieldName = 'Items'
  424.     end
  425.   end
  426.   object tSkladiste: TMyTable
  427.     DatabaseName = 'Lokal'
  428.     IndexFieldNames = 'MJESTO;PARTNER;CODE'
  429.     MasterFields = 'ZEM;JA;SKLADISTE'
  430.     MasterSource = sGlava
  431.     TableName = 'SKLADIST.DB'
  432.     AutoOpen = True
  433.     AutoFlush = True
  434.     FreeToModify = False
  435.     FreeToDelete = True
  436.     FreeToInsert = True
  437.     Left = 8
  438.     Top = 215
  439.     object tSkladisteCode: TAutoIncField
  440.       FieldName = 'Code'
  441.     end
  442.     object tSkladisteSifra: TStringField
  443.       FieldName = 'Sifra'
  444.       Size = 40
  445.     end
  446.     object tSkladisteNaziv: TStringField
  447.       FieldName = 'Naziv'
  448.       Size = 80
  449.     end
  450.     object tSkladisteMoje: TBooleanField
  451.       FieldName = 'Moje'
  452.     end
  453.     object tSkladistePartner: TIntegerField
  454.       FieldName = 'Partner'
  455.     end
  456.     object tSkladisteLokacija: TIntegerField
  457.       FieldName = 'Lokacija'
  458.     end
  459.     object tSkladisteVlasnik: TIntegerField
  460.       FieldName = 'Vlasnik'
  461.     end
  462.     object tSkladisteOrgJed: TIntegerField
  463.       FieldName = 'OrgJed'
  464.     end
  465.     object tSkladisteDrzava: TIntegerField
  466.       FieldName = 'Drzava'
  467.     end
  468.     object tSkladisteMjesto: TStringField
  469.       FieldName = 'Mjesto'
  470.       Size = 1
  471.     end
  472.     object tSkladisteVrstaTer: TSmallintField
  473.       FieldName = 'VrstaTer'
  474.     end
  475.     object tSkladisteZarada: TSmallintField
  476.       FieldName = 'Zarada'
  477.     end
  478.     object tSkladisteVP_Sklad: TIntegerField
  479.       FieldName = 'VP_Sklad'
  480.     end
  481.     object tSkladisteMP_Sklad: TIntegerField
  482.       FieldName = 'MP_Sklad'
  483.     end
  484.     object tSkladisteOsnovica: TSmallintField
  485.       FieldName = 'Osnovica'
  486.     end
  487.     object tSkladisteProvizija: TFloatField
  488.       FieldName = 'Provizija'
  489.     end
  490.     object tSkladisteKnjiga: TIntegerField
  491.       FieldName = 'Knjiga'
  492.     end
  493.     object tSkladisteValuta: TIntegerField
  494.       FieldName = 'Valuta'
  495.     end
  496.     object tSkladisteKontoRobe: TIntegerField
  497.       FieldName = 'KontoRobe'
  498.     end
  499.     object tSkladisteKontoNVPRobe: TIntegerField
  500.       FieldName = 'KontoNVPRobe'
  501.     end
  502.     object tSkladisteKontoPPRobe: TIntegerField
  503.       FieldName = 'KontoPPRobe'
  504.     end
  505.     object tSkladisteKontoRUC: TIntegerField
  506.       FieldName = 'KontoRUC'
  507.     end
  508.     object tSkladisteKontoManjak: TIntegerField
  509.       FieldName = 'KontoManjak'
  510.     end
  511.     object tSkladisteKontoTroskaProdaje: TIntegerField
  512.       FieldName = 'KontoTroskaProdaje'
  513.     end
  514.     object tSkladisteKontoKvar: TIntegerField
  515.       FieldName = 'KontoKvar'
  516.     end
  517.     object tSkladisteKontoTrgRoba: TIntegerField
  518.       FieldName = 'KontoTrgRoba'
  519.     end
  520.     object tSkladisteKontoKalkPorez: TIntegerField
  521.       FieldName = 'KontoKalkPorez'
  522.     end
  523.     object tSkladisteKontoTroskaNabave: TIntegerField
  524.       FieldName = 'KontoTroskaNabave'
  525.     end
  526.     object tSkladisteKontoRabata: TIntegerField
  527.       FieldName = 'KontoRabata'
  528.     end
  529.     object tSkladisteItems: TIntegerField
  530.       FieldName = 'Items'
  531.     end
  532.   end
  533.   object tUsluge: TMyTable
  534.     DatabaseName = 'Global'
  535.     IndexFieldNames = 'PARTNER;VRSTA;CODE'
  536.     MasterFields = 'ONI;VRSTA;ARTIKL'
  537.     MasterSource = sStavke
  538.     TableName = 'USLUGA.DB'
  539.     AutoOpen = True
  540.     AutoFlush = True
  541.     FreeToModify = False
  542.     FreeToDelete = True
  543.     FreeToInsert = True
  544.     Left = 111
  545.     Top = 215
  546.     object tUslugePartner: TIntegerField
  547.       FieldName = 'Partner'
  548.     end
  549.     object tUslugeVrsta: TSmallintField
  550.       FieldName = 'Vrsta'
  551.     end
  552.     object tUslugeSifra: TStringField
  553.       FieldName = 'Sifra'
  554.       Size = 40
  555.     end
  556.     object tUslugeCode: TIntegerField
  557.       FieldName = 'Code'
  558.     end
  559.     object tUslugeNaziv: TStringField
  560.       FieldName = 'Naziv'
  561.       Size = 60
  562.     end
  563.     object tUslugeOpis: TStringField
  564.       FieldName = 'Opis'
  565.       Size = 80
  566.     end
  567.     object tUslugeCijena: TFloatField
  568.       FieldName = 'Cijena'
  569.     end
  570.   end
  571.   object tOrgJed2: TMyTable
  572.     DatabaseName = 'Global'
  573.     IndexFieldNames = 'PARTNER;CODE'
  574.     MasterFields = 'JA;ORGJED'
  575.     MasterSource = sGlava
  576.     TableName = 'ORG_JED.DB'
  577.     AutoOpen = True
  578.     AutoFlush = True
  579.     FreeToModify = False
  580.     FreeToDelete = True
  581.     FreeToInsert = True
  582.     Left = 167
  583.     Top = 173
  584.     object tOrgJed2Code: TAutoIncField
  585.       FieldName = 'Code'
  586.     end
  587.     object tOrgJed2Partner: TIntegerField
  588.       FieldName = 'Partner'
  589.     end
  590.     object tOrgJed2Sifra: TStringField
  591.       FieldName = 'Sifra'
  592.       Size = 40
  593.     end
  594.     object tOrgJed2Naziv: TStringField
  595.       FieldName = 'Naziv'
  596.       Size = 60
  597.     end
  598.   end
  599.   object tOrgJed3: TMyTable
  600.     DatabaseName = 'Global'
  601.     IndexFieldNames = 'PARTNER;CODE'
  602.     MasterFields = 'JA;ORGJED'
  603.     MasterSource = sStavke
  604.     TableName = 'ORG_JED.DB'
  605.     AutoOpen = True
  606.     AutoFlush = True
  607.     FreeToModify = False
  608.     FreeToDelete = True
  609.     FreeToInsert = True
  610.     Left = 220
  611.     Top = 173
  612.     object tOrgJed3Code: TAutoIncField
  613.       FieldName = 'Code'
  614.     end
  615.     object tOrgJed3Partner: TIntegerField
  616.       FieldName = 'Partner'
  617.     end
  618.     object tOrgJed3Sifra: TStringField
  619.       FieldName = 'Sifra'
  620.       Size = 40
  621.     end
  622.     object tOrgJed3Naziv: TStringField
  623.       FieldName = 'Naziv'
  624.       Size = 60
  625.     end
  626.   end
  627.   object tPorez: TMyTable
  628.     DatabaseName = 'Global'
  629.     IndexFieldNames = 'Code'
  630.     MasterFields = 'TARIFAPOREZA'
  631.     MasterSource = sStavke
  632.     TableName = 'T_POREZA.DB'
  633.     AutoOpen = True
  634.     AutoFlush = True
  635.     FreeToModify = False
  636.     FreeToDelete = True
  637.     FreeToInsert = True
  638.     Left = 326
  639.     Top = 173
  640.     object tPorezCode: TAutoIncField
  641.       FieldName = 'Code'
  642.     end
  643.     object tPorezTarifa: TStringField
  644.       FieldName = 'Tarifa'
  645.       Size = 40
  646.     end
  647.     object tPorezNaziv: TStringField
  648.       FieldName = 'Naziv'
  649.       Size = 60
  650.     end
  651.     object tPorezKontoRoba: TIntegerField
  652.       FieldName = 'KontoRoba'
  653.     end
  654.     object tPorezKontoRUC: TIntegerField
  655.       FieldName = 'KontoRUC'
  656.     end
  657.     object tPorezKontoUsluga: TIntegerField
  658.       FieldName = 'KontoUsluga'
  659.     end
  660.     object tPorezKontoOtpis: TIntegerField
  661.       FieldName = 'KontoOtpis'
  662.     end
  663.     object tPorezKontoPotrosnja: TIntegerField
  664.       FieldName = 'KontoPotrosnja'
  665.     end
  666.     object tPorezKontoDodVrijednost: TIntegerField
  667.       FieldName = 'KontoDodVrijednost'
  668.     end
  669.     object tPorezItems: TIntegerField
  670.       FieldName = 'Items'
  671.     end
  672.   end
  673.   object tImeRobe: TMyTable
  674.     DatabaseName = 'Global'
  675.     IndexFieldNames = 'Roba;Govor'
  676.     MasterFields = 'Code;Govor'
  677.     MasterSource = sRoba
  678.     TableName = 'IME_ROBE.DB'
  679.     AutoOpen = True
  680.     AutoFlush = True
  681.     FreeToModify = False
  682.     FreeToDelete = True
  683.     FreeToInsert = True
  684.     Left = 273
  685.     Top = 131
  686.     object tImeRobeRoba: TIntegerField
  687.       FieldName = 'Roba'
  688.     end
  689.     object tImeRobeGovor: TIntegerField
  690.       FieldName = 'Govor'
  691.     end
  692.     object tImeRobeNaziv: TStringField
  693.       FieldName = 'Naziv'
  694.       OnGetText = tImeRobeNazivGetText
  695.       Size = 60
  696.     end
  697.   end
  698.   object tRoba: TMyTable
  699.     AutoCalcFields = False
  700.     OnCalcFields = tRobaCalcFields
  701.     DatabaseName = 'Global'
  702.     IndexFieldNames = 'Code'
  703.     MasterFields = 'Code'
  704.     MasterSource = sArtikl
  705.     TableName = 'ROBA.DB'
  706.     AutoOpen = True
  707.     AutoFlush = True
  708.     FreeToModify = False
  709.     FreeToDelete = True
  710.     FreeToInsert = True
  711.     Left = 432
  712.     Top = 173
  713.     object tRobaCode: TAutoIncField
  714.       FieldName = 'Code'
  715.     end
  716.     object tRobaProizvodi: TIntegerField
  717.       FieldName = 'Proizvodi'
  718.     end
  719.     object tRobaNaziv: TStringField
  720.       FieldName = 'Naziv'
  721.       Size = 60
  722.     end
  723.     object tRobaTarifaPoreza: TIntegerField
  724.       FieldName = 'TarifaPoreza'
  725.     end
  726.     object tRobaTarifaCarine: TIntegerField
  727.       FieldName = 'TarifaCarine'
  728.     end
  729.     object tRobaVrsta: TIntegerField
  730.       FieldName = 'Vrsta'
  731.     end
  732.     object tRobaJedMj: TIntegerField
  733.       FieldName = 'JedMj'
  734.     end
  735.     object tRobaPakiranje: TIntegerField
  736.       FieldName = 'Pakiranje'
  737.     end
  738.     object tRobaBarKod: TStringField
  739.       FieldName = 'BarKod'
  740.       Size = 13
  741.     end
  742.     object tRobaTezina: TFloatField
  743.       FieldName = 'Tezina'
  744.       Precision = 9
  745.     end
  746.     object tRobaBezbojno: TBooleanField
  747.       FieldName = 'Bezbojno'
  748.     end
  749.     object tRobaJa: TIntegerField
  750.       FieldName = 'Ja'
  751.       Visible = False
  752.       Calculated = True
  753.     end
  754.     object tRobaGovor: TIntegerField
  755.       FieldName = 'Govor'
  756.       Calculated = True
  757.     end
  758.     object tRobaItems: TIntegerField
  759.       FieldName = 'Items'
  760.     end
  761.   end
  762.   object tArtikl: TMyTable
  763.     DatabaseName = 'Global'
  764.     IndexFieldNames = 'PARTNER;OTKUP;CODE'
  765.     MasterFields = 'JA;OTKUP;ARTIKL'
  766.     MasterSource = sStavke
  767.     TableName = 'SIF_ROBE.DB'
  768.     AutoOpen = True
  769.     AutoFlush = True
  770.     FreeToModify = False
  771.     FreeToDelete = True
  772.     FreeToInsert = True
  773.     Left = 379
  774.     Top = 89
  775.     object tArtiklPartner: TIntegerField
  776.       FieldName = 'Partner'
  777.     end
  778.     object tArtiklSifra: TStringField
  779.       FieldName = 'Sifra'
  780.       Size = 40
  781.     end
  782.     object tArtiklCode: TIntegerField
  783.       FieldName = 'Code'
  784.     end
  785.     object tArtiklNaziv: TStringField
  786.       FieldName = 'Naziv'
  787.       Size = 60
  788.     end
  789.     object tArtiklProizvodi: TIntegerField
  790.       FieldName = 'Proizvodi'
  791.     end
  792.     object tArtiklOtkup: TStringField
  793.       FieldName = 'Otkup'
  794.       Size = 1
  795.     end
  796.     object tArtiklItems: TIntegerField
  797.       FieldName = 'Items'
  798.     end
  799.   end
  800.   object tImeBoje: TMyTable
  801.     DatabaseName = 'Global'
  802.     IndexFieldNames = 'Boja;Govor'
  803.     MasterFields = 'Code;Govor'
  804.     MasterSource = sBoja
  805.     TableName = 'IME_BOJA.DB'
  806.     AutoOpen = True
  807.     AutoFlush = True
  808.     FreeToModify = False
  809.     FreeToDelete = True
  810.     FreeToInsert = True
  811.     Left = 220
  812.     Top = 131
  813.     object tImeBojeBoja: TIntegerField
  814.       FieldName = 'Boja'
  815.     end
  816.     object tImeBojeGovor: TIntegerField
  817.       FieldName = 'Govor'
  818.     end
  819.     object tImeBojeNaziv: TStringField
  820.       FieldName = 'Naziv'
  821.       OnGetText = tImeBojeNazivGetText
  822.       Size = 60
  823.     end
  824.   end
  825.   object tBoja: TMyTable
  826.     AutoCalcFields = False
  827.     OnCalcFields = tBojaCalcFields
  828.     DatabaseName = 'Global'
  829.     IndexFieldNames = 'Code'
  830.     MasterFields = 'Code'
  831.     MasterSource = sBoje
  832.     TableName = 'BOJE.DB'
  833.     AutoOpen = True
  834.     AutoFlush = True
  835.     FreeToModify = False
  836.     FreeToDelete = True
  837.     FreeToInsert = True
  838.     Left = 485
  839.     Top = 89
  840.     object tBojaCode: TAutoIncField
  841.       FieldName = 'Code'
  842.     end
  843.     object tBojaProizvodi: TIntegerField
  844.       FieldName = 'Proizvodi'
  845.     end
  846.     object tBojaNaziv: TStringField
  847.       FieldName = 'Naziv'
  848.       Size = 60
  849.     end
  850.     object tBojaGovor: TIntegerField
  851.       FieldName = 'Govor'
  852.       Calculated = True
  853.     end
  854.     object tBojaJa: TIntegerField
  855.       FieldName = 'Ja'
  856.       Calculated = True
  857.     end
  858.     object tBojaItems: TIntegerField
  859.       FieldName = 'Items'
  860.     end
  861.   end
  862.   object tBoje: TMyTable
  863.     DatabaseName = 'Global'
  864.     IndexFieldNames = 'PARTNER;PROIZVODI;CODE'
  865.     MasterFields = 'JA;PROIZVODI;BOJA'
  866.     MasterSource = sStavke
  867.     TableName = 'SIF_BOJA.DB'
  868.     AutoOpen = True
  869.     AutoFlush = True
  870.     FreeToModify = False
  871.     FreeToDelete = True
  872.     FreeToInsert = True
  873.     Left = 8
  874.     Top = 131
  875.     object tBojePartner: TIntegerField
  876.       FieldName = 'Partner'
  877.     end
  878.     object tBojeProizvodi: TIntegerField
  879.       FieldName = 'Proizvodi'
  880.     end
  881.     object tBojeSifra: TStringField
  882.       FieldName = 'Sifra'
  883.       Size = 40
  884.     end
  885.     object tBojeCode: TIntegerField
  886.       FieldName = 'Code'
  887.     end
  888.     object tBojeNaziv: TStringField
  889.       FieldName = 'Naziv'
  890.       Size = 60
  891.     end
  892.     object tBojeItems: TIntegerField
  893.       FieldName = 'Items'
  894.     end
  895.   end
  896.   object tMjere: TMyTable
  897.     DatabaseName = 'Global'
  898.     IndexFieldNames = 'Jedinica;Govor'
  899.     MasterFields = 'Code;Govor'
  900.     MasterSource = sJedinice
  901.     TableName = 'MJERE.DB'
  902.     AutoOpen = True
  903.     AutoFlush = True
  904.     FreeToModify = False
  905.     FreeToDelete = True
  906.     FreeToInsert = True
  907.     Left = 114
  908.     Top = 173
  909.     object tMjereJedinica: TIntegerField
  910.       FieldName = 'Jedinica'
  911.     end
  912.     object tMjereGovor: TIntegerField
  913.       FieldName = 'Govor'
  914.     end
  915.     object tMjereNaziv: TStringField
  916.       FieldName = 'Naziv'
  917.       Size = 60
  918.     end
  919.   end
  920.   object tJedinice: TMyTable
  921.     AutoCalcFields = False
  922.     OnCalcFields = tJediniceCalcFields
  923.     DatabaseName = 'Global'
  924.     IndexFieldNames = 'CODE'
  925.     MasterFields = 'JEDMJ'
  926.     MasterSource = sRoba
  927.     TableName = 'JEDINICE.DB'
  928.     AutoOpen = True
  929.     AutoFlush = True
  930.     FreeToModify = False
  931.     FreeToDelete = True
  932.     FreeToInsert = True
  933.     Left = 326
  934.     Top = 131
  935.     object tJediniceCode: TAutoIncField
  936.       FieldName = 'Code'
  937.     end
  938.     object tJediniceSifra: TStringField
  939.       FieldName = 'Sifra'
  940.       Size = 40
  941.     end
  942.     object tJediniceGovor: TIntegerField
  943.       FieldName = 'Govor'
  944.       Calculated = True
  945.     end
  946.   end
  947.   object tPakung: TMyTable
  948.     DatabaseName = 'Global'
  949.     IndexFieldNames = 'Jedinica;Code'
  950.     MasterFields = 'JedMj;Pakiranje'
  951.     MasterSource = sRoba
  952.     TableName = 'PAKUNG.DB'
  953.     AutoOpen = True
  954.     AutoFlush = True
  955.     FreeToModify = False
  956.     FreeToDelete = True
  957.     FreeToInsert = True
  958.     Left = 273
  959.     Top = 173
  960.     object tPakungCode: TAutoIncField
  961.       FieldName = 'Code'
  962.     end
  963.     object tPakungJedinica: TIntegerField
  964.       FieldName = 'Jedinica'
  965.     end
  966.     object tPakungSifra: TStringField
  967.       FieldName = 'Sifra'
  968.       Size = 40
  969.     end
  970.     object tPakungMinKolicina: TFloatField
  971.       FieldName = 'MinKolicina'
  972.       Precision = 9
  973.     end
  974.     object tPakungImaAtoma: TBooleanField
  975.       FieldName = 'ImaAtoma'
  976.     end
  977.     object tPakungCijene: TFloatField
  978.       FieldName = 'Cijene'
  979.       Precision = 9
  980.     end
  981.   end
  982.   object tAtomi: TMyTable
  983.     DatabaseName = 'Global'
  984.     IndexFieldNames = 'PAKUNG;KOLICINA'
  985.     MasterFields = 'PAKUNG;ATOM'
  986.     MasterSource = sStavke
  987.     TableName = 'ATOMI.DB'
  988.     AutoOpen = True
  989.     AutoFlush = True
  990.     FreeToModify = False
  991.     FreeToDelete = True
  992.     FreeToInsert = True
  993.     Left = 432
  994.     Top = 89
  995.     object tAtomiPakung: TIntegerField
  996.       FieldName = 'Pakung'
  997.     end
  998.     object tAtomiKolicina: TFloatField
  999.       FieldName = 'Kolicina'
  1000.       Precision = 9
  1001.     end
  1002.   end
  1003.   object xUsluge3: TMyTable
  1004.     DatabaseName = 'Global2'
  1005.     IndexFieldNames = 'Code'
  1006.     TableName = 'USLUGA.DB'
  1007.     AutoOpen = False
  1008.     AutoFlush = False
  1009.     FreeToModify = False
  1010.     FreeToDelete = True
  1011.     FreeToInsert = True
  1012.     Left = 285
  1013.     Top = 215
  1014.     object xUsluge3Partner: TIntegerField
  1015.       FieldName = 'Partner'
  1016.     end
  1017.     object xUsluge3Vrsta: TSmallintField
  1018.       FieldName = 'Vrsta'
  1019.     end
  1020.     object xUsluge3Sifra: TStringField
  1021.       FieldName = 'Sifra'
  1022.       Size = 40
  1023.     end
  1024.     object xUsluge3Code: TIntegerField
  1025.       FieldName = 'Code'
  1026.     end
  1027.     object xUsluge3Naziv: TStringField
  1028.       FieldName = 'Naziv'
  1029.       Size = 60
  1030.     end
  1031.     object xUsluge3Opis: TStringField
  1032.       FieldName = 'Opis'
  1033.       Size = 80
  1034.     end
  1035.     object xUsluge3Cijena: TFloatField
  1036.       FieldName = 'Cijena'
  1037.     end
  1038.   end
  1039.   object tUsluge2: TMyTable
  1040.     DatabaseName = 'Global'
  1041.     IndexFieldNames = 'Code'
  1042.     MasterFields = 'Code'
  1043.     MasterSource = sUsluge
  1044.     TableName = 'USLUGE.DB'
  1045.     AutoOpen = True
  1046.     AutoFlush = True
  1047.     FreeToModify = False
  1048.     FreeToDelete = True
  1049.     FreeToInsert = True
  1050.     Left = 164
  1051.     Top = 215
  1052.     object tUsluge2Code: TAutoIncField
  1053.       FieldName = 'Code'
  1054.     end
  1055.     object tUsluge2Vrsta: TSmallintField
  1056.       FieldName = 'Vrsta'
  1057.     end
  1058.     object tUsluge2Sifra: TStringField
  1059.       FieldName = 'Sifra'
  1060.       Size = 40
  1061.     end
  1062.     object tUsluge2Naziv: TStringField
  1063.       FieldName = 'Naziv'
  1064.       Size = 60
  1065.     end
  1066.     object tUsluge2KontoT: TIntegerField
  1067.       FieldName = 'KontoT'
  1068.     end
  1069.     object tUsluge2KontoP: TIntegerField
  1070.       FieldName = 'KontoP'
  1071.     end
  1072.     object tUsluge2JedMj: TIntegerField
  1073.       FieldName = 'JedMj'
  1074.     end
  1075.     object tUsluge2TarifaPoreza: TIntegerField
  1076.       FieldName = 'TarifaPoreza'
  1077.     end
  1078.   end
  1079.   object tCeneRobe: TMyTable
  1080.     DatabaseName = 'Lokal'
  1081.     IndexFieldNames = 'Roba;Boja;MinKol;Valuta'
  1082.     TableName = 'CENEROBE.DB'
  1083.     AutoOpen = True
  1084.     AutoFlush = True
  1085.     FreeToModify = True
  1086.     FreeToDelete = True
  1087.     FreeToInsert = True
  1088.     Left = 61
  1089.     Top = 131
  1090.     object tCeneRobeRoba: TIntegerField
  1091.       FieldName = 'Roba'
  1092.     end
  1093.     object tCeneRobeBoja: TIntegerField
  1094.       FieldName = 'Boja'
  1095.     end
  1096.     object tCeneRobeMinKol: TFloatField
  1097.       FieldName = 'MinKol'
  1098.       Precision = 9
  1099.     end
  1100.     object tCeneRobeValuta: TIntegerField
  1101.       FieldName = 'Valuta'
  1102.     end
  1103.     object tCeneRobeCijena: TFloatField
  1104.       FieldName = 'Cijena'
  1105.       Precision = 9
  1106.     end
  1107.     object tCeneRobeRabat: TFloatField
  1108.       FieldName = 'Rabat'
  1109.       Precision = 9
  1110.     end
  1111.     object tCeneRobeRabatI: TFloatField
  1112.       FieldName = 'RabatI'
  1113.       Precision = 9
  1114.     end
  1115.     object tCeneRobeRabat2: TFloatField
  1116.       FieldName = 'Rabat2'
  1117.       Precision = 9
  1118.     end
  1119.     object tCeneRobeRabat2I: TFloatField
  1120.       FieldName = 'Rabat2I'
  1121.       Precision = 9
  1122.     end
  1123.     object tCeneRobeVPC: TFloatField
  1124.       FieldName = 'VPC'
  1125.       Precision = 9
  1126.     end
  1127.   end
  1128.   object xStavke: TMyTable
  1129.     AutoCalcFields = False
  1130.     DatabaseName = 'Lokal2'
  1131.     IndexFieldNames = 'BROJUFE;STAVKA'
  1132.     MasterFields = 'Code'
  1133.     MasterSource = sxGlava
  1134.     TableName = 'UFEMS.DB'
  1135.     AutoOpen = False
  1136.     AutoFlush = False
  1137.     FreeToModify = False
  1138.     FreeToDelete = True
  1139.     FreeToInsert = True
  1140.     Left = 428
  1141.     Top = 216
  1142.     object xStavkeBrojUFE: TIntegerField
  1143.       FieldName = 'BrojUFE'
  1144.     end
  1145.     object xStavkeStavka: TSmallintField
  1146.       FieldName = 'Stavka'
  1147.     end
  1148.     object xStavkeVrsta: TSmallintField
  1149.       FieldName = 'Vrsta'
  1150.     end
  1151.     object xStavkeOrgJed: TIntegerField
  1152.       FieldName = 'OrgJed'
  1153.     end
  1154.     object xStavkeOpis: TStringField
  1155.       FieldName = 'Opis'
  1156.       Size = 40
  1157.     end
  1158.     object xStavkeKonto: TIntegerField
  1159.       FieldName = 'Konto'
  1160.     end
  1161.     object xStavkeKontoD: TIntegerField
  1162.       FieldName = 'KontoD'
  1163.     end
  1164.     object xStavkeSkladiste: TIntegerField
  1165.       FieldName = 'Skladiste'
  1166.     end
  1167.     object xStavkeArtikl: TIntegerField
  1168.       FieldName = 'Artikl'
  1169.     end
  1170.     object xStavkeBoja: TIntegerField
  1171.       FieldName = 'Boja'
  1172.     end
  1173.     object xStavkeAtom: TFloatField
  1174.       FieldName = 'Atom'
  1175.     end
  1176.     object xStavkeMinKol: TFloatField
  1177.       FieldName = 'MinKol'
  1178.     end
  1179.     object xStavkePakung: TIntegerField
  1180.       FieldName = 'Pakung'
  1181.     end
  1182.     object xStavkeProizvodi: TIntegerField
  1183.       FieldName = 'Proizvodi'
  1184.     end
  1185.     object xStavkeKolicina: TFloatField
  1186.       FieldName = 'Kolicina'
  1187.     end
  1188.     object xStavkeOtpis: TFloatField
  1189.       FieldName = 'Otpis'
  1190.     end
  1191.     object xStavkeCijenaX: TFloatField
  1192.       FieldName = 'CijenaX'
  1193.     end
  1194.     object xStavkeXKol: TFloatField
  1195.       FieldName = 'XKol'
  1196.     end
  1197.     object xStavkeCijena: TFloatField
  1198.       FieldName = 'Cijena'
  1199.     end
  1200.     object xStavkeVrijednost: TFloatField
  1201.       FieldName = 'Vrijednost'
  1202.     end
  1203.     object xStavkeMarza: TFloatField
  1204.       FieldName = 'Marza'
  1205.     end
  1206.     object xStavkeMarzaI: TFloatField
  1207.       FieldName = 'MarzaI'
  1208.     end
  1209.     object xStavkeRUCV: TFloatField
  1210.       FieldName = 'RUCV'
  1211.     end
  1212.     object xStavkeVPCijena: TFloatField
  1213.       FieldName = 'VPCijena'
  1214.     end
  1215.     object xStavkeVPVrijednost: TFloatField
  1216.       FieldName = 'VPVrijednost'
  1217.     end
  1218.     object xStavkeTarifaPoreza: TIntegerField
  1219.       FieldName = 'TarifaPoreza'
  1220.     end
  1221.     object xStavkePorezP: TFloatField
  1222.       FieldName = 'PorezP'
  1223.     end
  1224.     object xStavkePorez1P: TFloatField
  1225.       FieldName = 'Porez1P'
  1226.     end
  1227.     object xStavkePorez2P: TFloatField
  1228.       FieldName = 'Porez2P'
  1229.     end
  1230.     object xStavkePorez3P: TFloatField
  1231.       FieldName = 'Porez3P'
  1232.     end
  1233.     object xStavkePorezV: TFloatField
  1234.       FieldName = 'PorezV'
  1235.     end
  1236.     object xStavkePorez1V: TFloatField
  1237.       FieldName = 'Porez1V'
  1238.     end
  1239.     object xStavkePorez2V: TFloatField
  1240.       FieldName = 'Porez2V'
  1241.     end
  1242.     object xStavkePorez3V: TFloatField
  1243.       FieldName = 'Porez3V'
  1244.     end
  1245.     object xStavkeMPCijena: TFloatField
  1246.       FieldName = 'MPCijena'
  1247.     end
  1248.     object xStavkeMPVrijednost: TFloatField
  1249.       FieldName = 'MPVrijednost'
  1250.     end
  1251.   end
  1252.   object xGlava: TMyTable
  1253.     AutoCalcFields = False
  1254.     DatabaseName = 'Lokal2'
  1255.     IndexFieldNames = 'Code'
  1256.     TableName = 'UFEM.DB'
  1257.     AutoOpen = False
  1258.     AutoFlush = False
  1259.     FreeToModify = False
  1260.     FreeToDelete = True
  1261.     FreeToInsert = True
  1262.     Left = 380
  1263.     Top = 216
  1264.     object xGlavaBrojUFE: TIntegerField
  1265.       FieldName = 'BrojUFE'
  1266.     end
  1267.     object xGlavaCode: TIntegerField
  1268.       FieldName = 'Code'
  1269.     end
  1270.     object xGlavaKnjizeno: TStringField
  1271.       FieldName = 'Knjizeno'
  1272.       Size = 1
  1273.     end
  1274.     object xGlavaDatumKnj: TDateField
  1275.       FieldName = 'DatumKnj'
  1276.     end
  1277.     object xGlavaImaOtpis: TBooleanField
  1278.       FieldName = 'ImaOtpis'
  1279.     end
  1280.     object xGlavaNaIsto: TBooleanField
  1281.       FieldName = 'NaIsto'
  1282.     end
  1283.     object xGlavaSkladiste: TIntegerField
  1284.       FieldName = 'Skladiste'
  1285.     end
  1286.     object xGlavaOrgJed: TIntegerField
  1287.       FieldName = 'OrgJed'
  1288.     end
  1289.     object xGlavaVrstaTer: TSmallintField
  1290.       FieldName = 'VrstaTer'
  1291.     end
  1292.     object xGlavaImaRobe: TBooleanField
  1293.       FieldName = 'ImaRobe'
  1294.     end
  1295.     object xGlavaNemaUsluge: TBooleanField
  1296.       FieldName = 'NemaUsluge'
  1297.     end
  1298.     object xGlavaPoStavkama: TBooleanField
  1299.       FieldName = 'PoStavkama'
  1300.     end
  1301.     object xGlavaDobavljac: TStringField
  1302.       FieldName = 'Dobavljac'
  1303.       Size = 60
  1304.     end
  1305.     object xGlavaDatumDVO: TDateField
  1306.       FieldName = 'DatumDVO'
  1307.     end
  1308.     object xGlavaRokPlacanja: TSmallintField
  1309.       FieldName = 'RokPlacanja'
  1310.     end
  1311.     object xGlavaDatumValute: TDateField
  1312.       FieldName = 'DatumValute'
  1313.     end
  1314.     object xGlavaVrijednost: TFloatField
  1315.       FieldName = 'Vrijednost'
  1316.     end
  1317.     object xGlavaVPVrijednost: TFloatField
  1318.       FieldName = 'VPVrijednost'
  1319.     end
  1320.     object xGlavaPorez1: TFloatField
  1321.       FieldName = 'Porez1'
  1322.     end
  1323.     object xGlavaPorez2: TFloatField
  1324.       FieldName = 'Porez2'
  1325.     end
  1326.     object xGlavaPorez3: TFloatField
  1327.       FieldName = 'Porez3'
  1328.     end
  1329.     object xGlavaPorez: TFloatField
  1330.       FieldName = 'Porez'
  1331.     end
  1332.     object xGlavaPorezi: TFloatField
  1333.       FieldName = 'Porezi'
  1334.     end
  1335.     object xGlavaMPVrijednost: TFloatField
  1336.       FieldName = 'MPVrijednost'
  1337.     end
  1338.     object xGlavaSvrha: TStringField
  1339.       FieldName = 'Svrha'
  1340.       Size = 60
  1341.     end
  1342.     object xGlavaKonto: TIntegerField
  1343.       FieldName = 'Konto'
  1344.     end
  1345.     object xGlavaKontoTroska: TIntegerField
  1346.       FieldName = 'KontoTroska'
  1347.     end
  1348.     object xGlavaKontoTroskaD: TIntegerField
  1349.       FieldName = 'KontoTroskaD'
  1350.     end
  1351.     object xGlavaTransport: TFloatField
  1352.       FieldName = 'Transport'
  1353.     end
  1354.     object xGlavaOstaliTroskovi: TFloatField
  1355.       FieldName = 'OstaliTroskovi'
  1356.     end
  1357.     object xGlavaOstaliTroskovi2: TFloatField
  1358.       FieldName = 'OstaliTroskovi2'
  1359.     end
  1360.     object xGlavaMarzaIznos: TBooleanField
  1361.       FieldName = 'MarzaIznos'
  1362.     end
  1363.     object xGlavaIstaMarza: TBooleanField
  1364.       FieldName = 'IstaMarza'
  1365.     end
  1366.     object xGlavaMarza: TFloatField
  1367.       FieldName = 'Marza'
  1368.     end
  1369.     object xGlavaMarzaMod: TBooleanField
  1370.       FieldName = 'MarzaMod'
  1371.     end
  1372.     object xGlavaPodesiVPC: TBooleanField
  1373.       FieldName = 'PodesiVPC'
  1374.     end
  1375.     object xGlavaPodesiMPC: TBooleanField
  1376.       FieldName = 'PodesiMPC'
  1377.     end
  1378.     object xGlavaPremaPDVu: TBooleanField
  1379.       FieldName = 'PremaPDVu'
  1380.     end
  1381.   end
  1382.   object tCodes: TMyTable
  1383.     DatabaseName = 'Lokal'
  1384.     IndexFieldNames = 'Code'
  1385.     MasterFields = 'Code'
  1386.     MasterSource = sGlava
  1387.     TableName = 'CODES.DB'
  1388.     AutoOpen = True
  1389.     AutoFlush = True
  1390.     FreeToModify = True
  1391.     FreeToDelete = True
  1392.     FreeToInsert = True
  1393.     Left = 114
  1394.     Top = 131
  1395.     object tCodesCode: TAutoIncField
  1396.       FieldName = 'Code'
  1397.     end
  1398.     object tCodesKnjizeno: TStringField
  1399.       FieldName = 'Knjizeno'
  1400.       Size = 1
  1401.     end
  1402.     object tCodesVrsta: TSmallintField
  1403.       FieldName = 'Vrsta'
  1404.     end
  1405.     object tCodesBroj: TIntegerField
  1406.       FieldName = 'Broj'
  1407.     end
  1408.   end
  1409.   object tStavke: TMyTable
  1410.     AutoCalcFields = False
  1411.     AfterPost = tStavkeAfterPost
  1412.     BeforeDelete = tStavkeBeforeDelete
  1413.     AfterDelete = tStavkeAfterDelete
  1414.     OnCalcFields = tStavkeCalcFields
  1415.     OnNewRecord = tStavkeNewRecord
  1416.     DatabaseName = 'Lokal'
  1417.     IndexFieldNames = 'BROJUFE;STAVKA'
  1418.     MasterFields = 'Code'
  1419.     MasterSource = sGlava
  1420.     TableName = 'UFEMS.DB'
  1421.     OnNewLastRecord = tStavkeNewLastRecord
  1422.     AutoOpen = True
  1423.     AutoFlush = True
  1424.     FreeToModify = False
  1425.     FreeToDelete = True
  1426.     FreeToInsert = True
  1427.     Left = 58
  1428.     Top = 215
  1429.     object tStavkeBrojUFE: TIntegerField
  1430.       FieldName = 'BrojUFE'
  1431.       Visible = False
  1432.     end
  1433.     object tStavkeStavka: TSmallintField
  1434.       DisplayWidth = 6
  1435.       FieldName = 'Stavka'
  1436.     end
  1437.     object tStavkeVrsta: TSmallintField
  1438.       DisplayWidth = 5
  1439.       FieldName = 'Vrsta'
  1440.       Visible = False
  1441.     end
  1442.     object tStavkeOpis: TStringField
  1443.       DisplayWidth = 18
  1444.       FieldName = 'Opis'
  1445.       Size = 40
  1446.     end
  1447.     object tStavkeKolicina: TFloatField
  1448.       DisplayLabel = 'Koli∩┐╜ina'
  1449.       DisplayWidth = 7
  1450.       FieldName = 'Kolicina'
  1451.       Precision = 9
  1452.     end
  1453.     object tStavkeCijena: TFloatField
  1454.       Tag = 2
  1455.       DisplayWidth = 12
  1456.       FieldName = 'Cijena'
  1457.       Precision = 9
  1458.     end
  1459.     object tStavkeVrijednost: TFloatField
  1460.       Tag = -1
  1461.       DisplayWidth = 17
  1462.       FieldName = 'Vrijednost'
  1463.       Precision = 9
  1464.     end
  1465.     object tStavkeMarza: TFloatField
  1466.       FieldName = 'Marza'
  1467.       Visible = False
  1468.       Precision = 9
  1469.     end
  1470.     object tStavkeMarzaI: TFloatField
  1471.       Tag = 2
  1472.       FieldName = 'MarzaI'
  1473.       Visible = False
  1474.       Precision = 9
  1475.     end
  1476.     object tStavkeVPCijena: TFloatField
  1477.       Tag = 2
  1478.       FieldName = 'VPCijena'
  1479.       Visible = False
  1480.       Precision = 9
  1481.     end
  1482.     object tStavkeVPVrijednost: TFloatField
  1483.       Tag = -1
  1484.       FieldName = 'VPVrijednost'
  1485.       Visible = False
  1486.       Precision = 9
  1487.     end
  1488.     object tStavkeMPCijena: TFloatField
  1489.       Tag = 2
  1490.       FieldName = 'MPCijena'
  1491.       Visible = False
  1492.       Precision = 9
  1493.     end
  1494.     object tStavkeMPVrijednost: TFloatField
  1495.       Tag = -1
  1496.       FieldName = 'MPVrijednost'
  1497.       Visible = False
  1498.       Precision = 9
  1499.     end
  1500.     object tStavkeAtom: TFloatField
  1501.       Alignment = taCenter
  1502.       FieldName = 'Atom'
  1503.       Visible = False
  1504.       Precision = 9
  1505.     end
  1506.     object tStavkeMinKol: TFloatField
  1507.       Alignment = taLeftJustify
  1508.       FieldName = 'MinKol'
  1509.       Visible = False
  1510.       OnGetText = tStavkeMinKolGetText
  1511.       Precision = 9
  1512.     end
  1513.     object tStavkeRUCV: TFloatField
  1514.       Tag = -1
  1515.       FieldName = 'RUCV'
  1516.       Visible = False
  1517.       Precision = 9
  1518.     end
  1519.     object tStavkeCijenaX: TFloatField
  1520.       Tag = 2
  1521.       FieldName = 'CijenaX'
  1522.       Visible = False
  1523.       Precision = 9
  1524.     end
  1525.     object tStavkeXKol: TFloatField
  1526.       FieldName = 'XKol'
  1527.       Visible = False
  1528.       Precision = 9
  1529.     end
  1530.     object tStavkePorezP: TFloatField
  1531.       FieldName = 'PorezP'
  1532.       Visible = False
  1533.       OnGetText = GetPercentText
  1534.       Precision = 9
  1535.     end
  1536.     object tStavkePorez1P: TFloatField
  1537.       FieldName = 'Porez1P'
  1538.       Visible = False
  1539.       OnGetText = GetPercentText
  1540.       Precision = 9
  1541.     end
  1542.     object tStavkePorez2P: TFloatField
  1543.       FieldName = 'Porez2P'
  1544.       Visible = False
  1545.       OnGetText = GetPercentText
  1546.       Precision = 9
  1547.     end
  1548.     object tStavkePorez3P: TFloatField
  1549.       FieldName = 'Porez3P'
  1550.       Visible = False
  1551.       OnGetText = GetPercentText
  1552.       Precision = 9
  1553.     end
  1554.     object tStavkePorezV: TFloatField
  1555.       Tag = -1
  1556.       FieldName = 'PorezV'
  1557.       Visible = False
  1558.       Precision = 9
  1559.     end
  1560.     object tStavkePorez1V: TFloatField
  1561.       Tag = -1
  1562.       FieldName = 'Porez1V'
  1563.       Visible = False
  1564.       Precision = 9
  1565.     end
  1566.     object tStavkePorez2V: TFloatField
  1567.       Tag = -1
  1568.       FieldName = 'Porez2V'
  1569.       Visible = False
  1570.       Precision = 9
  1571.     end
  1572.     object tStavkePorez3V: TFloatField
  1573.       Tag = -1
  1574.       FieldName = 'Porez3V'
  1575.       Visible = False
  1576.       Precision = 9
  1577.     end
  1578.     object tStavkeMjesto: TStringField
  1579.       FieldName = 'Mjesto'
  1580.       Visible = False
  1581.       Size = 1
  1582.       Calculated = True
  1583.     end
  1584.     object tStavkeJa: TIntegerField
  1585.       FieldName = 'Ja'
  1586.       Visible = False
  1587.       Calculated = True
  1588.     end
  1589.     object tStavkeSkladiste: TIntegerField
  1590.       FieldName = 'Skladiste'
  1591.       Visible = False
  1592.     end
  1593.     object tStavkeArtikl: TIntegerField
  1594.       FieldName = 'Artikl'
  1595.       Visible = False
  1596.     end
  1597.     object tStavkeBoja: TIntegerField
  1598.       FieldName = 'Boja'
  1599.       Visible = False
  1600.     end
  1601.     object tStavkeKonto: TIntegerField
  1602.       FieldName = 'Konto'
  1603.       Visible = False
  1604.     end
  1605.     object tStavkeOrgJed: TIntegerField
  1606.       FieldName = 'OrgJed'
  1607.       Visible = False
  1608.     end
  1609.     object tStavkeTarifaPoreza: TIntegerField
  1610.       FieldName = 'TarifaPoreza'
  1611.       Visible = False
  1612.     end
  1613.     object tStavkeKontoD: TIntegerField
  1614.       FieldName = 'KontoD'
  1615.       Visible = False
  1616.     end
  1617.     object tStavkeOni: TIntegerField
  1618.       FieldName = 'Oni'
  1619.       Visible = False
  1620.       Calculated = True
  1621.     end
  1622.     object tStavkePakung: TIntegerField
  1623.       FieldName = 'Pakung'
  1624.       Visible = False
  1625.     end
  1626.     object tStavkeProizvodi: TIntegerField
  1627.       FieldName = 'Proizvodi'
  1628.       Visible = False
  1629.     end
  1630.     object tStavkeOtpis: TFloatField
  1631.       FieldName = 'Otpis'
  1632.       Visible = False
  1633.     end
  1634.     object tStavkeOtkup: TStringField
  1635.       FieldName = 'Otkup'
  1636.       Visible = False
  1637.       Size = 1
  1638.       Calculated = True
  1639.     end
  1640.     object tStavkeRoba: TStringField
  1641.       FieldName = 'Roba'
  1642.       Visible = False
  1643.       Size = 1
  1644.     end
  1645.   end
  1646.   object tGlava: TMyTable
  1647.     AutoCalcFields = False
  1648.     BeforePost = tGlavaBeforePost
  1649.     AfterPost = tGlavaAfterPost
  1650.     BeforeDelete = tGlavaBeforeDelete
  1651.     OnCalcFields = tGlavaCalcFields
  1652.     OnNewRecord = tGlavaNewRecord
  1653.     DatabaseName = 'Lokal'
  1654.     IndexFieldNames = 'BROJUFE'
  1655.     TableName = 'UFEM.DB'
  1656.     OnNewLastRecord = tGlavaNewLastRecord
  1657.     AutoOpen = True
  1658.     AutoFlush = True
  1659.     FreeToModify = False
  1660.     FreeToDelete = True
  1661.     FreeToInsert = True
  1662.     Left = 167
  1663.     Top = 131
  1664.     object tGlavaKnjizeno: TStringField
  1665.       DisplayLabel = 'K'
  1666.       FieldName = 'Knjizeno'
  1667.       Size = 1
  1668.     end
  1669.     object tGlavaBrojUFE: TIntegerField
  1670.       DisplayLabel = 'Dokument'
  1671.       DisplayWidth = 10
  1672.       FieldName = 'BrojUFE'
  1673.     end
  1674.     object tGlavaDatumKnj: TDateField
  1675.       DisplayLabel = 'Knji∩┐╜enje'
  1676.       FieldName = 'DatumKnj'
  1677.     end
  1678.     object tGlavaDobavljac: TStringField
  1679.       DisplayLabel = 'Dobavlja∩┐╜'
  1680.       DisplayWidth = 33
  1681.       FieldName = 'Dobavljac'
  1682.       Size = 60
  1683.     end
  1684.     object tGlavaSvrha: TStringField
  1685.       FieldName = 'Svrha'
  1686.       Visible = False
  1687.       Size = 60
  1688.     end
  1689.     object tGlavaDatumDVO: TDateField
  1690.       DisplayLabel = 'Datum DVO'
  1691.       FieldName = 'DatumDVO'
  1692.     end
  1693.     object tGlavaRokPlacanja: TSmallintField
  1694.       DisplayLabel = 'RP'
  1695.       DisplayWidth = 2
  1696.       FieldName = 'RokPlacanja'
  1697.     end
  1698.     object tGlavaDatumValute: TDateField
  1699.       DisplayLabel = 'Valuta'
  1700.       DisplayWidth = 10
  1701.       FieldName = 'DatumValute'
  1702.     end
  1703.     object tGlavaVrijednost: TFloatField
  1704.       Tag = -1
  1705.       DisplayLabel = 'Ukupna vrijednost'
  1706.       DisplayWidth = 15
  1707.       FieldName = 'Vrijednost'
  1708.       OnGetText = GetFloatKuneX
  1709.       Precision = 9
  1710.     end
  1711.     object tGlavaDob: TStringField
  1712.       FieldName = 'Dob'
  1713.       Visible = False
  1714.       Size = 1
  1715.       Calculated = True
  1716.     end
  1717.     object tGlavaZem: TStringField
  1718.       FieldName = 'Zem'
  1719.       Visible = False
  1720.       Size = 1
  1721.       Calculated = True
  1722.     end
  1723.     object tGlavaTransport: TFloatField
  1724.       Tag = -1
  1725.       FieldName = 'Transport'
  1726.       Visible = False
  1727.       Precision = 9
  1728.     end
  1729.     object tGlavaOstaliTroskovi: TFloatField
  1730.       Tag = -1
  1731.       FieldName = 'OstaliTroskovi'
  1732.       Visible = False
  1733.       Precision = 9
  1734.     end
  1735.     object tGlavaOstaliTroskovi2: TFloatField
  1736.       Tag = -1
  1737.       FieldName = 'OstaliTroskovi2'
  1738.       Visible = False
  1739.       Precision = 9
  1740.     end
  1741.     object tGlavaImaRobe: TBooleanField
  1742.       FieldName = 'ImaRobe'
  1743.       Visible = False
  1744.     end
  1745.     object tGlavaPoStavkama: TBooleanField
  1746.       FieldName = 'PoStavkama'
  1747.       Visible = False
  1748.     end
  1749.     object tGlavaMarzaIznos: TBooleanField
  1750.       FieldName = 'MarzaIznos'
  1751.       Visible = False
  1752.     end
  1753.     object tGlavaIstaMarza: TBooleanField
  1754.       FieldName = 'IstaMarza'
  1755.       Visible = False
  1756.     end
  1757.     object tGlavaMarza: TFloatField
  1758.       FieldName = 'Marza'
  1759.       Visible = False
  1760.       Precision = 9
  1761.     end
  1762.     object tGlavaMarzaMod: TBooleanField
  1763.       FieldName = 'MarzaMod'
  1764.       Visible = False
  1765.     end
  1766.     object tGlavaNaIsto: TBooleanField
  1767.       FieldName = 'NaIsto'
  1768.       Visible = False
  1769.     end
  1770.     object tGlavaVrstaTer: TSmallintField
  1771.       Alignment = taLeftJustify
  1772.       FieldName = 'VrstaTer'
  1773.       Visible = False
  1774.     end
  1775.     object tGlavaJa: TIntegerField
  1776.       FieldName = 'Ja'
  1777.       Visible = False
  1778.       Calculated = True
  1779.     end
  1780.     object tGlavaNemaUsluge: TBooleanField
  1781.       FieldName = 'NemaUsluge'
  1782.       Visible = False
  1783.     end
  1784.     object tGlavaPodesiVPC: TBooleanField
  1785.       FieldName = 'PodesiVPC'
  1786.       Visible = False
  1787.     end
  1788.     object tGlavaVPVrijednost: TFloatField
  1789.       Tag = -1
  1790.       FieldName = 'VPVrijednost'
  1791.       Visible = False
  1792.       Precision = 9
  1793.     end
  1794.     object tGlavaPorez1: TFloatField
  1795.       Tag = -1
  1796.       FieldName = 'Porez1'
  1797.       Visible = False
  1798.       Precision = 9
  1799.     end
  1800.     object tGlavaPorez2: TFloatField
  1801.       Tag = -1
  1802.       FieldName = 'Porez2'
  1803.       Visible = False
  1804.       Precision = 9
  1805.     end
  1806.     object tGlavaPorez3: TFloatField
  1807.       Tag = -1
  1808.       FieldName = 'Porez3'
  1809.       Visible = False
  1810.       Precision = 9
  1811.     end
  1812.     object tGlavaPorez: TFloatField
  1813.       Tag = -1
  1814.       FieldName = 'Porez'
  1815.       Visible = False
  1816.       Precision = 9
  1817.     end
  1818.     object tGlavaMPVrijednost: TFloatField
  1819.       Tag = -1
  1820.       FieldName = 'MPVrijednost'
  1821.       Visible = False
  1822.       Precision = 9
  1823.     end
  1824.     object tGlavaPartner: TIntegerField
  1825.       FieldName = 'Partner'
  1826.       Visible = False
  1827.       Calculated = True
  1828.     end
  1829.     object tGlavaPodesiMPC: TBooleanField
  1830.       FieldName = 'PodesiMPC'
  1831.       Visible = False
  1832.     end
  1833.     object tGlavaSkladiste: TIntegerField
  1834.       FieldName = 'Skladiste'
  1835.       Visible = False
  1836.     end
  1837.     object tGlavaOrgJed: TIntegerField
  1838.       FieldName = 'OrgJed'
  1839.       Visible = False
  1840.     end
  1841.     object tGlavaKonto: TIntegerField
  1842.       FieldName = 'Konto'
  1843.       Visible = False
  1844.     end
  1845.     object tGlavaKontoTroska: TIntegerField
  1846.       FieldName = 'KontoTroska'
  1847.       Visible = False
  1848.     end
  1849.     object tGlavaKontoTroskaD: TIntegerField
  1850.       FieldName = 'KontoTroskaD'
  1851.       Visible = False
  1852.     end
  1853.     object tGlavaOni: TIntegerField
  1854.       FieldName = 'Oni'
  1855.       Visible = False
  1856.       Calculated = True
  1857.     end
  1858.     object tGlavaCode: TIntegerField
  1859.       FieldName = 'Code'
  1860.       Visible = False
  1861.     end
  1862.     object tGlavaPorezi: TFloatField
  1863.       Tag = -1
  1864.       FieldName = 'Porezi'
  1865.       Visible = False
  1866.     end
  1867.     object tGlavaImaOtpis: TBooleanField
  1868.       FieldName = 'ImaOtpis'
  1869.       Visible = False
  1870.     end
  1871.   end
  1872. end
  1873.