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

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