Nemokama apskaitos programa

Niemand
Niemand
4936
#445662 2007-10-12 15:56 Niemand
Arba vartotojas "root" ir slaptažodis, kurį pasirinkote konfiguruodami MySQL serverį, arba Jūsų sukurto vartotojo vardas ir slaptažodis.

O Jūs MySQL serverį iš viso instaliavot ir konfiguravot? (instrukcija pridėta ankstesniame post'e)
Niemand
Niemand
4936
#445663 2007-10-12 15:57 Niemand redaguota: 2011-09-11 05-34

Niemand rašė:


INSTALIAVIMAS

Norėdami instaliuoti programą pas save testavimui, iš pradžių instaliuokite savo kompiuteryje "MySQL Community Server" . Kaip tai padaryti, detaliai aprašyta toliau. Pačios programos instaliavimas yra visiškai paprastas, tiesiog parsisiųskite, paleiskite ir spaudinėkite Next. Jei Jūsų programoje dar nėra taip vadinamos ".NET platformos" (šiaip jau turėtų būti Windows XP ir + sudėtinė dalis), ją jums pasiūlys suinstaliuoti, ką ir reikėtų padaryti. Instaliacinis paketas taip pat gali pasiūlyti instaliuoti "Windows reporting service" ar kažką panašaus. Ją irgi reikėtų instaliuoti, nes be jos neveiks ataskaitų generavimas ir printinimas. Šiuos MS paketus Jums suintaliuos pati programa (reikės tik paspaudinėti NEXT).

Pirmą kartą pasileidę programą, pažymėkite varnelę "Naujas vartotojas" ir kairėje lentelės pusėje įveskite vartotojo vardą "root" bei slaptažodį, kurį sugalvojote instaliuodami serverį. Dešinėje lentelės pusėje esančių nustatymų ("localhost" ir "3306" berods) NELIESKITE. Pakliuvę į programą sukurkite naują įmonę (atitinkamas meniu puntas ir bendriausi duomenys).


Spanguole
Spanguole
817
#445674 2007-10-12 16:32 Spanguole
Norėčiau ir aš pabandyti šią programą, bet "page cannot be displayed"

Ką tai galėtų reikšti? Kodėl nesikrauna psl?
Niemand
Niemand
4936
#445695 2007-10-12 18:04 Niemand
Atsiprašau tų, kas jau spėjo atsisiųsti susiinstaliuoti. Programą tai atnaujinau, o štai setupą tai seną palikau. Dabar jau pakeičiau atsisiuntimo linką sename poste. Jei ką, atsisiuntimo linkas:

www.talpink.lt/files/149302

Tiems, kas jau susiinstaliavo pas save, perinstaliuoti nebūtina - su pačia programa viskas gerai, tiesiog jai pagalbinių failų pritrūko.

Trūkstamus du failus galite parsisiųsti linkais (vienas failas - vienas linkas):
www.talpink.lt/files/607871
ir
www.talpink.lt/files/833700

Abu failus nukopijuoti (arba tiesiai downloadinti) į programos folger'į. Dėl failo "SQL_kodas.sql" perklaus ar tikrai norite overwrite'inti - atsakyti taip.
Niemand
Niemand
4936
#445696 2007-10-12 18:11 Niemand
Ir dar:

1. Apie tai, kad šiuo metu programa neleidžia pakeisti riboto vartotojo teisių į adminą, žinau. Tik dar nesugalvojau, kaip tą padaryti techniškai neužteršiant duombazių. Beje, sukurti naują vartotoją su admino teisėmis yra leidžiama ir viskas veikia.
2. Apie nelabai estetišką formų, ataskaitų (printinimo) ir ikonų vaizdą irgi žinau. Dailininkas savanoris būtų sveikintinas reiškinys.

ultrex
ultrex
14
#445756 2007-10-13 13:29 ultrex redaguota: 2011-09-11 05-34
Nu va israsiau programa ir ismete paleidima ant deskopo ir paspaudziau ir ismete [img]http://www.talpink.lt/images/images/60069klaida2.JPG[/img]
Pas mane mysql ir apachi idiegta.
ultrex
ultrex
14
#445757 2007-10-13 13:33 ultrex
O cia gali buti todel kad neprisijungia prie mysql serverio ???
O kaip padaryti kad prisijunktu ??
Niemand
Niemand
4936
#445778 2007-10-13 17:18 Niemand redaguota: 2011-09-11 05-34
Neįsivaizduoju, kodėl taip gali būti. Bent jau login dialogą turėtų parodyti. Gali būti, kad susipjovė su kažkokiom instaliuotom programom.

Programos pradžios kodas labai paprastas, jame net teoriškai neturėtų būti nieko, kas laužtų programą:



Login.ShowDialog()

<...> (Login_load procedūra)

Dim Udata As New DataTable
Udata.Columns.Add()
Udata.Columns.Add()
Udata.Columns.Add()

Me.AcceptButton = OK_Button

Dim path As String = AppPath() & "\users.dat"
If File.Exists(path) = True Then
Dim readtext() As String = File.ReadAllLines(path)
Dim s As String
For Each s In readtext 'duombaziu faile ieskom pasirinktos
If s.Length > 0 Then
Udata.Rows.Add()
Udata.Rows(Udata.Rows.Count - 1).Item(0) = Get_Element(s, 1)
Udata.Rows(Udata.Rows.Count - 1).Item(1) = Get_Element(s, 2)
Udata.Rows(Udata.Rows.Count - 1).Item(2) = Get_Element(s, 3)
End If
Next
End If


Dim kiekis As Integer
Try
kiekis = Udata.Rows.Count
Catch ex As Exception
kiekis = 0
End Try

If kiekis > 0 Then
Dim Sarasas(kiekis - 1) As MTGCComboBoxItem
For i = 1 To kiekis
Sarasas(i - 1) = New MTGCComboBoxItem( _
Udata.Rows(i - 1).Item(0).ToString, _
Udata.Rows(i - 1).Item(1).ToString, _
Udata.Rows(i - 1).Item(2).ToString)
Next
Vartotojas.SelectedIndex = -1 'paruosiam dropa
Vartotojas.Items.Clear()
Vartotojas.LoadingType = MTGCComboBox.CaricamentoCombo.ComboBoxItem 'loadinam duomenis
Vartotojas.ColumnNum = 3
Vartotojas.ColumnWidth = "80; 80; 50"
Vartotojas.Items.AddRange(Sarasas)
Vartotojas.GridLineVertical = True
If Vartotojas.Items.Count > 0 Then Vartotojas.SelectedIndex = 0
End If
Udata.Dispose()

'pradzioje matomas vartotoju dropas, o naujo vardo textboxas ne
Vartotojas.Visible = True
Naujas_vardas.Visible = False
Serveris.Enabled = False
Portas.Enabled = False
Visoms.Checked = True


Niemand
Niemand
4936
#445779 2007-10-13 17:22 Niemand
Kaip matyti iš kodo, paleidimo stadijoje (kol useris nepaspaudžia mygtuko Ok) programa net nebando bendrauti su jokiu serveriu. Tiesiog bando iš failo užsikrauti programos userių nustatymus. Tik instaliavus useriu nustatymų žinoma nėra, taigi neradusi nustatymų failo programa tiesiog turėtų parodyti "tuščią" dialogą. Pas mane taip ir vyksta.
ultrex
ultrex
14
#445788 2007-10-13 18:36 ultrex
O negali suinstaliuotos programuos ideti. As SQL isdesiu per phpmyadmin jeigu gali tai dar ir ji parasyk ydek y talpink.lt nes man kaskas blogai :((
Niemand
Niemand
4936
#445792 2007-10-13 19:25 Niemand
O kas per žvėris ta "suinstaliuota programa"?

P.S. su phpmyadmin nieko į programą neįdėsi. Čia gi ne web application.
ultrex
ultrex
14
#445818 2007-10-14 10:31 ultrex
O tai kaip man pasileisti ta programa ?
linutes
linutes
9
#445831 2007-10-14 13:58 linutes
Sveiki, atsitiko beda Konto programoje padariau kopija ant kitos firmos duomenu. Kaip jums atrodo ar dar yra sansu?atstatyti. Jei yra kas tai gali padaryti.Aciu Lina
Donaldasx
Donaldasx
37
#445946 2007-10-15 10:18 Donaldasx
Man viskas insistaliavo ir programa atsidaro, tik kaip sioje programoje reikia papildyti saskaitu plana?
rasa002
rasa002
437
#445964 2007-10-15 10:42 rasa002 redaguota: 2011-09-11 05-34

ultrex rašė:

O tai kaip man pasileisti ta programa ?

smile

Niemand
Niemand
4936
#445978 2007-10-15 10:59 Niemand
Duomenys/sąskaitų planas/ (mygtukas įvesti).

Tipinis planas (mano kūrybos sutrumpinta pavyzdinio versija) yra automatiškai generuojamas paspaudus mygtuką "Tipinis". Tačiau generavimas leidžiamas tik jei nėra sukurta nė vienos sąskaitos.

Jei sąskaitų planas kuriamas rankiniu būdu, prieš tai būtina sukurti pageidaujamą balanso ir pelno(nuostolio) ataskaitų struktūrą. (Ataskaitos/Fin. atskaitomybės struktūra) Jei reikia trumpų formų: spaudžiate Pakrauti/Iš failo... ir pasirenkate trump_bal.str arba trump_p(n).str formas įkrovus spaudžiate Išsaugoti/Įmonės P(N) arba Įmonės B. Galima kurti ir "rankiniu" būdu. Šiuo atveju pagrindiniai struktūros principai:
1. Kiekvienas aukštesnis lygmuo, sumuoja žemesnius.
2. Pilnai išskleidus "medį" laukelių išsidėstymas privalo atitikti balanso ataskaitos laukelių išsidėstymą, arba atvirkštinį pelno (nuostolio) ataskaitos laukelių išsidėstymą.
3. Pridėti "dukterinį" lygmenį galima paclickinus ant atitinkamo laukelio.
Niemand
Niemand
4936
#445990 2007-10-15 11:18 Niemand redaguota: 2011-09-11 05-34
Ar dar kam nors programa nepasileidžia iš viso? (t.y. nerodo net login dialogo)

P.S. Atkreipkit dėmesį, kad programa iš principo negali pasileisti ant žemesnių kaip Windows 2000. Gali kilti suderinamumo bėdų su ne XP šeimos windowsais, bet neturiu galimybės testuoti programos ant šių sistemų. Visi kompai, prie kurių prieinu, sukasi su XP. Teoriškai programa gali strigti, jei su ja dirbama guest account'u, t.y. be pakankamo kiekio teisių. Programa privalo turėti teisę savo folgeryje daryti ką nori (t.y. kurti ir keisti failus).

P.P.S. Instaliacinis programos paketas paprasčiausiai sukuria Program files folgerį ir sukopijuoja ten visus reikalingus programos failus (exe, dll, dat ir pan.) + programos kodo failus (jie nebūtini programos veikimui ir skirti norintiems pasitobulinti programą ar prisitaikyti ją sau). Instaliacija neliečia nei registro, nei GAC'o. Jokie failai neinstaliuojami į sisteminius folgerius. Jo veikimas neturi nieko bendro su pačios programos veikimu.
zydrutez
zydrutez
1040
#445996 2007-10-15 11:28 zydrutez
atsidaro Enter password, o kai įvedu viskas tuom ir pasibaigia kabutes meta iki begalybes
Niemand
Niemand
4936
#446030 2007-10-15 12:08 Niemand
Nelabai supratau aprašymo. Gal galit įdėti printscreen'a?

Kol kas pats bandžiau keturiuose kompiuteriuose įdėti ir paleisti. Visur viskas veikia.
liuxyte
liuxyte
1828
#446066 2007-10-15 12:48 liuxyte
Parsisiunčiau jūsų programą. Ant deskopo aplankalas su raidėm "RP",suprantu, kad reikia instaliuoti. 3 puslapyje šios temos parašyta kaip viską daryti, surinkus 1- o punkto nuorodą , tokių lentelių , kaip turi vykti instaliacija, man neatidaro. Ką ne taip darau ?

Diskusijos

Visos diskusijos...

Kas prisijungęs?

Tu esi neprisijungęs vartotojas
Prisijungti arba registruotis

Atmintinė

Atmintinė buhalteriui
Delspinigiai už ne laiku sumokėtus mokesčius ir baudas 2022 m. IV ketv. 0.03 %
Palūkanos už naudojimąsi mokestine paskola 2022 m. IV ketv. 0,00013699 %
Valstybinio socialinio draudimo bazinė pensija
nuo 2022-06-01 		225,84 €
Minimalus valandinis atlygis ir minimali mėnesinė alga (MMA)
nuo 2023-01-01		 5.14 € / 840 €

Įmonių finansinių ataskaitų duomenys

Balansai, Pelno (nuostolių) ataskaitos, Sodra
Įmonė
Pelėdos, VšĮ , 302674787
Kretingos r. sav. Darbėnų mstl. Lakštingalų g. 13
1,85 tūkst. €
Selnora, UAB , 303231047
Vilniaus m. sav. Vilniaus m. Architektų g. 56-101
HOPTRANS1, UAB , 304957392 , PVM k. LT100014291218
Kauno r. sav. Ramučių k. Silvestro Žukausko g. 13
53,2 tūkst. € / 10 tūkst. €
DVYNIŲ SAPNAS, UAB , 125750021
Vilniaus m. sav. Vilniaus m. Svajonių g. 24-23
Indesco, UAB , 302890144
Vilniaus m. sav. Vilniaus m. Taikos g. 181-6
2 tūkst. € / -1,18 tūkst. €
Netsoftas, MB , 304743933
Ežero g. 25, Karvio k., Maišiagalos sen., Vilniaus r. sav. 14244
3,32 tūkst. € / -1,15 tūkst. €
JUVELYRIKA GG, UAB , 301577787
Druskininkų sav. Druskininkų m. Šv. Jokūbo g. 4-6
8,47 tūkst. € / -11,5 tūkst. €
LENTAINIŲ BENDRUOMENĖ , 302492628
Lentainių g. 1, Kauno m., Kauno m. sav. 47492
TK mediena, UAB , 305887662
Vilnius V. Nagevičiaus g. 3
Just Consulting, MB , 305931678
Vilnius A. Šabaniausko g. 12-27
6 tūkst. € / 5,93 tūkst. €
Divetis, UAB , 134208475 , PVM k. LT342084716
Kauno m. sav. Kauno m. S. Dariaus ir S. Girėno g. 22-4
74,9 tūkst. € / -11,6 tūkst. €
Citronella, UAB , 305622607 , PVM k. LT100015667317
Rokiškio r. sav. Jūžintų sen. Pilkėnų k. 12
Skaičiuokime, MB , 305471660
Lauryno Ivinskio g. 2, Vingininkų k., Šilalės kaimiškoji sen., Šilalės r. sav. 75113
16,9 tūkst. € / 15 tūkst. €
Bresneta, UAB , 304207412 , PVM k. LT100010505010
Vilniaus m. sav. Vilniaus m. Architektų g. 56-101
126 tūkst. € / 2,71 tūkst. €
Sporto era, VšĮ , 304749637
Kauno m. sav. Kauno m. Įkalnės aklg. 10-20
Visos įmonės