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

  1. object DataNorm: TDataNorm
  2.   Tag = 1
  3.   OnDestroy = DaraIfa2pDestroy
  4.   Left = 269
  5.   Top = 172
  6.   Height = 374
  7.   Width = 491
  8.   object sGlava: TDataSource
  9.     DataSet = tGlava
  10.     Left = 288
  11.     Top = 4
  12.   end
  13.   object sStavke: TDataSource
  14.     DataSet = tStavke
  15.     Left = 428
  16.     Top = 4
  17.   end
  18.   object sArtikl: TDataSource
  19.     DataSet = tArtikl
  20.     Left = 12
  21.     Top = 4
  22.   end
  23.   object sBoje: TDataSource
  24.     DataSet = tBoje
  25.     Left = 200
  26.     Top = 4
  27.   end
  28.   object sMjere: TDataSource
  29.     DataSet = tMjere
  30.     Left = 332
  31.     Top = 4
  32.   end
  33.   object sArtikl2: TDataSource
  34.     DataSet = tArtikl2
  35.     Left = 60
  36.     Top = 4
  37.   end
  38.   object sBoje2: TDataSource
  39.     DataSet = tBoje2
  40.     Left = 248
  41.     Top = 4
  42.   end
  43.   object sRoba: TDataSource
  44.     DataSet = tRoba
  45.     Left = 152
  46.     Top = 48
  47.   end
  48.   object sBoja: TDataSource
  49.     DataSet = tBoja
  50.     Left = 152
  51.     Top = 4
  52.   end
  53.   object sJedinice: TDataSource
  54.     DataSet = tJedinice
  55.     Left = 112
  56.     Top = 48
  57.   end
  58.   object sAtomi: TDataSource
  59.     DataSet = tAtomi
  60.     Left = 108
  61.     Top = 4
  62.   end
  63.   object sValuta: TDataSource
  64.     DataSet = DGlava.tValuta
  65.     Left = 200
  66.     Top = 48
  67.   end
  68.   object sImeRobe: TDataSource
  69.     DataSet = tImeRobe
  70.     Left = 60
  71.     Top = 48
  72.   end
  73.   object sImeBoje: TDataSource
  74.     DataSet = tImeBoje
  75.     Left = 12
  76.     Top = 48
  77.   end
  78.   object sPakung: TDataSource
  79.     DataSet = tPakung
  80.     Left = 376
  81.     Top = 4
  82.   end
  83.   object sSifBoja: TDataSource
  84.     DataSet = tSifBoja
  85.     Left = 436
  86.     Top = 156
  87.   end
  88.   object sSifPart: TDataSource
  89.     DataSet = tSifPart
  90.     Left = 336
  91.     Top = 48
  92.   end
  93.   object sSifRobe: TDataSource
  94.     DataSet = tSifRobe
  95.     Left = 288
  96.     Top = 48
  97.   end
  98.   object sFirme: TDataSource
  99.     DataSet = tFirme
  100.     Left = 432
  101.     Top = 48
  102.   end
  103.   object sJedMj: TDataSource
  104.     DataSet = tJedMj
  105.     Left = 388
  106.     Top = 156
  107.   end
  108.   object sRoba2: TDataSource
  109.     DataSet = tRoba2
  110.     Left = 244
  111.     Top = 48
  112.   end
  113.   object sStavke2: TDataSource
  114.     DataSet = tStavke2
  115.     Left = 384
  116.     Top = 48
  117.   end
  118.   object tAtomi: TMyTable
  119.     DatabaseName = 'Global'
  120.     IndexFieldNames = 'PAKUNG;KOLICINA'
  121.     MasterFields = 'PAKUNG;ATOM'
  122.     MasterSource = sStavke
  123.     TableName = 'ATOMI.DB'
  124.     AutoOpen = True
  125.     AutoFlush = True
  126.     FreeToModify = False
  127.     FreeToDelete = True
  128.     FreeToInsert = True
  129.     Left = 152
  130.     Top = 96
  131.     object tAtomiPakung: TIntegerField
  132.       FieldName = 'Pakung'
  133.     end
  134.     object tAtomiKolicina: TFloatField
  135.       FieldName = 'Kolicina'
  136.       Precision = 9
  137.     end
  138.   end
  139.   object tImeRobe: TMyTable
  140.     DatabaseName = 'Global'
  141.     IndexFieldNames = 'Roba;Govor'
  142.     MasterFields = 'Code;Govor'
  143.     MasterSource = sRoba
  144.     TableName = 'IME_ROBE.DB'
  145.     AutoOpen = True
  146.     AutoFlush = True
  147.     FreeToModify = False
  148.     FreeToDelete = True
  149.     FreeToInsert = True
  150.     Left = 332
  151.     Top = 96
  152.     object tImeRobeRoba: TIntegerField
  153.       FieldName = 'Roba'
  154.     end
  155.     object tImeRobeGovor: TIntegerField
  156.       FieldName = 'Govor'
  157.     end
  158.     object tImeRobeNaziv: TStringField
  159.       FieldName = 'Naziv'
  160.       OnGetText = tImeRobeNazivGetText
  161.       Size = 60
  162.     end
  163.   end
  164.   object tArtikl2: TMyTable
  165.     BeforePost = SifArtD_BP
  166.     DatabaseName = 'Global'
  167.     IndexFieldNames = 'PARTNER;CODE'
  168.     MasterFields = 'JA;Code'
  169.     MasterSource = sRoba
  170.     TableName = 'SIF_ROBE.DB'
  171.     AutoOpen = True
  172.     AutoFlush = True
  173.     FreeToModify = False
  174.     FreeToDelete = True
  175.     FreeToInsert = True
  176.     Left = 104
  177.     Top = 96
  178.     object tArtikl2Partner: TIntegerField
  179.       FieldName = 'Partner'
  180.     end
  181.     object tArtikl2Sifra: TStringField
  182.       FieldName = 'Sifra'
  183.       Size = 40
  184.     end
  185.     object tArtikl2Code: TIntegerField
  186.       FieldName = 'Code'
  187.     end
  188.     object tArtikl2Naziv: TStringField
  189.       FieldName = 'Naziv'
  190.       Size = 60
  191.     end
  192.     object tArtikl2Proizvodi: TIntegerField
  193.       FieldName = 'Proizvodi'
  194.     end
  195.     object tArtikl2Grupa: TIntegerField
  196.       FieldName = 'Grupa'
  197.     end
  198.     object tArtikl2PodGrupa: TIntegerField
  199.       FieldName = 'PodGrupa'
  200.     end
  201.     object tArtikl2Amortizacija: TIntegerField
  202.       FieldName = 'Amortizacija'
  203.     end
  204.     object tArtikl2Revalorizacija: TIntegerField
  205.       FieldName = 'Revalorizacija'
  206.     end
  207.     object tArtikl2Items: TIntegerField
  208.       FieldName = 'Items'
  209.     end
  210.   end
  211.   object tRoba: TMyTable
  212.     AutoCalcFields = False
  213.     OnCalcFields = tRobaCalcFields
  214.     DatabaseName = 'Global'
  215.     IndexFieldNames = 'Code'
  216.     MasterFields = 'Code'
  217.     MasterSource = sArtikl
  218.     TableName = 'ROBA.DB'
  219.     AutoOpen = True
  220.     AutoFlush = True
  221.     FreeToModify = False
  222.     FreeToDelete = True
  223.     FreeToInsert = True
  224.     Left = 52
  225.     Top = 140
  226.     object tRobaCode: TAutoIncField
  227.       FieldName = 'Code'
  228.     end
  229.     object tRobaProizvodi: TIntegerField
  230.       FieldName = 'Proizvodi'
  231.     end
  232.     object tRobaNaziv: TStringField
  233.       FieldName = 'Naziv'
  234.       Size = 60
  235.     end
  236.     object tRobaTarifaPoreza: TIntegerField
  237.       FieldName = 'TarifaPoreza'
  238.     end
  239.     object tRobaTarifaCarine: TIntegerField
  240.       FieldName = 'TarifaCarine'
  241.     end
  242.     object tRobaVrsta: TIntegerField
  243.       FieldName = 'Vrsta'
  244.     end
  245.     object tRobaJedMj: TIntegerField
  246.       FieldName = 'JedMj'
  247.     end
  248.     object tRobaPakiranje: TIntegerField
  249.       FieldName = 'Pakiranje'
  250.     end
  251.     object tRobaBarKod: TStringField
  252.       FieldName = 'BarKod'
  253.       Size = 13
  254.     end
  255.     object tRobaTezina: TFloatField
  256.       FieldName = 'Tezina'
  257.       Precision = 9
  258.     end
  259.     object tRobaBezbojno: TBooleanField
  260.       FieldName = 'Bezbojno'
  261.     end
  262.     object tRobaJa: TIntegerField
  263.       FieldName = 'Ja'
  264.       Visible = False
  265.       Calculated = True
  266.     end
  267.     object tRobaGovor: TIntegerField
  268.       FieldName = 'Govor'
  269.       Calculated = True
  270.     end
  271.     object tRobaItems: TIntegerField
  272.       FieldName = 'Items'
  273.     end
  274.   end
  275.   object tArtikl: TMyTable
  276.     BeforePost = SifArt_BP
  277.     DatabaseName = 'Global'
  278.     IndexFieldNames = 'PARTNER;CODE'
  279.     MasterFields = 'JA;ARTIKL'
  280.     MasterSource = sStavke
  281.     TableName = 'SIF_ROBE.DB'
  282.     AutoOpen = True
  283.     AutoFlush = True
  284.     FreeToModify = False
  285.     FreeToDelete = True
  286.     FreeToInsert = True
  287.     Left = 56
  288.     Top = 96
  289.     object tArtiklPartner: TIntegerField
  290.       FieldName = 'Partner'
  291.     end
  292.     object tArtiklSifra: TStringField
  293.       FieldName = 'Sifra'
  294.       Size = 40
  295.     end
  296.     object tArtiklCode: TIntegerField
  297.       FieldName = 'Code'
  298.     end
  299.     object tArtiklNaziv: TStringField
  300.       FieldName = 'Naziv'
  301.       Size = 60
  302.     end
  303.     object tArtiklProizvodi: TIntegerField
  304.       FieldName = 'Proizvodi'
  305.     end
  306.     object tArtiklItems: TIntegerField
  307.       FieldName = 'Items'
  308.     end
  309.   end
  310.   object tImeBoje: TMyTable
  311.     DatabaseName = 'Global'
  312.     IndexFieldNames = 'Boja;Govor'
  313.     MasterFields = 'Code;Govor'
  314.     MasterSource = sBoja
  315.     TableName = 'IME_BOJA.DB'
  316.     AutoOpen = True
  317.     AutoFlush = True
  318.     FreeToModify = False
  319.     FreeToDelete = True
  320.     FreeToInsert = True
  321.     Left = 284
  322.     Top = 96
  323.     object tImeBojeBoja: TIntegerField
  324.       FieldName = 'Boja'
  325.     end
  326.     object tImeBojeGovor: TIntegerField
  327.       FieldName = 'Govor'
  328.     end
  329.     object tImeBojeNaziv: TStringField
  330.       FieldName = 'Naziv'
  331.       OnGetText = tImeBojeNazivGetText
  332.       Size = 60
  333.     end
  334.   end
  335.   object tBoje2: TMyTable
  336.     BeforePost = SifBojeD_BP
  337.     DatabaseName = 'Global'
  338.     IndexFieldNames = 'PARTNER;PROIZVODI;CODE'
  339.     MasterFields = 'Ja;Proizvodi;Code'
  340.     MasterSource = sBoja
  341.     TableName = 'SIF_BOJA.DB'
  342.     AutoOpen = True
  343.     AutoFlush = True
  344.     FreeToModify = False
  345.     FreeToDelete = True
  346.     FreeToInsert = True
  347.     Left = 424
  348.     Top = 96
  349.     object tBoje2Partner: TIntegerField
  350.       FieldName = 'Partner'
  351.     end
  352.     object tBoje2Proizvodi: TIntegerField
  353.       FieldName = 'Proizvodi'
  354.     end
  355.     object tBoje2Sifra: TStringField
  356.       FieldName = 'Sifra'
  357.       Size = 40
  358.     end
  359.     object tBoje2Code: TIntegerField
  360.       FieldName = 'Code'
  361.     end
  362.     object tBoje2Naziv: TStringField
  363.       FieldName = 'Naziv'
  364.       Size = 60
  365.     end
  366.     object tBoje2Items: TIntegerField
  367.       FieldName = 'Items'
  368.     end
  369.   end
  370.   object tBoja: TMyTable
  371.     AutoCalcFields = False
  372.     OnCalcFields = tBojaCalcFields
  373.     DatabaseName = 'Global'
  374.     IndexFieldNames = 'Code'
  375.     MasterFields = 'Code'
  376.     MasterSource = sBoje
  377.     TableName = 'BOJE.DB'
  378.     AutoOpen = True
  379.     AutoFlush = True
  380.     FreeToModify = False
  381.     FreeToDelete = True
  382.     FreeToInsert = True
  383.     Left = 196
  384.     Top = 96
  385.     object tBojaCode: TAutoIncField
  386.       FieldName = 'Code'
  387.     end
  388.     object tBojaProizvodi: TIntegerField
  389.       FieldName = 'Proizvodi'
  390.     end
  391.     object tBojaNaziv: TStringField
  392.       FieldName = 'Naziv'
  393.       Size = 60
  394.     end
  395.     object tBojaGovor: TIntegerField
  396.       FieldName = 'Govor'
  397.       Calculated = True
  398.     end
  399.     object tBojaJa: TIntegerField
  400.       FieldName = 'Ja'
  401.       Calculated = True
  402.     end
  403.     object tBojaItems: TIntegerField
  404.       FieldName = 'Items'
  405.     end
  406.   end
  407.   object tBoje: TMyTable
  408.     BeforePost = SifBoje_BP
  409.     DatabaseName = 'Global'
  410.     IndexFieldNames = 'PARTNER;PROIZVODI;CODE'
  411.     MasterFields = 'JA;PROIZVODI;BOJA'
  412.     MasterSource = sStavke
  413.     TableName = 'SIF_BOJA.DB'
  414.     AutoOpen = True
  415.     AutoFlush = True
  416.     FreeToModify = False
  417.     FreeToDelete = True
  418.     FreeToInsert = True
  419.     Left = 244
  420.     Top = 96
  421.     object tBojePartner: TIntegerField
  422.       FieldName = 'Partner'
  423.     end
  424.     object tBojeProizvodi: TIntegerField
  425.       FieldName = 'Proizvodi'
  426.     end
  427.     object tBojeSifra: TStringField
  428.       FieldName = 'Sifra'
  429.       Size = 40
  430.     end
  431.     object tBojeCode: TIntegerField
  432.       FieldName = 'Code'
  433.     end
  434.     object tBojeNaziv: TStringField
  435.       FieldName = 'Naziv'
  436.       Size = 60
  437.     end
  438.     object tBojeItems: TIntegerField
  439.       FieldName = 'Items'
  440.     end
  441.   end
  442.   object tPakung: TMyTable
  443.     DatabaseName = 'Global'
  444.     IndexFieldNames = 'Jedinica;Code'
  445.     MasterFields = 'JedMj;Pakiranje'
  446.     MasterSource = sRoba
  447.     TableName = 'PAKUNG.DB'
  448.     AutoOpen = True
  449.     AutoFlush = True
  450.     FreeToModify = False
  451.     FreeToDelete = True
  452.     FreeToInsert = True
  453.     Left = 12
  454.     Top = 96
  455.     object tPakungCode: TAutoIncField
  456.       FieldName = 'Code'
  457.     end
  458.     object tPakungJedinica: TIntegerField
  459.       FieldName = 'Jedinica'
  460.     end
  461.     object tPakungSifra: TStringField
  462.       FieldName = 'Sifra'
  463.       Size = 40
  464.     end
  465.     object tPakungMinKolicina: TFloatField
  466.       FieldName = 'MinKolicina'
  467.       Precision = 9
  468.     end
  469.     object tPakungImaAtoma: TBooleanField
  470.       FieldName = 'ImaAtoma'
  471.     end
  472.     object tPakungCijene: TFloatField
  473.       FieldName = 'Cijene'
  474.       Precision = 9
  475.     end
  476.   end
  477.   object tMjere: TMyTable
  478.     DatabaseName = 'Global'
  479.     IndexFieldNames = 'Jedinica;Govor'
  480.     MasterFields = 'Code;Govor'
  481.     MasterSource = sJedinice
  482.     TableName = 'MJERE.DB'
  483.     AutoOpen = True
  484.     AutoFlush = True
  485.     FreeToModify = False
  486.     FreeToDelete = True
  487.     FreeToInsert = True
  488.     Left = 12
  489.     Top = 140
  490.     object tMjereJedinica: TIntegerField
  491.       FieldName = 'Jedinica'
  492.     end
  493.     object tMjereGovor: TIntegerField
  494.       FieldName = 'Govor'
  495.     end
  496.     object tMjereNaziv: TStringField
  497.       FieldName = 'Naziv'
  498.       OnGetText = tMjereNazivGetText
  499.       Size = 60
  500.     end
  501.   end
  502.   object tJedinice: TMyTable
  503.     AutoCalcFields = False
  504.     OnCalcFields = tJediniceCalcFields
  505.     DatabaseName = 'Global'
  506.     IndexFieldNames = 'CODE'
  507.     MasterFields = 'JEDMJ'
  508.     MasterSource = sStavke
  509.     TableName = 'JEDINICE.DB'
  510.     AutoOpen = True
  511.     AutoFlush = True
  512.     FreeToModify = False
  513.     FreeToDelete = True
  514.     FreeToInsert = True
  515.     Left = 380
  516.     Top = 96
  517.     object tJediniceCode: TAutoIncField
  518.       FieldName = 'Code'
  519.     end
  520.     object tJediniceSifra: TStringField
  521.       FieldName = 'Sifra'
  522.       Size = 40
  523.     end
  524.     object tJediniceGovor: TIntegerField
  525.       FieldName = 'Govor'
  526.       Calculated = True
  527.     end
  528.   end
  529.   object tFirme: TMyTable
  530.     DatabaseName = 'Global'
  531.     IndexFieldNames = 'PARTNER'
  532.     MasterFields = 'PROIZVODI'
  533.     MasterSource = sSifRobe
  534.     TableName = 'FIRME.DB'
  535.     AutoOpen = True
  536.     AutoFlush = True
  537.     FreeToModify = False
  538.     FreeToDelete = False
  539.     FreeToInsert = False
  540.     Left = 188
  541.     Top = 196
  542.     object tFirmeSifra: TStringField
  543.       FieldName = 'Sifra'
  544.       Size = 40
  545.     end
  546.     object tFirmePartner: TIntegerField
  547.       FieldName = 'Partner'
  548.     end
  549.     object tFirmeBarKodOsnova: TStringField
  550.       FieldName = 'BarKodOsnova'
  551.       Size = 10
  552.     end
  553.     object tFirmeBarKodVelicina: TSmallintField
  554.       FieldName = 'BarKodVelicina'
  555.     end
  556.   end
  557.   object tJedMj: TMyTable
  558.     DatabaseName = 'Global'
  559.     IndexFieldNames = 'CODE'
  560.     MasterFields = 'JEDMJ'
  561.     MasterSource = sRoba2
  562.     TableName = 'JEDINICE.DB'
  563.     AutoOpen = True
  564.     AutoFlush = True
  565.     FreeToModify = False
  566.     FreeToDelete = False
  567.     FreeToInsert = False
  568.     Left = 228
  569.     Top = 196
  570.   end
  571.   object tStavke2: TMyTable
  572.     AutoCalcFields = False
  573.     BeforePost = tStavke2BeforePost
  574.     AfterPost = tStavke2AfterPost
  575.     OnNewRecord = tStavke2NewRecord
  576.     DatabaseName = 'Lokal'
  577.     IndexFieldNames = 'CODE;DATUM;ZABOJU;VRSTA;STAVKA'
  578.     MasterFields = 'Code;Datum;Boja;Tro'
  579.     MasterSource = sGlava
  580.     TableName = 'NORMS.DB'
  581.     OnNewLastRecord = tStavke2NewLastRecord
  582.     AutoOpen = True
  583.     AutoFlush = True
  584.     FreeToModify = False
  585.     FreeToDelete = True
  586.     FreeToInsert = True
  587.     Left = 188
  588.     Top = 140
  589.     object tStavke2Code: TIntegerField
  590.       FieldName = 'Code'
  591.       Visible = False
  592.     end
  593.     object tStavke2Datum: TDateField
  594.       FieldName = 'Datum'
  595.       Visible = False
  596.     end
  597.     object tStavke2ZaBoju: TIntegerField
  598.       FieldName = 'ZaBoju'
  599.       Visible = False
  600.     end
  601.     object tStavke2Vrsta: TStringField
  602.       FieldName = 'Vrsta'
  603.       Visible = False
  604.       Size = 1
  605.     end
  606.     object tStavke2Stavka: TSmallintField
  607.       FieldName = 'Stavka'
  608.     end
  609.     object tStavke2Opis: TStringField
  610.       DisplayWidth = 36
  611.       FieldName = 'Opis'
  612.       Size = 40
  613.     end
  614.     object tStavke2Vrijednost: TFloatField
  615.       Tag = -1
  616.       DisplayLabel = 'Vrijednost'
  617.       DisplayWidth = 14
  618.       FieldName = 'Kolicina'
  619.     end
  620.   end
  621.   object tStavke: TMyTable
  622.     BeforePost = tStavkeBeforePost
  623.     AfterPost = tStavkeAfterPost
  624.     OnCalcFields = tStavkeCalcFields
  625.     OnNewRecord = tStavkeNewRecord
  626.     DatabaseName = 'Lokal'
  627.     IndexFieldNames = 'CODE;DATUM;ZABOJU;VRSTA;STAVKA'
  628.     MasterFields = 'Code;Datum;Boja;Mat'
  629.     MasterSource = sGlava
  630.     TableName = 'NORMS.DB'
  631.     OnNewLastRecord = tStavkeNewLastRecord
  632.     AutoOpen = True
  633.     AutoFlush = True
  634.     FreeToModify = False
  635.     FreeToDelete = True
  636.     FreeToInsert = True
  637.     Left = 136
  638.     Top = 140
  639.     object tStavkeJA: TIntegerField
  640.       FieldName = 'JA'
  641.       Visible = False
  642.       Calculated = True
  643.     end
  644.     object tStavkeCode: TIntegerField
  645.       FieldName = 'Code'
  646.       Visible = False
  647.     end
  648.     object tStavkeDatum: TDateField
  649.       FieldName = 'Datum'
  650.       Visible = False
  651.     end
  652.     object tStavkeZaBoju: TIntegerField
  653.       FieldName = 'ZaBoju'
  654.       Visible = False
  655.     end
  656.     object tStavkeVrsta: TStringField
  657.       FieldName = 'Vrsta'
  658.       Visible = False
  659.       Size = 1
  660.     end
  661.     object tStavkeStavka: TSmallintField
  662.       FieldName = 'Stavka'
  663.     end
  664.     object tStavkeArtikl: TIntegerField
  665.       FieldName = 'Artikl'
  666.       Visible = False
  667.     end
  668.     object tStavkeBoja: TIntegerField
  669.       FieldName = 'Boja'
  670.       Visible = False
  671.     end
  672.     object tStavkeAtom: TFloatField
  673.       FieldName = 'Atom'
  674.       Visible = False
  675.     end
  676.     object tStavkeMinKol: TFloatField
  677.       FieldName = 'MinKol'
  678.       Visible = False
  679.     end
  680.     object tStavkeProizvodi: TIntegerField
  681.       FieldName = 'Proizvodi'
  682.       Visible = False
  683.     end
  684.     object tStavkePakung: TIntegerField
  685.       FieldName = 'Pakung'
  686.       Visible = False
  687.     end
  688.     object tStavkeJedMj: TIntegerField
  689.       FieldName = 'JedMj'
  690.       Visible = False
  691.     end
  692.     object tStavkeOpis: TStringField
  693.       FieldName = 'Opis'
  694.       Size = 40
  695.     end
  696.     object tStavkeXKol: TFloatField
  697.       FieldName = 'XKol'
  698.       Visible = False
  699.     end
  700.     object tStavkeKolicina: TFloatField
  701.       DisplayLabel = 'Koli∩┐╜ina'
  702.       FieldName = 'Kolicina'
  703.     end
  704.   end
  705.   object tGlava: TMyTable
  706.     AutoCalcFields = False
  707.     BeforeDelete = tGlavaBeforeDelete
  708.     OnCalcFields = tGlavaCalcFields
  709.     OnNewRecord = tGlavaNewRecord
  710.     DatabaseName = 'Lokal'
  711.     IndexFieldNames = 'CODE;BOJA;DATUM'
  712.     MasterFields = 'Code;Boja'
  713.     MasterSource = sSifRobe
  714.     TableName = 'Norm.DB'
  715.     AutoOpen = True
  716.     AutoFlush = True
  717.     FreeToModify = True
  718.     FreeToDelete = True
  719.     FreeToInsert = True
  720.     Left = 96
  721.     Top = 140
  722.     object tGlavaCode: TIntegerField
  723.       FieldName = 'Code'
  724.       Visible = False
  725.     end
  726.     object tGlavaBoja: TIntegerField
  727.       FieldName = 'Boja'
  728.       Visible = False
  729.     end
  730.     object tGlavaDatum: TDateField
  731.       DisplayWidth = 11
  732.       FieldName = 'Datum'
  733.     end
  734.     object tGlavaCijena: TFloatField
  735.       FieldName = 'Cijena'
  736.       Visible = False
  737.     end
  738.     object tGlavaRUC: TFloatField
  739.       FieldName = 'RUC'
  740.       Visible = False
  741.     end
  742.     object tGlavaVPC: TFloatField
  743.       FieldName = 'VPC'
  744.       Visible = False
  745.     end
  746.     object tGlavaKolicina: TFloatField
  747.       FieldName = 'Kolicina'
  748.       Visible = False
  749.     end
  750.     object tGlavaNaseSifre: TBooleanField
  751.       FieldName = 'NaseSifre'
  752.       Visible = False
  753.     end
  754.     object tGlavaJA: TIntegerField
  755.       FieldName = 'JA'
  756.       Visible = False
  757.       Calculated = True
  758.     end
  759.     object tGlavaMat: TStringField
  760.       FieldName = 'Mat'
  761.       Visible = False
  762.       Size = 1
  763.       Calculated = True
  764.     end
  765.     object tGlavaTro: TStringField
  766.       FieldName = 'Tro'
  767.       Visible = False
  768.       Size = 1
  769.       Calculated = True
  770.     end
  771.   end
  772.   object tSifBoja: TMyTable
  773.     DatabaseName = 'Global'
  774.     IndexFieldNames = 'Partner;Proizvodi;Sifra'
  775.     MasterFields = 'Partner;Ja'
  776.     MasterSource = sSifPart
  777.     TableName = 'SIF_BOJA.DB'
  778.     AutoOpen = True
  779.     AutoFlush = True
  780.     FreeToModify = False
  781.     FreeToDelete = True
  782.     FreeToInsert = True
  783.     Left = 12
  784.     Top = 196
  785.     object tSifBojaPartner: TIntegerField
  786.       FieldName = 'Partner'
  787.       Visible = False
  788.     end
  789.     object tSifBojaProizvodi: TIntegerField
  790.       FieldName = 'Proizvodi'
  791.       Visible = False
  792.     end
  793.     object tSifBojaSifra: TStringField
  794.       DisplayLabel = '∩┐╜ifra boje'
  795.       DisplayWidth = 20
  796.       FieldName = 'Sifra'
  797.       Size = 40
  798.     end
  799.     object tSifBojaCode: TIntegerField
  800.       FieldName = 'Code'
  801.       Visible = False
  802.     end
  803.     object tSifBojaNaziv: TStringField
  804.       DisplayLabel = 'Naziv boje'
  805.       DisplayWidth = 45
  806.       FieldName = 'Naziv'
  807.       Size = 60
  808.     end
  809.     object tSifBojaItems: TIntegerField
  810.       FieldName = 'Items'
  811.       Visible = False
  812.     end
  813.   end
  814.   object tRoba2: TMyTable
  815.     DatabaseName = 'Global'
  816.     IndexFieldNames = 'CODE'
  817.     MasterFields = 'CODE'
  818.     MasterSource = sSifRobe
  819.     TableName = 'ROBA.DB'
  820.     AutoOpen = True
  821.     AutoFlush = True
  822.     FreeToModify = False
  823.     FreeToDelete = False
  824.     FreeToInsert = False
  825.     Left = 52
  826.     Top = 196
  827.     object tRoba2Code: TAutoIncField
  828.       FieldName = 'Code'
  829.     end
  830.     object tRoba2Bezbojno: TBooleanField
  831.       FieldName = 'Bezbojno'
  832.     end
  833.     object tRoba2JedMj: TIntegerField
  834.       FieldName = 'JedMj'
  835.     end
  836.   end
  837.   object tSifRobe: TMyTable
  838.     OnCalcFields = tSifRobeCalcFields
  839.     DatabaseName = 'Global'
  840.     IndexFieldNames = 'PARTNER;SIFRA'
  841.     MasterFields = 'Partner'
  842.     MasterSource = sSifPart
  843.     TableName = 'SIF_ROBE.DB'
  844.     AutoOpen = True
  845.     AutoFlush = True
  846.     FreeToModify = False
  847.     FreeToDelete = False
  848.     FreeToInsert = False
  849.     Left = 96
  850.     Top = 196
  851.     object tSifRobePartner: TIntegerField
  852.       FieldName = 'Partner'
  853.       Visible = False
  854.     end
  855.     object tSifRobeSifra: TStringField
  856.       DisplayLabel = '∩┐╜ifra artikla'
  857.       DisplayWidth = 20
  858.       FieldName = 'Sifra'
  859.       Size = 40
  860.     end
  861.     object tSifRobeCode: TIntegerField
  862.       FieldName = 'Code'
  863.       Visible = False
  864.     end
  865.     object tSifRobeProizvodi: TIntegerField
  866.       FieldName = 'Proizvodi'
  867.       Visible = False
  868.     end
  869.     object tSifRobeGrupa: TIntegerField
  870.       FieldName = 'Grupa'
  871.       Visible = False
  872.     end
  873.     object tSifRobePodGrupa: TIntegerField
  874.       FieldName = 'PodGrupa'
  875.       Visible = False
  876.     end
  877.     object tSifRobeAmortizacija: TIntegerField
  878.       FieldName = 'Amortizacija'
  879.       Visible = False
  880.     end
  881.     object tSifRobeRevalorizacija: TIntegerField
  882.       FieldName = 'Revalorizacija'
  883.       Visible = False
  884.     end
  885.     object tSifRobeNaziv: TStringField
  886.       DisplayLabel = 'Naziv artikla'
  887.       DisplayWidth = 43
  888.       FieldName = 'Naziv'
  889.       Size = 60
  890.     end
  891.     object tSifRobeOtkup: TStringField
  892.       DisplayLabel = 'O'
  893.       FieldName = 'Otkup'
  894.       Size = 1
  895.     end
  896.     object tSifRobeItems: TIntegerField
  897.       FieldName = 'Items'
  898.       Visible = False
  899.     end
  900.     object tSifRobeBoja: TIntegerField
  901.       FieldName = 'Boja'
  902.       Visible = False
  903.       Calculated = True
  904.     end
  905.   end
  906.   object tSifPart: TMyTable
  907.     AutoCalcFields = False
  908.     OnCalcFields = tSifPartCalcFields
  909.     DatabaseName = 'Lokal'
  910.     IndexFieldNames = 'Dobavljac;Sifra'
  911.     TableName = 'SIF_PART.DB'
  912.     AutoOpen = True
  913.     AutoFlush = True
  914.     FreeToModify = False
  915.     FreeToDelete = False
  916.     FreeToInsert = False
  917.     Left = 144
  918.     Top = 196
  919.     object tSifPartSifra: TStringField
  920.       DisplayLabel = 'Partner (∩┐╜ifra)'
  921.       DisplayWidth = 25
  922.       FieldName = 'Sifra'
  923.       Size = 40
  924.     end
  925.     object tSifPartDobavljac: TStringField
  926.       FieldName = 'Dobavljac'
  927.       Visible = False
  928.       Size = 1
  929.     end
  930.     object tSifPartDrzava: TStringField
  931.       FieldName = 'Drzava'
  932.       Visible = False
  933.       Size = 1
  934.     end
  935.     object tSifPartPartner: TIntegerField
  936.       FieldName = 'Partner'
  937.       Visible = False
  938.     end
  939.     object tSifPartGovor: TIntegerField
  940.       FieldName = 'Govor'
  941.       Visible = False
  942.     end
  943.     object tSifPartItems: TIntegerField
  944.       FieldName = 'Items'
  945.       Visible = False
  946.     end
  947.     object tSifPartJa: TIntegerField
  948.       FieldName = 'Ja'
  949.       Visible = False
  950.       Calculated = True
  951.     end
  952.   end
  953.   object tIzlazi: TMyTable
  954.     DatabaseName = 'Lokal'
  955.     IndexFieldNames = 'Artikl;Boja;MinKol'
  956.     TableName = 'IZLAZI.DB'
  957.     AutoOpen = True
  958.     AutoFlush = False
  959.     FreeToModify = False
  960.     FreeToDelete = False
  961.     FreeToInsert = False
  962.     Left = 236
  963.     Top = 140
  964.     object tIzlaziArtikl: TIntegerField
  965.       FieldName = 'Artikl'
  966.       Visible = False
  967.     end
  968.     object tIzlaziBoja: TIntegerField
  969.       DisplayWidth = 6
  970.       FieldName = 'Boja'
  971.       Visible = False
  972.     end
  973.     object tIzlaziMinKol: TFloatField
  974.       DisplayLabel = 'Min.kol.'
  975.       DisplayWidth = 7
  976.       FieldName = 'MinKol'
  977.       Precision = 9
  978.     end
  979.     object tIzlaziVrsta: TSmallintField
  980.       DisplayLabel = 'V'
  981.       DisplayWidth = 1
  982.       FieldName = 'Vrsta'
  983.       Visible = False
  984.     end
  985.     object tIzlaziSkladiste: TIntegerField
  986.       FieldName = 'Skladiste'
  987.       Visible = False
  988.     end
  989.     object tIzlaziVPC: TFloatField
  990.       Tag = 2
  991.       DisplayWidth = 12
  992.       FieldName = 'VPC'
  993.       Visible = False
  994.       Precision = 9
  995.     end
  996.     object tIzlaziRUC: TFloatField
  997.       Tag = 2
  998.       DisplayWidth = 12
  999.       FieldName = 'RUC'
  1000.       Visible = False
  1001.       Precision = 9
  1002.     end
  1003.     object tIzlaziDok: TIntegerField
  1004.       FieldName = 'Dok'
  1005.     end
  1006.     object tIzlaziUFAbroj: TIntegerField
  1007.       DisplayLabel = 'Dokument'
  1008.       FieldName = 'UFAbroj'
  1009.       Visible = False
  1010.     end
  1011.     object tIzlaziFaktV: TFloatField
  1012.       Tag = -11
  1013.       FieldName = 'FaktV'
  1014.       Visible = False
  1015.       Precision = 9
  1016.     end
  1017.     object tIzlaziTrosakV: TFloatField
  1018.       Tag = -11
  1019.       FieldName = 'TrosakV'
  1020.       Visible = False
  1021.       Precision = 9
  1022.     end
  1023.     object tIzlaziKolicina: TFloatField
  1024.       DisplayLabel = 'Zaliha'
  1025.       DisplayWidth = 10
  1026.       FieldName = 'Kolicina'
  1027.       Precision = 9
  1028.     end
  1029.   end
  1030.   object tCeneRobe: TMyTable
  1031.     DatabaseName = 'Lokal'
  1032.     IndexFieldNames = 'Roba;Boja;MinKol;Valuta'
  1033.     TableName = 'CENEROBE.DB'
  1034.     AutoOpen = True
  1035.     AutoFlush = True
  1036.     FreeToModify = True
  1037.     FreeToDelete = True
  1038.     FreeToInsert = True
  1039.     Left = 300
  1040.     Top = 173
  1041.     object tCeneRobeRoba: TIntegerField
  1042.       FieldName = 'Roba'
  1043.     end
  1044.     object tCeneRobeBoja: TIntegerField
  1045.       FieldName = 'Boja'
  1046.     end
  1047.     object tCeneRobeMinKol: TFloatField
  1048.       FieldName = 'MinKol'
  1049.       Precision = 9
  1050.     end
  1051.     object tCeneRobeValuta: TIntegerField
  1052.       FieldName = 'Valuta'
  1053.     end
  1054.     object tCeneRobeCijena: TFloatField
  1055.       FieldName = 'Cijena'
  1056.       Precision = 9
  1057.     end
  1058.     object tCeneRobeRabatI: TFloatField
  1059.       FieldName = 'RabatI'
  1060.     end
  1061.     object tCeneRobeRabat2I: TFloatField
  1062.       FieldName = 'Rabat2I'
  1063.     end
  1064.   end
  1065. end
  1066.