home *** CD-ROM | disk | FTP | other *** search
/ BUG 11 / BUGCD1998_02.ISO / aplic / trade / _setup.1 / main.exe / 0 / RCDATA / TDATAPPART / TDATAPPART.txt
Text File  |  1998-01-05  |  10KB  |  447 lines
  1. object DataPPart: TDataPPart
  2.   Tag = 1
  3.   OnDestroy = PocetnoStanjePartneraDestroy
  4.   Left = 409
  5.   Top = 167
  6.   Height = 218
  7.   Width = 284
  8.   object sValuta: TDataSource
  9.     DataSet = DGlava.tValuta
  10.     Left = 98
  11.     Top = 51
  12.   end
  13.   object sGlava: TDataSource
  14.     DataSet = tGlava
  15.     Left = 53
  16.     Top = 9
  17.   end
  18.   object sStavke: TDataSource
  19.     DataSet = tStavke
  20.     Left = 53
  21.     Top = 51
  22.   end
  23.   object sPartner: TDataSource
  24.     DataSet = tPartner
  25.     Left = 233
  26.     Top = 9
  27.   end
  28.   object sPart: TDataSource
  29.     DataSet = tPart
  30.     Left = 143
  31.     Top = 9
  32.   end
  33.   object sKonto: TDataSource
  34.     DataSet = tKonto
  35.     Left = 98
  36.     Top = 9
  37.   end
  38.   object sPartnerK: TDataSource
  39.     DataSet = tPartnerK
  40.     Left = 8
  41.     Top = 51
  42.   end
  43.   object sPartK: TDataSource
  44.     DataSet = tPartK
  45.     Left = 188
  46.     Top = 9
  47.   end
  48.   object sxGlava: TDataSource
  49.     DataSet = xGlava
  50.     Left = 72
  51.     Top = 140
  52.   end
  53.   object sCodes: TDataSource
  54.     DataSet = tCodes
  55.     Left = 8
  56.     Top = 9
  57.   end
  58.   object tPartner: TMyTable
  59.     DatabaseName = 'Lokal'
  60.     IndexFieldNames = 'DOBAVLJAC;DRZAVA;PARTNER'
  61.     MasterFields = 'DOBAVLJAC;DRZAVA;PARTNER'
  62.     MasterSource = sStavke
  63.     TableName = 'SIF_PART.DB'
  64.     AutoOpen = True
  65.     AutoFlush = True
  66.     FreeToModify = False
  67.     FreeToDelete = True
  68.     FreeToInsert = True
  69.     Left = 98
  70.     Top = 93
  71.     object tPartnerSifra: TStringField
  72.       FieldName = 'Sifra'
  73.       Size = 40
  74.     end
  75.     object tPartnerDrzava: TStringField
  76.       FieldName = 'Drzava'
  77.       Size = 1
  78.     end
  79.     object tPartnerPartner: TIntegerField
  80.       FieldName = 'Partner'
  81.     end
  82.     object tPartnerDobavljac: TStringField
  83.       FieldName = 'Dobavljac'
  84.       Size = 1
  85.     end
  86.     object tPartnerItems: TIntegerField
  87.       FieldName = 'Items'
  88.     end
  89.   end
  90.   object tPart: TMyTable
  91.     DatabaseName = 'Global'
  92.     IndexFieldNames = 'Code'
  93.     MasterFields = 'Partner'
  94.     MasterSource = sPartner
  95.     TableName = 'PARTNER.DB'
  96.     AutoOpen = True
  97.     AutoFlush = True
  98.     FreeToModify = False
  99.     FreeToDelete = True
  100.     FreeToInsert = True
  101.     Left = 8
  102.     Top = 93
  103.   end
  104.   object tKonto: TMyTable
  105.     DatabaseName = 'Global'
  106.     IndexFieldNames = 'CODE'
  107.     MasterFields = 'KONTO'
  108.     MasterSource = sGlava
  109.     TableName = 'KONTA.DB'
  110.     AutoOpen = True
  111.     AutoFlush = True
  112.     FreeToModify = False
  113.     FreeToDelete = True
  114.     FreeToInsert = True
  115.     Left = 237
  116.     Top = 51
  117.   end
  118.   object xPartner2: TMyTable
  119.     DatabaseName = 'Lokal2'
  120.     IndexFieldNames = 'Partner'
  121.     TableName = 'SIF_PART.DB'
  122.     AutoOpen = False
  123.     AutoFlush = False
  124.     FreeToModify = False
  125.     FreeToDelete = True
  126.     FreeToInsert = True
  127.     Left = 215
  128.     Top = 141
  129.     object xPartner2Sifra: TStringField
  130.       FieldName = 'Sifra'
  131.       Size = 40
  132.     end
  133.     object xPartner2Partner: TIntegerField
  134.       FieldName = 'Partner'
  135.     end
  136.     object xPartner2Items: TIntegerField
  137.       FieldName = 'Items'
  138.     end
  139.   end
  140.   object tPartnerK: TMyTable
  141.     DatabaseName = 'Lokal'
  142.     IndexFieldNames = 'DRZAVA;PARTNER'
  143.     MasterFields = 'DRZAVA;PARTNER'
  144.     MasterSource = sStavke
  145.     TableName = 'SIF_PART.DB'
  146.     AutoOpen = True
  147.     AutoFlush = True
  148.     FreeToModify = False
  149.     FreeToDelete = True
  150.     FreeToInsert = True
  151.     Left = 140
  152.     Top = 93
  153.     object StringField1: TStringField
  154.       FieldName = 'Sifra'
  155.       Size = 40
  156.     end
  157.     object IntegerField1: TIntegerField
  158.       FieldName = 'Partner'
  159.     end
  160.     object tPartnerKDrzava: TStringField
  161.       FieldName = 'Drzava'
  162.       Size = 1
  163.     end
  164.     object tPartnerKItems: TIntegerField
  165.       FieldName = 'Items'
  166.     end
  167.   end
  168.   object tPartK: TMyTable
  169.     DatabaseName = 'Global'
  170.     IndexFieldNames = 'Code'
  171.     MasterFields = 'Partner'
  172.     MasterSource = sPartnerK
  173.     TableName = 'PARTNER.DB'
  174.     AutoOpen = True
  175.     AutoFlush = True
  176.     FreeToModify = False
  177.     FreeToDelete = True
  178.     FreeToInsert = True
  179.     Left = 53
  180.     Top = 93
  181.   end
  182.   object xStavke: TMyTable
  183.     DatabaseName = 'Lokal2'
  184.     IndexFieldNames = 'BROJDOK;STAVKA'
  185.     MasterFields = 'Code'
  186.     MasterSource = sxGlava
  187.     TableName = 'PPARTS.DB'
  188.     AutoOpen = False
  189.     AutoFlush = False
  190.     FreeToModify = False
  191.     FreeToDelete = True
  192.     FreeToInsert = True
  193.     Left = 168
  194.     Top = 140
  195.     object xStavkeBrojDok: TIntegerField
  196.       FieldName = 'BrojDok'
  197.     end
  198.     object xStavkeStavka: TIntegerField
  199.       FieldName = 'Stavka'
  200.     end
  201.     object xStavkeValuta: TDateField
  202.       FieldName = 'Valuta'
  203.     end
  204.     object xStavkePartner: TIntegerField
  205.       FieldName = 'Partner'
  206.     end
  207.     object xStavkeRacunBr: TStringField
  208.       FieldName = 'RacunBr'
  209.       Size = 30
  210.     end
  211.     object xStavkePoziv: TSmallintField
  212.       FieldName = 'Poziv'
  213.     end
  214.     object xStavkeModel: TStringField
  215.       FieldName = 'Model'
  216.       Size = 30
  217.     end
  218.     object xStavkeIznos: TFloatField
  219.       FieldName = 'Iznos'
  220.     end
  221.   end
  222.   object xGlava: TMyTable
  223.     DatabaseName = 'Lokal2'
  224.     IndexFieldNames = 'Code'
  225.     TableName = 'PPART.DB'
  226.     AutoOpen = False
  227.     AutoFlush = False
  228.     FreeToModify = False
  229.     FreeToDelete = True
  230.     FreeToInsert = True
  231.     Left = 120
  232.     Top = 140
  233.     object xGlavaBroj: TIntegerField
  234.       FieldName = 'Broj'
  235.     end
  236.     object xGlavaKnjizeno: TStringField
  237.       FieldName = 'Knjizeno'
  238.       Size = 1
  239.     end
  240.     object xGlavaCode: TIntegerField
  241.       FieldName = 'Code'
  242.     end
  243.     object xGlavaDatum: TDateField
  244.       FieldName = 'Datum'
  245.     end
  246.     object xGlavaVrsta: TSmallintField
  247.       FieldName = 'Vrsta'
  248.     end
  249.     object xGlavaSaldo: TFloatField
  250.       FieldName = 'Saldo'
  251.     end
  252.     object xGlavaKonto: TIntegerField
  253.       FieldName = 'Konto'
  254.     end
  255.     object xGlavaIznos: TFloatField
  256.       FieldName = 'Iznos'
  257.     end
  258.     object xGlavaRazlika: TFloatField
  259.       FieldName = 'Razlika'
  260.     end
  261.   end
  262.   object tCodes: TMyTable
  263.     DatabaseName = 'Lokal'
  264.     IndexFieldNames = 'Code'
  265.     MasterFields = 'Code'
  266.     MasterSource = sGlava
  267.     TableName = 'CODES.DB'
  268.     AutoOpen = True
  269.     AutoFlush = True
  270.     FreeToModify = True
  271.     FreeToDelete = True
  272.     FreeToInsert = True
  273.     Left = 143
  274.     Top = 51
  275.     object tCodesCode: TAutoIncField
  276.       FieldName = 'Code'
  277.     end
  278.     object tCodesKnjizeno: TStringField
  279.       FieldName = 'Knjizeno'
  280.       Size = 1
  281.     end
  282.     object tCodesVrsta: TSmallintField
  283.       FieldName = 'Vrsta'
  284.     end
  285.     object tCodesBroj: TIntegerField
  286.       FieldName = 'Broj'
  287.     end
  288.   end
  289.   object tStavke: TMyTable
  290.     BeforePost = tStavkeBeforePost
  291.     AfterPost = tStavkeAfterPost
  292.     BeforeDelete = tStavkeBeforeDelete
  293.     AfterDelete = tStavkeAfterDelete
  294.     OnCalcFields = tStavkeCalcFields
  295.     OnNewRecord = tStavkeNewRecord
  296.     DatabaseName = 'Lokal'
  297.     IndexFieldNames = 'BROJDOK;STAVKA'
  298.     MasterFields = 'Code'
  299.     MasterSource = sGlava
  300.     TableName = 'PPARTS.DB'
  301.     OnNewLastRecord = tStavkeNewLastRecord
  302.     AutoOpen = True
  303.     AutoFlush = True
  304.     FreeToModify = False
  305.     FreeToDelete = True
  306.     FreeToInsert = True
  307.     Left = 185
  308.     Top = 93
  309.     object tStavkeBrojDok: TIntegerField
  310.       FieldName = 'BrojDok'
  311.       Visible = False
  312.     end
  313.     object tStavkeStavka: TIntegerField
  314.       DisplayWidth = 6
  315.       FieldName = 'Stavka'
  316.     end
  317.     object tStavkeValuta: TDateField
  318.       DisplayLabel = 'Valutacija'
  319.       FieldName = 'Valuta'
  320.     end
  321.     object tStavkeSifPart: TStringField
  322.       DisplayLabel = 'Partner'
  323.       DisplayWidth = 20
  324.       FieldName = 'SifPart'
  325.       LookupDataSet = xPartner2
  326.       LookupKeyFields = 'Partner'
  327.       LookupResultField = 'Sifra'
  328.       KeyFields = 'Partner'
  329.       Size = 40
  330.       Lookup = True
  331.     end
  332.     object tStavkePartner: TIntegerField
  333.       FieldName = 'Partner'
  334.       Visible = False
  335.     end
  336.     object tStavkeRacunBr: TStringField
  337.       DisplayLabel = 'Ra∩┐╜un br.'
  338.       DisplayWidth = 18
  339.       FieldName = 'RacunBr'
  340.       Size = 30
  341.     end
  342.     object tStavkePoziv: TSmallintField
  343.       DisplayLabel = 'Po'
  344.       DisplayWidth = 2
  345.       FieldName = 'Poziv'
  346.     end
  347.     object tStavkeModel: TStringField
  348.       DisplayLabel = 'Model pla∩┐╜anja'
  349.       DisplayWidth = 17
  350.       FieldName = 'Model'
  351.       Size = 30
  352.     end
  353.     object tStavkePrevec: TStringField
  354.       DisplayLabel = 'I'
  355.       DisplayWidth = 1
  356.       FieldName = 'Prevec'
  357.       OnGetText = tStavkePrevecGetText
  358.       Calculated = True
  359.     end
  360.     object tStavkeIznos: TFloatField
  361.       DisplayWidth = 17
  362.       FieldName = 'Iznos'
  363.       OnGetText = tStavkeIznosGetText
  364.     end
  365.     object tStavkeDrzava: TStringField
  366.       FieldName = 'Drzava'
  367.       Visible = False
  368.       Size = 1
  369.       Calculated = True
  370.     end
  371.     object tStavkeDobavljac: TStringField
  372.       FieldName = 'Dobavljac'
  373.       Visible = False
  374.       Size = 1
  375.       Calculated = True
  376.     end
  377.   end
  378.   object tGlava: TMyTable
  379.     BeforePost = tGlavaBeforePost
  380.     AfterPost = tGlavaAfterPost
  381.     BeforeDelete = tGlavaBeforeDelete
  382.     OnCalcFields = tGlavaCalcFields
  383.     OnNewRecord = tGlavaNewRecord
  384.     DatabaseName = 'Lokal'
  385.     IndexFieldNames = 'BROJ'
  386.     TableName = 'PPART.DB'
  387.     OnNewLastRecord = tGlavaNewLastRecord
  388.     AutoOpen = True
  389.     AutoFlush = True
  390.     FreeToModify = False
  391.     FreeToDelete = True
  392.     FreeToInsert = True
  393.     Left = 188
  394.     Top = 51
  395.     object tGlavaKnjizeno: TStringField
  396.       DisplayLabel = 'K'
  397.       FieldName = 'Knjizeno'
  398.       Size = 1
  399.     end
  400.     object tGlavaBroj: TIntegerField
  401.       DisplayLabel = 'Stanje br.'
  402.       DisplayWidth = 8
  403.       FieldName = 'Broj'
  404.     end
  405.     object tGlavaCode: TIntegerField
  406.       FieldName = 'Code'
  407.       Visible = False
  408.     end
  409.     object tGlavaDatum: TDateField
  410.       DisplayLabel = 'Datum dok.'
  411.       FieldName = 'Datum'
  412.     end
  413.     object tGlavaOpis: TStringField
  414.       DisplayLabel = 'Vrsta dokumenta'
  415.       DisplayWidth = 30
  416.       FieldName = 'Opis'
  417.       Size = 40
  418.       Calculated = True
  419.     end
  420.     object tGlavaVrsta: TSmallintField
  421.       FieldName = 'Vrsta'
  422.       Visible = False
  423.     end
  424.     object tGlavaSaldo: TFloatField
  425.       DisplayLabel = 'Ukupno'
  426.       DisplayWidth = 15
  427.       FieldName = 'Saldo'
  428.       OnChange = tGlavaIznosChange
  429.     end
  430.     object tGlavaRazlika: TFloatField
  431.       DisplayLabel = 'preostaje ...'
  432.       DisplayWidth = 13
  433.       FieldName = 'Razlika'
  434.     end
  435.     object tGlavaKonto: TIntegerField
  436.       FieldName = 'Konto'
  437.       Visible = False
  438.     end
  439.     object tGlavaIznos: TFloatField
  440.       DisplayLabel = 'Uneseno'
  441.       DisplayWidth = 15
  442.       FieldName = 'Iznos'
  443.       OnChange = tGlavaIznosChange
  444.     end
  445.   end
  446. end
  447.