home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BUG 11
/
BUGCD1998_02.ISO
/
aplic
/
trade
/
_setup.1
/
main.exe
/
0
/
RCDATA
/
TKONTNIPLAN5
/
TKONTNIPLAN5.txt
Wrap
Text File
|
1998-01-05
|
22KB
|
950 lines
object KontniPlan5: TKontniPlan5
Tag = 1
Left = 145
Top = 99
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = 'Dnevnik knji�enja glavne knjige'
ClientHeight = 453
ClientWidth = 632
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
KeyPreview = True
Position = poScreenCenter
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
OnKeyDown = FormKeyDown
OnKeyPress = FormKeyPress
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Bevel3: TBevel
Left = 333
Top = 285
Width = 280
Height = 24
end
object Bevel7: TBevel
Left = 333
Top = 261
Width = 296
Height = 24
end
object Bevel9: TBevel
Left = 0
Top = 423
Width = 317
Height = 27
end
object Bevel8: TBevel
Left = 4
Top = 3
Width = 309
Height = 81
Style = bsRaised
end
object Bevel13: TBevel
Left = 320
Top = 4
Width = 309
Height = 65
Shape = bsFrame
end
object Bevel15: TBevel
Left = 320
Top = 24
Width = 309
Height = 22
end
object Bevel6: TBevel
Left = 540
Top = 265
Width = 5
Height = 41
Shape = bsLeftLine
end
object Bevel5: TBevel
Left = 469
Top = 265
Width = 5
Height = 41
Shape = bsLeftLine
end
object Bevel4: TBevel
Left = 398
Top = 265
Width = 6
Height = 41
Shape = bsLeftLine
end
object Bevel2: TBevel
Left = 84
Top = 86
Width = 5
Height = 21
Shape = bsLeftLine
end
object Bevel1: TBevel
Left = 8
Top = 86
Width = 301
Height = 21
Style = bsRaised
end
object DBText17: TMyDBText
Left = 396
Top = 8
Width = 229
Height = 13
DataField = 'Naziv'
DataSource = dsKonta4
end
object DBText16: TMyDBText
Left = 328
Top = 8
Width = 65
Height = 13
DataField = 'Konto'
DataSource = dsKonta4
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object DBText18: TMyDBText
Left = 328
Top = 48
Width = 297
Height = 13
DataField = 'Naziv'
DataSource = sPartner
end
object Label1: TLabel
Left = 336
Top = 268
Width = 57
Height = 13
Alignment = taRightJustify
AutoSize = False
Caption = 'ova faza'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object DBText22: TMyDBText
Left = 401
Top = 268
Width = 65
Height = 13
Alignment = taRightJustify
DataField = 'Duguje'
DataSource = sxKonta
end
object DBText23: TMyDBText
Left = 472
Top = 268
Width = 65
Height = 13
Alignment = taRightJustify
DataField = 'Potrazuje'
DataSource = sxKonta
end
object DBText24: TMyDBText
Left = 544
Top = 268
Width = 81
Height = 13
Alignment = taRightJustify
DataField = 'Saldo'
DataSource = sxKonta
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object DBText25: TMyDBText
Left = 328
Top = 28
Width = 297
Height = 13
DataField = 'Opis'
DataSource = sKonta
end
object DBText26: TMyDBText
Left = 12
Top = 90
Width = 69
Height = 13
Alignment = taCenter
DataField = 'DatumDVO'
DataSource = sCodes
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object DBText27: TMyDBText
Left = 88
Top = 90
Width = 217
Height = 13
DataField = 'FullOpis'
DataSource = sCodes
end
object Label2: TLabel
Left = 336
Top = 289
Width = 57
Height = 13
Alignment = taRightJustify
AutoSize = False
Caption = 'po kontu'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object DBText1: TMyDBText
Left = 402
Top = 289
Width = 65
Height = 13
Alignment = taRightJustify
DataField = 'Duguje'
DataSource = syKonta
end
object DBText2: TMyDBText
Left = 472
Top = 289
Width = 65
Height = 13
Alignment = taRightJustify
DataField = 'Potrazuje'
DataSource = syKonta
end
object DBText3: TMyDBText
Left = 544
Top = 289
Width = 65
Height = 13
Alignment = taRightJustify
DataField = 'Saldo'
DataSource = syKonta
end
object Label3: TLabel
Left = 12
Top = 7
Width = 83
Height = 13
Caption = '&Vrsta dokumenta:'
FocusControl = xVrsta
end
object Label4: TLabel
Left = 168
Top = 7
Width = 83
Height = 13
Caption = '&Stupanj knji�enja:'
FocusControl = xTip
end
object Label5: TLabel
Left = 3
Top = 327
Width = 311
Height = 13
Caption =
'&Problemi kod automatske obrade podataka (knji�enje/storniranje)' +
#39':'
FocusControl = gProblem
end
object PrnLista: TSpeedButton
Left = 1
Top = 424
Width = 96
Height = 25
Caption = 'Kartica <F4>'
Flat = True
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
33333337FFFF7733333333300000033333333337777773333333}
NumGlyphs = 2
OnClick = PrnListaClick
end
object PrnZbirno: TSpeedButton
Left = 241
Top = 424
Width = 75
Height = 25
Caption = 'Zbirno <F7>'
Flat = True
NumGlyphs = 2
OnClick = PrnListaClick
end
object PrnKonta: TSpeedButton
Left = 173
Top = 424
Width = 68
Height = 25
Caption = 'Konta <F6>'
Flat = True
NumGlyphs = 2
OnClick = PrnListaClick
end
object PrnOvaj: TSpeedButton
Left = 97
Top = 424
Width = 76
Height = 25
Caption = 'Kartice <F5>'
Flat = True
NumGlyphs = 2
OnClick = PrnListaClick
end
object gPodGrupe: TDBGrid
Left = 0
Top = 106
Width = 316
Height = 219
DataSource = sCodes
Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgRowSelect, dgCancelOnExit]
TabOrder = 2
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnDrawDataCell = gPodGrupeDrawDataCell
end
object gKartica: TMyDBGrid
Left = 320
Top = 64
Width = 309
Height = 201
FindByName = True
DataSource = sKonta
Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgRowSelect, dgCancelOnExit]
TabOrder = 5
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnDrawDataCell = gKarticaDrawDataCell
end
object gKonta: TMyDBGrid
Left = 320
Top = 306
Width = 309
Height = 147
FindByName = True
DataSource = syKonta
Options = [dgIndicator, dgColLines, dgRowLines, dgRowSelect, dgCancelOnExit]
TabOrder = 6
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnDrawDataCell = gKontaDrawDataCell
end
object xVrsta: TListBox
Left = 8
Top = 23
Width = 149
Height = 56
Ctl3D = True
IntegralHeight = True
ItemHeight = 13
Items.Strings = (
'- Sve vrste dokumenata -'
'Blagajna'
'Inventura'
'Izlazne fakture ( IFE )'
'Izlazni Reversi'
'Izvodi'
'Izvozne fakture (IZVOZ)'
'Maloprodaja'
'Me�uskladi�nice'
'Odjave iz komisije'
'Odjave komisionara'
'Otkup od gra�ana'
'Po�etno stanje Partnera'
'Po�etno stanje Robe'
'Povrat dobavlja�ima'
'Povrat iz komisije'
'Povratnice komisionara'
'Povratnice od kupaca'
'Radni nalozi'
'Temeljnice'
'Ulazne fakture ( UFE )'
'Ulazni Reversi'
'Uvoz')
ParentCtl3D = False
Sorted = True
TabOrder = 0
OnClick = xVrstaExit
end
object xTip: TListBox
Left = 168
Top = 23
Width = 141
Height = 56
IntegralHeight = True
ItemHeight = 13
Items.Strings = (
'- Neovisno o knji�enju -'
'CIJELI knji�eni'
'CIJELI / DIO knji�eni'
'DIO knji�eni'
'DIO / NE knji�eni'
'NE knji�eni')
TabOrder = 1
OnClick = xVrstaExit
end
object gProblem: TMyDBGrid
Left = 0
Top = 342
Width = 317
Height = 75
FindByName = True
DataSource = sProblem
Options = [dgColLines, dgRowLines, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
TabOrder = 3
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnDrawDataCell = gProblemDrawDataCell
end
object KontoPanel: TPanel
Left = 322
Top = 66
Width = 76
Height = 17
TabOrder = 4
object xGK: TCheckBox
Left = 2
Top = 2
Width = 71
Height = 13
Caption = '&Konto'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
State = cbChecked
TabOrder = 0
OnClick = xGKClick
end
end
object dsKonta4: TDataSource
DataSet = tKonta4
Left = 432
Top = 104
end
object sxKonta: TDataSource
DataSet = xKonta
Left = 368
Top = 140
end
object sPartner: TDataSource
DataSet = tPartner
Left = 492
Top = 104
end
object sKonta: TDataSource
DataSet = tKonta
Left = 368
Top = 104
end
object syKonta: TDataSource
DataSet = yKonta
Left = 372
Top = 336
end
object sCodes: TDataSource
DataSet = tCodes
Left = 68
Top = 220
end
object yKonta: TMyTable
DatabaseName = 'Lokal'
IndexFieldNames = 'OrgJed;DatumDVO;BrojDok;Konto'
MasterFields = 'OrgJed;DatumDVO;Code'
MasterSource = sCodes2
TableName = 'S_KONTO.DB'
AutoOpen = True
AutoFlush = True
FreeToModify = False
FreeToDelete = False
FreeToInsert = False
Left = 344
Top = 336
object yKontaKonto: TIntegerField
FieldName = 'Konto'
OnGetText = tKontaKontoGetText
end
object yKontaOrgJed: TIntegerField
FieldName = 'OrgJed'
Visible = False
end
object yKontaDatumDVO: TDateField
FieldName = 'DatumDVO'
Visible = False
end
object yKontaBrojDok: TIntegerField
Alignment = taLeftJustify
FieldName = 'BrojDok'
Visible = False
end
object yKontaDuguje: TFloatField
Tag = -11
DisplayWidth = 11
FieldName = 'Duguje'
Precision = 9
end
object yKontaPotrazuje: TFloatField
Tag = -11
DisplayLabel = 'Potra�uje'
DisplayWidth = 11
FieldName = 'Potrazuje'
Precision = 9
end
object yKontaStavki: TIntegerField
FieldName = 'Stavki'
Visible = False
end
object yKontaSaldo: TFloatField
Tag = -11
DisplayWidth = 11
FieldName = 'Saldo'
Precision = 9
end
end
object xKonta: TMyTable
DatabaseName = 'Lokal'
IndexFieldNames = 'OrgJed;DatumDVO;BrojDok;VrstaDok'
MasterFields = 'OrgJed;DatumDVO;BrojDok;VrstaDok'
MasterSource = sKonta
TableName = 'S_KONTAS.DB'
AutoOpen = True
AutoFlush = True
FreeToModify = False
FreeToDelete = False
FreeToInsert = False
Left = 340
Top = 140
object xKontaOrgJed: TIntegerField
FieldName = 'OrgJed'
end
object xKontaDatumDVO: TDateField
FieldName = 'DatumDVO'
end
object xKontaBrojDok: TIntegerField
FieldName = 'BrojDok'
end
object xKontaVrstaDok: TSmallintField
FieldName = 'VrstaDok'
end
object xKontaDuguje: TFloatField
Tag = -11
FieldName = 'Duguje'
Precision = 9
end
object xKontaPotrazuje: TFloatField
Tag = -11
FieldName = 'Potrazuje'
Precision = 9
end
object xKontaSaldo: TFloatField
Tag = -11
FieldName = 'Saldo'
Precision = 9
end
end
object tPartner: TMyTable
DatabaseName = 'Global'
IndexFieldNames = 'Code'
MasterFields = 'Partner'
MasterSource = sKonta
TableName = 'PARTNER.DB'
AutoOpen = True
AutoFlush = True
FreeToModify = False
FreeToDelete = False
FreeToInsert = False
Left = 464
Top = 104
object tPartnerCode: TAutoIncField
FieldName = 'Code'
end
object tPartnerSifra: TStringField
FieldName = 'Sifra'
Size = 40
end
object tPartnerNaziv: TStringField
FieldName = 'Naziv'
Size = 80
end
object tPartnerMjesto: TStringField
FieldName = 'Mjesto'
Size = 40
end
object tPartnerUlicaBroj: TStringField
FieldName = 'UlicaBroj'
Size = 60
end
object tPartnerPosta: TIntegerField
FieldName = 'Posta'
end
object tPartnerZemlja: TIntegerField
FieldName = 'Zemlja'
end
object tPartnerJezik: TIntegerField
FieldName = 'Jezik'
end
object tPartnerTelefon: TStringField
FieldName = 'Telefon'
end
object tPartnerTelefax: TStringField
FieldName = 'Telefax'
end
object tPartnerMobitel: TStringField
FieldName = 'Mobitel'
end
object tPartnerModem: TStringField
FieldName = 'Modem'
end
object tPartnerKontaktOsoba: TStringField
FieldName = 'KontaktOsoba'
Size = 40
end
object tPartnerMaticni: TStringField
FieldName = 'Maticni'
Size = 30
end
object tPartnerDjelatnost: TIntegerField
FieldName = 'Djelatnost'
end
object tPartnerBanka: TIntegerField
FieldName = 'Banka'
end
object tPartnerInoBanka: TIntegerField
FieldName = 'InoBanka'
end
object tPartnerValuta: TIntegerField
FieldName = 'Valuta'
end
object tPartnerZiroRN: TIntegerField
FieldName = 'ZiroRN'
end
object tPartnerPoziv: TSmallintField
FieldName = 'Poziv'
end
object tPartnerModel: TStringField
FieldName = 'Model'
Size = 30
end
object tPartnerOstaliTelefoni: TMemoField
FieldName = 'OstaliTelefoni'
BlobType = ftMemo
Size = 30
end
object tPartnerRabat2: TBooleanField
FieldName = 'Rabat2'
end
object tPartnerRabat2Kolicina: TBooleanField
FieldName = 'Rabat2Kolicina'
end
object tPartnerItems: TIntegerField
FieldName = 'Items'
end
object tPartnerTemp: TBooleanField
FieldName = 'Temp'
end
end
object tKonta4: TMyTable
DatabaseName = 'Global'
IndexFieldNames = 'Code'
MasterFields = 'Konto'
MasterSource = sKonta
TableName = 'KONTA.DB'
AutoOpen = True
AutoFlush = True
FreeToModify = False
FreeToDelete = False
FreeToInsert = False
Left = 404
Top = 104
end
object tKonta: TMyTable
DatabaseName = 'Lokal'
IndexFieldNames = 'OrgJed;DatumDVO;BrojDok;VrstaDok;Konto'
MasterFields = 'OrgJed;DatumDVO;Code'
MasterSource = sCodes2
TableName = 'S_KONTA.DB'
AutoOpen = True
AutoFlush = True
FreeToModify = False
FreeToDelete = False
FreeToInsert = False
Left = 340
Top = 104
object tKontaKonto: TIntegerField
FieldName = 'Konto'
OnGetText = tKontaKontoGetText
end
object tKontaOrgJed: TIntegerField
FieldName = 'OrgJed'
Visible = False
end
object tKontaDatumDVO: TDateField
FieldName = 'DatumDVO'
Visible = False
end
object tKontaBrojDok: TIntegerField
Alignment = taLeftJustify
DisplayLabel = 'Dokument broj'
DisplayWidth = 13
FieldName = 'BrojDok'
Visible = False
end
object tKontaVrstaDok: TSmallintField
FieldName = 'VrstaDok'
Visible = False
end
object tKontaDuguje: TFloatField
Tag = -11
DisplayWidth = 11
FieldName = 'Duguje'
Precision = 9
end
object tKontaPotrazuje: TFloatField
Tag = -11
DisplayLabel = 'Potra�uje'
DisplayWidth = 11
FieldName = 'Potrazuje'
Precision = 9
end
object tKontaSaldo: TFloatField
Tag = -11
DisplayWidth = 11
FieldName = 'Saldo'
Precision = 9
end
object tKontaOpis: TStringField
FieldName = 'Opis'
Visible = False
Size = 60
end
object tKontaPartner: TIntegerField
FieldName = 'Partner'
Visible = False
end
object tKontaStavki: TIntegerField
FieldName = 'Stavki'
Visible = False
end
end
object tCodes: TMyTable
OnCalcFields = tCodesCalcFields
DatabaseName = 'Lokal'
SessionName = 'Default'
IndexFieldNames = 'Vrsta;Broj'
TableName = 'CODES.DB'
AutoOpen = True
AutoFlush = True
FreeToModify = False
FreeToDelete = False
FreeToInsert = False
Left = 36
Top = 220
object tCodesCode: TAutoIncField
FieldName = 'Code'
Visible = False
end
object tCodesVrsta: TSmallintField
FieldName = 'Vrsta'
Visible = False
end
object tCodesBroj: TIntegerField
FieldName = 'Broj'
Visible = False
end
object tCodesOpis: TStringField
DisplayLabel = 'Dokument'
DisplayWidth = 11
FieldName = 'Opis'
Calculated = True
end
object tCodesFullOpis: TStringField
FieldName = 'FullOpis'
Visible = False
Size = 80
Calculated = True
end
object tCodesOrgJed: TIntegerField
FieldName = 'OrgJed'
Visible = False
Calculated = True
end
object tCodesDatumDVO: TDateTimeField
FieldName = 'DatumDVO'
Visible = False
Calculated = True
end
object tCodesDuguje: TFloatField
Tag = -11
DisplayWidth = 11
FieldName = 'Duguje'
Calculated = True
end
object tCodesPotrazuje: TFloatField
Tag = -11
DisplayLabel = 'Potra�uje'
DisplayWidth = 11
FieldName = 'Potrazuje'
Calculated = True
end
object tCodesSaldo: TFloatField
Tag = -11
DisplayWidth = 11
FieldName = 'Saldo'
Calculated = True
end
object tCodesKnjizeno: TStringField
DisplayLabel = 'K'
FieldName = 'Knjizeno'
Visible = False
Size = 1
end
end
object vKonta4: TMyTable
DatabaseName = 'Lokal'
SessionName = 'Default'
IndexFieldNames = 'OrgJed;BrojDok'
TableName = 'S_KONTAD.DB'
AutoOpen = True
AutoFlush = True
FreeToModify = False
FreeToDelete = False
FreeToInsert = False
Left = 36
Top = 252
object vKonta4OrgJed: TIntegerField
FieldName = 'OrgJed'
Visible = False
end
object vKonta4DatumDVO: TDateField
FieldName = 'DatumDVO'
Visible = False
end
object vKonta4BrojDok: TIntegerField
Alignment = taLeftJustify
DisplayLabel = 'Dokument'
DisplayWidth = 11
FieldName = 'BrojDok'
Visible = False
end
object vKonta4Duguje: TFloatField
Tag = -11
DisplayWidth = 11
FieldName = 'Duguje'
Precision = 9
end
object vKonta4Potrazuje: TFloatField
Tag = -11
DisplayWidth = 11
FieldName = 'Potrazuje'
Precision = 9
end
object vKonta4Saldo: TFloatField
Tag = -11
DisplayWidth = 11
FieldName = 'Saldo'
Precision = 9
end
end
object tProblem: TMyTable
DatabaseName = 'Lokal'
IndexFieldNames = 'Code;Vrsta;Stavka'
MasterFields = 'Code'
MasterSource = sCodes
TableName = 'Problemi.db'
AutoOpen = True
AutoFlush = True
FreeToModify = False
FreeToDelete = True
FreeToInsert = False
Left = 20
Top = 364
object tProblemCode: TIntegerField
FieldName = 'Code'
Visible = False
end
object tProblemVrsta: TStringField
Alignment = taCenter
DisplayLabel = 'V'
DisplayWidth = 2
FieldName = 'Vrsta'
Size = 1
end
object tProblemStavka: TSmallintField
DisplayLabel = 'Rbr.'
DisplayWidth = 4
FieldName = 'Stavka'
Visible = False
end
object tProblemDok: TStringField
FieldName = 'Dok'
Visible = False
end
object tProblemOpis: TStringField
DisplayWidth = 46
FieldName = 'Opis'
Size = 60
end
object tProblemBold: TBooleanField
FieldName = 'Bold'
Visible = False
end
end
object sProblem: TDataSource
DataSet = tProblem
Left = 48
Top = 364
end
object sCodes2: TDataSource
DataSet = tCodes
Left = 100
Top = 220
end
end