home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BUG 11
/
BUGCD1998_02.ISO
/
aplic
/
trade
/
_setup.1
/
main.exe
/
0
/
RCDATA
/
TDATAPPART
/
TDATAPPART.txt
Wrap
Text File
|
1998-01-05
|
10KB
|
447 lines
object DataPPart: TDataPPart
Tag = 1
OnDestroy = PocetnoStanjePartneraDestroy
Left = 409
Top = 167
Height = 218
Width = 284
object sValuta: TDataSource
DataSet = DGlava.tValuta
Left = 98
Top = 51
end
object sGlava: TDataSource
DataSet = tGlava
Left = 53
Top = 9
end
object sStavke: TDataSource
DataSet = tStavke
Left = 53
Top = 51
end
object sPartner: TDataSource
DataSet = tPartner
Left = 233
Top = 9
end
object sPart: TDataSource
DataSet = tPart
Left = 143
Top = 9
end
object sKonto: TDataSource
DataSet = tKonto
Left = 98
Top = 9
end
object sPartnerK: TDataSource
DataSet = tPartnerK
Left = 8
Top = 51
end
object sPartK: TDataSource
DataSet = tPartK
Left = 188
Top = 9
end
object sxGlava: TDataSource
DataSet = xGlava
Left = 72
Top = 140
end
object sCodes: TDataSource
DataSet = tCodes
Left = 8
Top = 9
end
object tPartner: TMyTable
DatabaseName = 'Lokal'
IndexFieldNames = 'DOBAVLJAC;DRZAVA;PARTNER'
MasterFields = 'DOBAVLJAC;DRZAVA;PARTNER'
MasterSource = sStavke
TableName = 'SIF_PART.DB'
AutoOpen = True
AutoFlush = True
FreeToModify = False
FreeToDelete = True
FreeToInsert = True
Left = 98
Top = 93
object tPartnerSifra: TStringField
FieldName = 'Sifra'
Size = 40
end
object tPartnerDrzava: TStringField
FieldName = 'Drzava'
Size = 1
end
object tPartnerPartner: TIntegerField
FieldName = 'Partner'
end
object tPartnerDobavljac: TStringField
FieldName = 'Dobavljac'
Size = 1
end
object tPartnerItems: TIntegerField
FieldName = 'Items'
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 = 8
Top = 93
end
object tKonto: TMyTable
DatabaseName = 'Global'
IndexFieldNames = 'CODE'
MasterFields = 'KONTO'
MasterSource = sGlava
TableName = 'KONTA.DB'
AutoOpen = True
AutoFlush = True
FreeToModify = False
FreeToDelete = True
FreeToInsert = True
Left = 237
Top = 51
end
object xPartner2: TMyTable
DatabaseName = 'Lokal2'
IndexFieldNames = 'Partner'
TableName = 'SIF_PART.DB'
AutoOpen = False
AutoFlush = False
FreeToModify = False
FreeToDelete = True
FreeToInsert = True
Left = 215
Top = 141
object xPartner2Sifra: TStringField
FieldName = 'Sifra'
Size = 40
end
object xPartner2Partner: TIntegerField
FieldName = 'Partner'
end
object xPartner2Items: TIntegerField
FieldName = 'Items'
end
end
object tPartnerK: TMyTable
DatabaseName = 'Lokal'
IndexFieldNames = 'DRZAVA;PARTNER'
MasterFields = 'DRZAVA;PARTNER'
MasterSource = sStavke
TableName = 'SIF_PART.DB'
AutoOpen = True
AutoFlush = True
FreeToModify = False
FreeToDelete = True
FreeToInsert = True
Left = 140
Top = 93
object StringField1: TStringField
FieldName = 'Sifra'
Size = 40
end
object IntegerField1: TIntegerField
FieldName = 'Partner'
end
object tPartnerKDrzava: TStringField
FieldName = 'Drzava'
Size = 1
end
object tPartnerKItems: TIntegerField
FieldName = 'Items'
end
end
object tPartK: TMyTable
DatabaseName = 'Global'
IndexFieldNames = 'Code'
MasterFields = 'Partner'
MasterSource = sPartnerK
TableName = 'PARTNER.DB'
AutoOpen = True
AutoFlush = True
FreeToModify = False
FreeToDelete = True
FreeToInsert = True
Left = 53
Top = 93
end
object xStavke: TMyTable
DatabaseName = 'Lokal2'
IndexFieldNames = 'BROJDOK;STAVKA'
MasterFields = 'Code'
MasterSource = sxGlava
TableName = 'PPARTS.DB'
AutoOpen = False
AutoFlush = False
FreeToModify = False
FreeToDelete = True
FreeToInsert = True
Left = 168
Top = 140
object xStavkeBrojDok: TIntegerField
FieldName = 'BrojDok'
end
object xStavkeStavka: TIntegerField
FieldName = 'Stavka'
end
object xStavkeValuta: TDateField
FieldName = 'Valuta'
end
object xStavkePartner: TIntegerField
FieldName = 'Partner'
end
object xStavkeRacunBr: TStringField
FieldName = 'RacunBr'
Size = 30
end
object xStavkePoziv: TSmallintField
FieldName = 'Poziv'
end
object xStavkeModel: TStringField
FieldName = 'Model'
Size = 30
end
object xStavkeIznos: TFloatField
FieldName = 'Iznos'
end
end
object xGlava: TMyTable
DatabaseName = 'Lokal2'
IndexFieldNames = 'Code'
TableName = 'PPART.DB'
AutoOpen = False
AutoFlush = False
FreeToModify = False
FreeToDelete = True
FreeToInsert = True
Left = 120
Top = 140
object xGlavaBroj: TIntegerField
FieldName = 'Broj'
end
object xGlavaKnjizeno: TStringField
FieldName = 'Knjizeno'
Size = 1
end
object xGlavaCode: TIntegerField
FieldName = 'Code'
end
object xGlavaDatum: TDateField
FieldName = 'Datum'
end
object xGlavaVrsta: TSmallintField
FieldName = 'Vrsta'
end
object xGlavaSaldo: TFloatField
FieldName = 'Saldo'
end
object xGlavaKonto: TIntegerField
FieldName = 'Konto'
end
object xGlavaIznos: TFloatField
FieldName = 'Iznos'
end
object xGlavaRazlika: TFloatField
FieldName = 'Razlika'
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 = 143
Top = 51
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
BeforePost = tStavkeBeforePost
AfterPost = tStavkeAfterPost
BeforeDelete = tStavkeBeforeDelete
AfterDelete = tStavkeAfterDelete
OnCalcFields = tStavkeCalcFields
OnNewRecord = tStavkeNewRecord
DatabaseName = 'Lokal'
IndexFieldNames = 'BROJDOK;STAVKA'
MasterFields = 'Code'
MasterSource = sGlava
TableName = 'PPARTS.DB'
OnNewLastRecord = tStavkeNewLastRecord
AutoOpen = True
AutoFlush = True
FreeToModify = False
FreeToDelete = True
FreeToInsert = True
Left = 185
Top = 93
object tStavkeBrojDok: TIntegerField
FieldName = 'BrojDok'
Visible = False
end
object tStavkeStavka: TIntegerField
DisplayWidth = 6
FieldName = 'Stavka'
end
object tStavkeValuta: TDateField
DisplayLabel = 'Valutacija'
FieldName = 'Valuta'
end
object tStavkeSifPart: TStringField
DisplayLabel = 'Partner'
DisplayWidth = 20
FieldName = 'SifPart'
LookupDataSet = xPartner2
LookupKeyFields = 'Partner'
LookupResultField = 'Sifra'
KeyFields = 'Partner'
Size = 40
Lookup = True
end
object tStavkePartner: TIntegerField
FieldName = 'Partner'
Visible = False
end
object tStavkeRacunBr: TStringField
DisplayLabel = 'Ra�un br.'
DisplayWidth = 18
FieldName = 'RacunBr'
Size = 30
end
object tStavkePoziv: TSmallintField
DisplayLabel = 'Po'
DisplayWidth = 2
FieldName = 'Poziv'
end
object tStavkeModel: TStringField
DisplayLabel = 'Model pla�anja'
DisplayWidth = 17
FieldName = 'Model'
Size = 30
end
object tStavkePrevec: TStringField
DisplayLabel = 'I'
DisplayWidth = 1
FieldName = 'Prevec'
OnGetText = tStavkePrevecGetText
Calculated = True
end
object tStavkeIznos: TFloatField
DisplayWidth = 17
FieldName = 'Iznos'
OnGetText = tStavkeIznosGetText
end
object tStavkeDrzava: TStringField
FieldName = 'Drzava'
Visible = False
Size = 1
Calculated = True
end
object tStavkeDobavljac: TStringField
FieldName = 'Dobavljac'
Visible = False
Size = 1
Calculated = True
end
end
object tGlava: TMyTable
BeforePost = tGlavaBeforePost
AfterPost = tGlavaAfterPost
BeforeDelete = tGlavaBeforeDelete
OnCalcFields = tGlavaCalcFields
OnNewRecord = tGlavaNewRecord
DatabaseName = 'Lokal'
IndexFieldNames = 'BROJ'
TableName = 'PPART.DB'
OnNewLastRecord = tGlavaNewLastRecord
AutoOpen = True
AutoFlush = True
FreeToModify = False
FreeToDelete = True
FreeToInsert = True
Left = 188
Top = 51
object tGlavaKnjizeno: TStringField
DisplayLabel = 'K'
FieldName = 'Knjizeno'
Size = 1
end
object tGlavaBroj: TIntegerField
DisplayLabel = 'Stanje br.'
DisplayWidth = 8
FieldName = 'Broj'
end
object tGlavaCode: TIntegerField
FieldName = 'Code'
Visible = False
end
object tGlavaDatum: TDateField
DisplayLabel = 'Datum dok.'
FieldName = 'Datum'
end
object tGlavaOpis: TStringField
DisplayLabel = 'Vrsta dokumenta'
DisplayWidth = 30
FieldName = 'Opis'
Size = 40
Calculated = True
end
object tGlavaVrsta: TSmallintField
FieldName = 'Vrsta'
Visible = False
end
object tGlavaSaldo: TFloatField
DisplayLabel = 'Ukupno'
DisplayWidth = 15
FieldName = 'Saldo'
OnChange = tGlavaIznosChange
end
object tGlavaRazlika: TFloatField
DisplayLabel = 'preostaje ...'
DisplayWidth = 13
FieldName = 'Razlika'
end
object tGlavaKonto: TIntegerField
FieldName = 'Konto'
Visible = False
end
object tGlavaIznos: TFloatField
DisplayLabel = 'Uneseno'
DisplayWidth = 15
FieldName = 'Iznos'
OnChange = tGlavaIznosChange
end
end
end