home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BUG 11
/
BUGCD1998_02.ISO
/
aplic
/
trade
/
_setup.1
/
main.exe
/
0
/
RCDATA
/
TDATAIFA2P
/
TDATAIFA2P.txt
Wrap
Text File
|
1998-01-05
|
25KB
|
1,073 lines
object DataIfa2p: TDataIfa2p
Tag = 1
OnDestroy = DaraIfa2pDestroy
Left = 292
Top = 84
Height = 300
Width = 491
object sGlava: TDataSource
DataSet = tGlava
Left = 388
Top = 4
end
object sStavke: TDataSource
DataSet = tStavke
Left = 248
Top = 48
end
object sPartner: TDataSource
DataSet = tPartner
Left = 436
Top = 48
end
object sArtikl: TDataSource
DataSet = tArtikl
Left = 12
Top = 4
end
object sBoje: TDataSource
DataSet = tBoje
Left = 200
Top = 4
end
object sMjere: TDataSource
DataSet = tMjere
Left = 436
Top = 4
end
object sArtikl2: TDataSource
DataSet = tArtikl2
Left = 60
Top = 4
end
object sBoje2: TDataSource
DataSet = tBoje2
Left = 248
Top = 4
end
object sRoba: TDataSource
DataSet = tRoba
Left = 152
Top = 48
end
object sBoja: TDataSource
DataSet = tBoja
Left = 152
Top = 4
end
object sJedinice: TDataSource
DataSet = tJedinice
Left = 112
Top = 48
end
object sAtomi: TDataSource
DataSet = tAtomi
Left = 108
Top = 4
end
object sPart: TDataSource
DataSet = tPart
Left = 388
Top = 48
end
object sValuta: TDataSource
DataSet = DGlava.tValuta
Left = 12
Top = 92
end
object sImeRobe: TDataSource
DataSet = tImeRobe
Left = 60
Top = 48
end
object sImeBoje: TDataSource
DataSet = tImeBoje
Left = 12
Top = 48
end
object sSkladiste: TDataSource
DataSet = tSkladiste
Left = 200
Top = 48
end
object sPakung: TDataSource
DataSet = tPakung
Left = 340
Top = 48
end
object sxGlava: TDataSource
DataSet = xGlava
Left = 200
Top = 192
end
object sCodes: TDataSource
DataSet = tCodes
Left = 340
Top = 4
end
object sCijeneX: TDataSource
DataSet = tCijeneX
Left = 296
Top = 4
end
object tSkladiste: TMyTable
DatabaseName = 'Lokal'
IndexFieldNames = 'MJESTO;VRSTATER;VLASNIK;CODE'
MasterFields = 'ZEM;VRSTA;JA;SKLADISTE'
MasterSource = sGlava
TableName = 'SKLADIST.DB'
AutoOpen = True
AutoFlush = True
FreeToModify = False
FreeToDelete = True
FreeToInsert = True
Left = 60
Top = 180
object tSkladisteNaziv: TStringField
FieldName = 'Naziv'
Visible = False
Size = 80
end
object tSkladisteVlasnik: TIntegerField
FieldName = 'Vlasnik'
Visible = False
end
object tSkladisteVrstaTer: TSmallintField
FieldName = 'VrstaTer'
Visible = False
end
object tSkladisteMjesto: TStringField
FieldName = 'Mjesto'
Size = 1
end
object tSkladisteLokacija: TIntegerField
FieldName = 'Lokacija'
end
object tSkladisteCode: TAutoIncField
FieldName = 'Code'
end
object tSkladisteSifra: TStringField
FieldName = 'Sifra'
Size = 40
end
object tSkladisteDrzava: TIntegerField
FieldName = 'Drzava'
end
object tSkladisteItems: TIntegerField
FieldName = 'Items'
end
end
object tPart2: TMyTable
DatabaseName = 'Global'
IndexFieldNames = 'Code'
TableName = 'PARTNER.DB'
AutoOpen = True
AutoFlush = True
FreeToModify = False
FreeToDelete = True
FreeToInsert = True
Left = 340
Top = 136
object tPart2Poziv: TSmallintField
FieldName = 'Poziv'
end
object tPart2Model: TStringField
FieldName = 'Model'
Size = 30
end
object tPart2Rabat2: TBooleanField
FieldName = 'Rabat2'
end
object tPart2Rabat2Kolicina: TBooleanField
FieldName = 'Rabat2Kolicina'
end
object tPart2Code: TAutoIncField
FieldName = 'Code'
end
object tPart2Sifra: TStringField
FieldName = 'Sifra'
Size = 40
end
object tPart2ZiroRN: TIntegerField
FieldName = 'ZiroRN'
end
object tPart2Items: TIntegerField
FieldName = 'Items'
end
end
object tAtomi: TMyTable
DatabaseName = 'Global'
IndexFieldNames = 'PAKUNG;KOLICINA'
MasterFields = 'PAKUNG;ATOM'
MasterSource = sStavke
TableName = 'ATOMI.DB'
AutoOpen = True
AutoFlush = True
FreeToModify = False
FreeToDelete = True
FreeToInsert = True
Left = 296
Top = 92
object tAtomiPakung: TIntegerField
FieldName = 'Pakung'
end
object tAtomiKolicina: TFloatField
FieldName = 'Kolicina'
Precision = 9
end
end
object tImeRobe: TMyTable
DatabaseName = 'Global'
IndexFieldNames = 'Roba;Govor'
MasterFields = 'Code;Govor'
MasterSource = sRoba
TableName = 'IME_ROBE.DB'
AutoOpen = True
AutoFlush = True
FreeToModify = False
FreeToDelete = True
FreeToInsert = True
Left = 248
Top = 136
object tImeRobeRoba: TIntegerField
FieldName = 'Roba'
end
object tImeRobeGovor: TIntegerField
FieldName = 'Govor'
end
object tImeRobeNaziv: TStringField
FieldName = 'Naziv'
OnGetText = tImeRobeNazivGetText
Size = 60
end
end
object tArtikl2: TMyTable
BeforePost = SifArtD_BP
DatabaseName = 'Global'
IndexFieldNames = 'PARTNER;CODE'
MasterFields = 'JA;Code'
MasterSource = sRoba
TableName = 'SIF_ROBE.DB'
AutoOpen = True
AutoFlush = True
FreeToModify = False
FreeToDelete = True
FreeToInsert = True
Left = 248
Top = 92
object tArtikl2Partner: TIntegerField
FieldName = 'Partner'
end
object tArtikl2Sifra: TStringField
FieldName = 'Sifra'
Size = 40
end
object tArtikl2Code: TIntegerField
FieldName = 'Code'
end
object tArtikl2Naziv: TStringField
FieldName = 'Naziv'
Size = 60
end
object tArtikl2Proizvodi: TIntegerField
FieldName = 'Proizvodi'
end
object tArtikl2Grupa: TIntegerField
FieldName = 'Grupa'
end
object tArtikl2PodGrupa: TIntegerField
FieldName = 'PodGrupa'
end
object tArtikl2Amortizacija: TIntegerField
FieldName = 'Amortizacija'
end
object tArtikl2Revalorizacija: TIntegerField
FieldName = 'Revalorizacija'
end
object tArtikl2Items: TIntegerField
FieldName = 'Items'
end
end
object tRoba: TMyTable
AutoCalcFields = False
OnCalcFields = tRobaCalcFields
DatabaseName = 'Global'
IndexFieldNames = 'Code'
MasterFields = 'Code'
MasterSource = sArtikl
TableName = 'ROBA.DB'
AutoOpen = True
AutoFlush = True
FreeToModify = False
FreeToDelete = True
FreeToInsert = True
Left = 12
Top = 180
object tRobaCode: TAutoIncField
FieldName = 'Code'
end
object tRobaProizvodi: TIntegerField
FieldName = 'Proizvodi'
end
object tRobaNaziv: TStringField
FieldName = 'Naziv'
Size = 60
end
object tRobaTarifaPoreza: TIntegerField
FieldName = 'TarifaPoreza'
end
object tRobaTarifaCarine: TIntegerField
FieldName = 'TarifaCarine'
end
object tRobaVrsta: TIntegerField
FieldName = 'Vrsta'
end
object tRobaJedMj: TIntegerField
FieldName = 'JedMj'
end
object tRobaPakiranje: TIntegerField
FieldName = 'Pakiranje'
end
object tRobaBarKod: TStringField
FieldName = 'BarKod'
Size = 13
end
object tRobaTezina: TFloatField
FieldName = 'Tezina'
Precision = 9
end
object tRobaBezbojno: TBooleanField
FieldName = 'Bezbojno'
end
object tRobaJa: TIntegerField
FieldName = 'Ja'
Visible = False
Calculated = True
end
object tRobaGovor: TIntegerField
FieldName = 'Govor'
Calculated = True
end
object tRobaItems: TIntegerField
FieldName = 'Items'
end
end
object tArtikl: TMyTable
BeforePost = SifArt_BP
DatabaseName = 'Global'
IndexFieldNames = 'PARTNER;CODE'
MasterFields = 'JA;ARTIKL'
MasterSource = sStavke
TableName = 'SIF_ROBE.DB'
AutoOpen = True
AutoFlush = True
FreeToModify = False
FreeToDelete = True
FreeToInsert = True
Left = 200
Top = 92
object tArtiklPartner: TIntegerField
FieldName = 'Partner'
end
object tArtiklSifra: TStringField
FieldName = 'Sifra'
Size = 40
end
object tArtiklCode: TIntegerField
FieldName = 'Code'
end
object tArtiklNaziv: TStringField
FieldName = 'Naziv'
Size = 60
end
object tArtiklProizvodi: TIntegerField
FieldName = 'Proizvodi'
end
object tArtiklItems: TIntegerField
FieldName = 'Items'
end
end
object tImeBoje: TMyTable
DatabaseName = 'Global'
IndexFieldNames = 'Boja;Govor'
MasterFields = 'Code;Govor'
MasterSource = sBoja
TableName = 'IME_BOJA.DB'
AutoOpen = True
AutoFlush = True
FreeToModify = False
FreeToDelete = True
FreeToInsert = True
Left = 200
Top = 136
object tImeBojeBoja: TIntegerField
FieldName = 'Boja'
end
object tImeBojeGovor: TIntegerField
FieldName = 'Govor'
end
object tImeBojeNaziv: TStringField
FieldName = 'Naziv'
OnGetText = tImeBojeNazivGetText
Size = 60
end
end
object tBoje2: TMyTable
BeforePost = SifBojeD_BP
DatabaseName = 'Global'
IndexFieldNames = 'PARTNER;PROIZVODI;CODE'
MasterFields = 'Ja;Proizvodi;Code'
MasterSource = sBoja
TableName = 'SIF_BOJA.DB'
AutoOpen = True
AutoFlush = True
FreeToModify = False
FreeToDelete = True
FreeToInsert = True
Left = 436
Top = 92
object tBoje2Partner: TIntegerField
FieldName = 'Partner'
end
object tBoje2Proizvodi: TIntegerField
FieldName = 'Proizvodi'
end
object tBoje2Sifra: TStringField
FieldName = 'Sifra'
Size = 40
end
object tBoje2Code: TIntegerField
FieldName = 'Code'
end
object tBoje2Naziv: TStringField
FieldName = 'Naziv'
Size = 60
end
object tBoje2Items: TIntegerField
FieldName = 'Items'
end
end
object tBoja: TMyTable
AutoCalcFields = False
OnCalcFields = tBojaCalcFields
DatabaseName = 'Global'
IndexFieldNames = 'Code'
MasterFields = 'Code'
MasterSource = sBoje
TableName = 'BOJE.DB'
AutoOpen = True
AutoFlush = True
FreeToModify = False
FreeToDelete = True
FreeToInsert = True
Left = 340
Top = 92
object tBojaCode: TAutoIncField
FieldName = 'Code'
end
object tBojaProizvodi: TIntegerField
FieldName = 'Proizvodi'
end
object tBojaNaziv: TStringField
FieldName = 'Naziv'
Size = 60
end
object tBojaGovor: TIntegerField
FieldName = 'Govor'
Calculated = True
end
object tBojaJa: TIntegerField
FieldName = 'Ja'
Calculated = True
end
object tBojaItems: TIntegerField
FieldName = 'Items'
end
end
object tBoje: TMyTable
BeforePost = SifBoje_BP
DatabaseName = 'Global'
IndexFieldNames = 'PARTNER;PROIZVODI;CODE'
MasterFields = 'JA;PROIZVODI;BOJA'
MasterSource = sStavke
TableName = 'SIF_BOJA.DB'
AutoOpen = True
AutoFlush = True
FreeToModify = False
FreeToDelete = True
FreeToInsert = True
Left = 388
Top = 92
object tBojePartner: TIntegerField
FieldName = 'Partner'
end
object tBojeProizvodi: TIntegerField
FieldName = 'Proizvodi'
end
object tBojeSifra: TStringField
FieldName = 'Sifra'
Size = 40
end
object tBojeCode: TIntegerField
FieldName = 'Code'
end
object tBojeNaziv: TStringField
FieldName = 'Naziv'
Size = 60
end
object tBojeItems: TIntegerField
FieldName = 'Items'
end
end
object tPakung: TMyTable
DatabaseName = 'Global'
IndexFieldNames = 'Jedinica;Code'
MasterFields = 'JedMj;Pakiranje'
MasterSource = sRoba
TableName = 'PAKUNG.DB'
AutoOpen = True
AutoFlush = True
FreeToModify = False
FreeToDelete = True
FreeToInsert = True
Left = 108
Top = 136
object tPakungCode: TAutoIncField
FieldName = 'Code'
end
object tPakungJedinica: TIntegerField
FieldName = 'Jedinica'
end
object tPakungSifra: TStringField
FieldName = 'Sifra'
Size = 40
end
object tPakungMinKolicina: TFloatField
FieldName = 'MinKolicina'
Precision = 9
end
object tPakungImaAtoma: TBooleanField
FieldName = 'ImaAtoma'
end
object tPakungCijene: TFloatField
FieldName = 'Cijene'
Precision = 9
end
end
object tMjere: TMyTable
DatabaseName = 'Global'
IndexFieldNames = 'Jedinica;Govor'
MasterFields = 'Code;Govor'
MasterSource = sJedinice
TableName = 'MJERE.DB'
AutoOpen = True
AutoFlush = True
FreeToModify = False
FreeToDelete = True
FreeToInsert = True
Left = 12
Top = 136
object tMjereJedinica: TIntegerField
FieldName = 'Jedinica'
end
object tMjereGovor: TIntegerField
FieldName = 'Govor'
end
object tMjereNaziv: TStringField
FieldName = 'Naziv'
OnGetText = tMjereNazivGetText
Size = 60
end
end
object tJedinice: TMyTable
AutoCalcFields = False
OnCalcFields = tJediniceCalcFields
DatabaseName = 'Global'
IndexFieldNames = 'CODE'
MasterFields = 'JEDMJ'
MasterSource = sStavke
TableName = 'JEDINICE.DB'
AutoOpen = True
AutoFlush = True
FreeToModify = False
FreeToDelete = True
FreeToInsert = True
Left = 296
Top = 136
object tJediniceCode: TAutoIncField
FieldName = 'Code'
end
object tJediniceSifra: TStringField
FieldName = 'Sifra'
Size = 40
end
object tJediniceGovor: TIntegerField
FieldName = 'Govor'
Calculated = True
end
end
object tPosta: TMyTable
DatabaseName = 'Global'
IndexFieldNames = 'Code'
MasterFields = 'Posta'
MasterSource = sPart
TableName = 'POSTA.DB'
AutoOpen = True
AutoFlush = True
FreeToModify = False
FreeToDelete = True
FreeToInsert = True
Left = 436
Top = 136
object tPostaCode: TAutoIncField
FieldName = 'Code'
end
object tPostaSifra: TStringField
FieldName = 'Sifra'
Size = 40
end
object tPostaZemlja: TIntegerField
FieldName = 'Zemlja'
end
object tPostaBroj: TIntegerField
FieldName = 'Broj'
end
end
object tPart: TMyTable
DatabaseName = 'Global'
IndexFieldNames = 'Code'
MasterFields = 'Partner'
MasterSource = sPartner
TableName = 'PARTNER.DB'
AutoOpen = True
AutoFlush = True
FreeToModify = False
FreeToDelete = True
FreeToInsert = True
Left = 156
Top = 136
object tPartNaziv: TStringField
FieldName = 'Naziv'
Visible = False
Size = 80
end
object tPartMjesto: TStringField
FieldName = 'Mjesto'
Visible = False
Size = 40
end
object tPartUlicaBroj: TStringField
FieldName = 'UlicaBroj'
Visible = False
Size = 60
end
object tPartCode: TAutoIncField
FieldName = 'Code'
end
object tPartSifra: TStringField
FieldName = 'Sifra'
Size = 40
end
object tPartPosta: TIntegerField
FieldName = 'Posta'
end
object tPartItems: TIntegerField
FieldName = 'Items'
end
end
object tPartner: TMyTable
DatabaseName = 'Lokal'
IndexFieldNames = 'Partner'
MasterFields = 'LOKACIJA'
MasterSource = sSkladiste
TableName = 'SIF_PART.DB'
AutoOpen = True
AutoFlush = True
FreeToModify = False
FreeToDelete = True
FreeToInsert = True
Left = 388
Top = 136
object tPartnerPartner: TIntegerField
FieldName = 'Partner'
end
object tPartnerDobavljac: TStringField
FieldName = 'Dobavljac'
Size = 1
end
object tPartnerDrzava: TStringField
FieldName = 'Drzava'
Visible = False
Size = 1
end
object tPartnerUgovRabat2: TFloatField
FieldName = 'UgovRabat2'
Visible = False
Precision = 9
end
object tPartnerRokPlacanja2: TSmallintField
FieldName = 'RokPlacanja2'
Visible = False
end
object tPartnerVeceKolicine2: TBooleanField
FieldName = 'VeceKolicine2'
Visible = False
end
object tPartnerSifra: TStringField
FieldName = 'Sifra'
Size = 40
end
object tPartnerGovor: TIntegerField
FieldName = 'Govor'
end
object tPartnerItems: TIntegerField
FieldName = 'Items'
end
end
object tCijeneX: TMyTable
DatabaseName = 'Lokal'
IndexFieldNames = 'Artikl;Boja;MinKol;Vrsta;Skladiste'
MasterFields = 'ARTIKL;BOJA;MINKOL;xVrsta;Skladiste'
MasterSource = sStavke
TableName = 'SALDOX.DB'
AutoOpen = True
AutoFlush = True
FreeToModify = False
FreeToDelete = True
FreeToInsert = True
Left = 60
Top = 92
object tCijeneXArtikl: TIntegerField
FieldName = 'Artikl'
end
object tCijeneXBoja: TIntegerField
FieldName = 'Boja'
end
object tCijeneXMinKol: TFloatField
FieldName = 'MinKol'
end
object tCijeneXKolicina: TFloatField
DisplayLabel = 'Zaliha'
DisplayWidth = 10
FieldName = 'Kolicina'
end
object tCijeneXVrsta: TSmallintField
FieldName = 'Vrsta'
end
object tCijeneXSkladiste: TIntegerField
FieldName = 'Skladiste'
end
end
object xStavke: TMyTable
DatabaseName = 'Lokal2'
IndexFieldNames = 'BROJIFE;STAVKA'
MasterFields = 'Code'
MasterSource = sxGlava
TableName = 'IFE2PS.DB'
AutoOpen = False
AutoFlush = False
FreeToModify = False
FreeToDelete = True
FreeToInsert = True
Left = 296
Top = 192
object xStavkeBrojIFE: TIntegerField
FieldName = 'BrojIFE'
end
object xStavkeStavka: TSmallintField
FieldName = 'Stavka'
end
object xStavkeArtikl: TIntegerField
FieldName = 'Artikl'
end
object xStavkeBoja: TIntegerField
FieldName = 'Boja'
end
object xStavkeAtom: TFloatField
FieldName = 'Atom'
end
object xStavkeMinKol: TFloatField
FieldName = 'MinKol'
end
object xStavkeProizvodi: TIntegerField
FieldName = 'Proizvodi'
end
object xStavkePakung: TIntegerField
FieldName = 'Pakung'
end
object xStavkeJedMj: TIntegerField
FieldName = 'JedMj'
end
object xStavkeOpis: TStringField
FieldName = 'Opis'
Size = 40
end
object xStavkeXKol: TFloatField
FieldName = 'XKol'
end
object xStavkeKolicina: TFloatField
FieldName = 'Kolicina'
end
end
object xGlava: TMyTable
DatabaseName = 'Lokal2'
IndexFieldNames = 'Code'
TableName = 'IFE2P.DB'
AutoOpen = False
AutoFlush = False
FreeToModify = False
FreeToDelete = True
FreeToInsert = True
Left = 248
Top = 192
object xGlavaBrojIFE: TIntegerField
FieldName = 'BrojIFE'
end
object xGlavaCode: TIntegerField
FieldName = 'Code'
end
object xGlavaKnjizeno: TStringField
FieldName = 'Knjizeno'
Size = 1
end
object xGlavaKupac: TIntegerField
FieldName = 'Kupac'
end
object xGlavaSkladiste: TIntegerField
FieldName = 'Skladiste'
end
object xGlavaSifreDobavljaca: TBooleanField
FieldName = 'SifreDobavljaca'
end
object xGlavaOdjavaBr: TStringField
FieldName = 'OdjavaBr'
Size = 50
end
object xGlavaDatumDVO: TDateField
FieldName = 'DatumDVO'
end
end
object tCodes: TMyTable
DatabaseName = 'Lokal'
IndexFieldNames = 'Code'
MasterFields = 'Code'
MasterSource = sGlava
TableName = 'CODES.DB'
AutoOpen = True
AutoFlush = True
FreeToModify = True
FreeToDelete = True
FreeToInsert = True
Left = 108
Top = 92
object tCodesCode: TAutoIncField
FieldName = 'Code'
end
object tCodesKnjizeno: TStringField
FieldName = 'Knjizeno'
Size = 1
end
object tCodesVrsta: TSmallintField
FieldName = 'Vrsta'
end
object tCodesBroj: TIntegerField
FieldName = 'Broj'
end
end
object tStavke: TMyTable
AfterPost = tStavkeAfterPost
AfterDelete = tStavkeAfterDelete
OnCalcFields = tStavkeCalcFields
OnNewRecord = tStavkeNewRecord
DatabaseName = 'Lokal'
IndexFieldNames = 'BROJIFE;STAVKA'
MasterFields = 'Code'
MasterSource = sGlava
TableName = 'IFE2PS.DB'
OnNewLastRecord = tStavkeNewLastRecord
AutoOpen = True
AutoFlush = True
FreeToModify = False
FreeToDelete = True
FreeToInsert = True
Left = 108
Top = 180
object tStavkeBrojIFE: TIntegerField
FieldName = 'BrojIFE'
Visible = False
end
object tStavkeStavka: TSmallintField
DisplayWidth = 7
FieldName = 'Stavka'
end
object tStavkeArtikl: TIntegerField
FieldName = 'Artikl'
Visible = False
end
object tStavkeBoja: TIntegerField
FieldName = 'Boja'
Visible = False
end
object tStavkeAtom: TFloatField
FieldName = 'Atom'
Visible = False
end
object tStavkeMinKol: TFloatField
FieldName = 'MinKol'
Visible = False
OnGetText = tStavkeMinKolGetText
end
object tStavkeProizvodi: TIntegerField
FieldName = 'Proizvodi'
Visible = False
end
object tStavkePakung: TIntegerField
FieldName = 'Pakung'
Visible = False
end
object tStavkeJedMj: TIntegerField
FieldName = 'JedMj'
Visible = False
end
object tStavkeOpis: TStringField
DisplayLabel = '�ifra'
DisplayWidth = 40
FieldName = 'Opis'
Size = 40
end
object tStavkeKolicina: TFloatField
DisplayLabel = 'Koli�ina'
DisplayWidth = 12
FieldName = 'Kolicina'
end
object tStavkeVPS: TSmallintField
FieldName = 'VPS'
Visible = False
Calculated = True
end
object tStavkeMjesto: TStringField
FieldName = 'Mjesto'
Visible = False
Size = 1
Calculated = True
end
object tStavkeJA: TIntegerField
FieldName = 'JA'
Visible = False
Calculated = True
end
object tStavkeSkladiste: TIntegerField
FieldName = 'Skladiste'
Visible = False
Calculated = True
end
object tStavkeXKol: TFloatField
FieldName = 'XKol'
Visible = False
end
object tStavkexVrsta: TIntegerField
FieldName = 'xVrsta'
Visible = False
Calculated = True
end
end
object tGlava: TMyTable
AutoCalcFields = False
BeforePost = tGlavaBeforePost
AfterPost = tGlavaAfterPost
BeforeDelete = tGlavaBeforeDelete
OnCalcFields = tGlavaCalcFields
OnNewRecord = tGlavaNewRecord
DatabaseName = 'Lokal'
IndexFieldNames = 'BROJIFE'
TableName = 'IFE2P.DB'
OnNewLastRecord = tGlavaNewLastRecord
AutoOpen = True
AutoFlush = True
FreeToModify = False
FreeToDelete = True
FreeToInsert = True
Left = 156
Top = 92
object tGlavaKnjizeno: TStringField
DisplayLabel = 'K'
FieldName = 'Knjizeno'
Size = 1
end
object tGlavaBrojIFE: TIntegerField
DisplayLabel = 'Storno Revers br.'
DisplayWidth = 14
FieldName = 'BrojIFE'
end
object tGlavaDatumDVO: TDateField
DisplayLabel = 'Datum DVO'
FieldName = 'DatumDVO'
end
object tGlavaOdjavaBr: TStringField
DisplayLabel = 'Povrat iz komisije broj'
DisplayWidth = 20
FieldName = 'OdjavaBr'
Size = 50
end
object tGlavaCode: TIntegerField
FieldName = 'Code'
Visible = False
end
object tGlavaKupac: TIntegerField
FieldName = 'Kupac'
Visible = False
end
object tGlavaSkladiste: TIntegerField
FieldName = 'Skladiste'
Visible = False
end
object tGlavaSifreDobavljaca: TBooleanField
FieldName = 'SifreDobavljaca'
Visible = False
end
object tGlavaZEM: TStringField
FieldName = 'ZEM'
Visible = False
Size = 1
Calculated = True
end
object tGlavaVrsta: TSmallintField
FieldName = 'Vrsta'
Visible = False
Calculated = True
end
object tGlavaJA: TIntegerField
FieldName = 'JA'
Visible = False
Calculated = True
end
end
object tPartner2: TMyTable
DatabaseName = 'Lokal'
IndexFieldNames = 'Partner'
TableName = 'SIF_PART.DB'
AutoOpen = True
AutoFlush = True
FreeToModify = False
FreeToDelete = True
FreeToInsert = True
Left = 388
Top = 184
object tPartner2Partner: TIntegerField
FieldName = 'Partner'
end
object tPartner2Tretman: TBooleanField
FieldName = 'Tretman'
end
object tPartner2Xnarudzbenica: TBooleanField
FieldName = 'Xnarudzbenica'
end
object tPartner2UpoDobavljacu: TBooleanField
FieldName = 'UpoDobavljacu'
end
object tPartner2XpoDobavljacu: TBooleanField
FieldName = 'XpoDobavljacu'
end
end
end