bet greičiausiai turėtų būti kažkokia ataskaitų duomenų bazė, nes jei programoje yra tiek daug laukų kuruos galima pildyti - tai matyt galima matyti galutinėje s/f tuos duomenis. Spėju, kad kreipiantis į Rivile - jie paprašys atlygio už "naujos ataskaitos sukūrimą" ar klystu?
Tax.lt narys RoKat

- Tax.lt narys nuo
- 2016-02-02
- RoKat
- forume parašė 12 žinučių
RoKat naujausios žinutės:
rašė:
Ačiū, o kai pdėl kito klausimo: "Ar galima suformuoti s/f, kad matytųsi ilgais prekės aprašymas, o ne pirminis (trumpas)" ?
Ačiū
rašė:
Na, aš visai žalias..

Kaip pakoreguoti (papildyti) jau egistuojančios prekės aprašymą - noriu įvesti aprašymus kitomis kalbos, priskirti gamintoją ir t.t.? Ačiū
Ar galima suformuoti s/f, kad matytųsi ilgais prekės aprašymas, o ne pirminis (trumpas)? Ačiū
Ar galima suformuoti s/f, kad matytųsi ilgais prekės aprašymas, o ne pirminis (trumpas)? Ačiū
Sveiki,
kadangi šioje temoje yra milijonas žinučių - tai tikrai būtų keblu surasti ko man reikia, bet iš anksto atsiprašau, jei apie tai jau buvo rašyta ir atsakyta.
Neseniai pradėjau naudotis šia programa, todėl reikia šiek tiek pagalbos.
1. Norėčiau, kad pardavimo s/f matytųsi papildoma informacija, t.y. kiek prekių mato vnt yra originalioje pakuotėje. Ar yra koks "laisvas" laukas, kur galėčiau įvesti tokią informaciją kiekvienoje prekės kortelėje ir kad ta informacija būtų matoma galutinėje sąskaitoje?
2. Ar yra galimybė, kad s/f būtų matomas prekių aprašymas dviem kalbomis (prekės kortėlėje galima įvesti aprašymą net keliomis kalbomis).
3. Jei kiekvienos prekės kortelėje yra įvestas prekių gamintojas - ar galima ištraukti pardavimų statistiką pagal gamintojus?
Ačiū
kadangi šioje temoje yra milijonas žinučių - tai tikrai būtų keblu surasti ko man reikia, bet iš anksto atsiprašau, jei apie tai jau buvo rašyta ir atsakyta.
Neseniai pradėjau naudotis šia programa, todėl reikia šiek tiek pagalbos.
1. Norėčiau, kad pardavimo s/f matytųsi papildoma informacija, t.y. kiek prekių mato vnt yra originalioje pakuotėje. Ar yra koks "laisvas" laukas, kur galėčiau įvesti tokią informaciją kiekvienoje prekės kortelėje ir kad ta informacija būtų matoma galutinėje sąskaitoje?
2. Ar yra galimybė, kad s/f būtų matomas prekių aprašymas dviem kalbomis (prekės kortėlėje galima įvesti aprašymą net keliomis kalbomis).
3. Jei kiekvienos prekės kortelėje yra įvestas prekių gamintojas - ar galima ištraukti pardavimų statistiką pagal gamintojus?
Ačiū
Siuo metu domina tas pats klausimas.
Kiek pasidomejau ir turiu du variantus: Rivile (380EUR be PVM) ir EVA-apskaita (160EUR jau su PVM).
Reikalingos funkcijos:
turimu prekiu ivedimas i sistema ir sugrupavimas pagal gamintoja, prekes koda, paskirti ir t.t.
saskaitu-fakturu formavimas ir prekiu is virtualaus sandelio nurasymas.
ataskaitu formavimas (pardavimai ivairiais pjuviais: pagal gamintoja, pagal koda, pagal marza ir t.t.)
Privalumas - galimybe dirbti is keliu kompiuteriu.
Aciu uz patarimus
Kiek pasidomejau ir turiu du variantus: Rivile (380EUR be PVM) ir EVA-apskaita (160EUR jau su PVM).
Reikalingos funkcijos:
turimu prekiu ivedimas i sistema ir sugrupavimas pagal gamintoja, prekes koda, paskirti ir t.t.
saskaitu-fakturu formavimas ir prekiu is virtualaus sandelio nurasymas.
ataskaitu formavimas (pardavimai ivairiais pjuviais: pagal gamintoja, pagal koda, pagal marza ir t.t.)
Privalumas - galimybe dirbti is keliu kompiuteriu.
Aciu uz patarimus
siek tiek pakoregavau formule ir gavosi:
Function Suma_zodziais(NumberArg As Double, Optional intCase As Integer = 0) As String
Dim strSuma As String
Dim strMilijonai As String
Dim strTukstanciai As String
Dim strSimtai As String
Dim m1 As String
Dim m2 As String
Dim t1 As String
Dim t2 As String
Dim r1 As String
Dim r2 As String
Dim v As String
Dim d As String
Dim strRezultatas As String
strSuma = Format(NumberArg, "000,000,000.00")
strMilijonai = Mid(strSuma, 1, 3)
strTukstanciai = Mid(strSuma, 5, 3)
strSimtai = Mid(strSuma, 9, 3)
If NumberArg < 1 Then
strRezultatas = "NULIS EURŲ "
GoTo pabaiga
End If
If strMilijonai <> "000" Then
m1 = TrysSkaitmenys(strMilijonai)
d = Mid(strMilijonai, 2, 1)
v = Right(strMilijonai, 1)
Select Case d
Case "1"
m2 = "MILIJONŲ "
Case Else
Select Case v
Case "0"
m2 = "MILIJONŲ "
Case "1"
m2 = "MILIJONAS "
Case Else
m2 = "MILIJONAI "
End Select
End Select
End If
If strTukstanciai <> "000" Then
t1 = TrysSkaitmenys(strTukstanciai)
d = Mid(strTukstanciai, 2, 1)
v = Right(strTukstanciai, 1)
Select Case d
Case "1"
t2 = "TŪKSTANČIŲ "
Case Else
Select Case v
Case "0"
t2 = "TŪKSTANCIŲ "
Case "1"
t2 = "TŪKSTANTIS "
Case Else
t2 = "TŪKSTANČIAI "
End Select
End Select
End If
r1 = TrysSkaitmenys(strSimtai)
d = Mid(strSimtai, 2, 1)
v = Right(strSimtai, 1)
Select Case d
Case "1"
r2 = "EURŲ "
Case Else
Select Case v
Case "0"
r2 = "EURŲ "
Case "1"
r2 = "EURAS "
Case Else
r2 = "EURAI "
End Select
End Select
strRezultatas = m1 + m2 + t1 + t2 + r1 + r2 + " "
pabaiga:
Select Case intCase
Case 0
Suma_zodziais = UCase(Left(strRezultatas, 1)) + LCase(Mid(strRezultatas, 2)) + Right(strSuma, 2) + " ct"
Case 1
Suma_zodziais = UCase(strRezultatas + Right(strSuma, 2) + " ct")
Case 2
Suma_zodziais = LCase(strRezultatas + Right(strSuma, 2) + " ct")
End Select
End Function
Private Function TrysSkaitmenys(strNum3 As String) As String
Dim s1 As String * 1 'šimtai
Dim d1 As String * 1 'dešimtys
Dim d2 As String * 2 'dešimtys ir vienetai
Dim v1 As String * 1 'vienetai
Dim s3 As String
Dim v3 As String
s1 = Left(strNum3, 1)
d1 = Mid(strNum3, 2, 1)
d2 = Mid(strNum3, 2, 2)
v1 = Right(strNum3, 1)
Select Case s1
Case "1"
s3 = "VIENAS ŠIMTAS "
Case "2"
s3 = "DU ŠIMTAI "
Case "3"
s3 = "TRYS ŠIMTAI "
Case "4"
s3 = "KETURI ŠIMTAI "
Case "5"
s3 = "PENKI ŠIMTAI "
Case "6"
s3 = "ŠEŠI ŠIMTAI "
Case "7"
s3 = "SEPTYNI ŠIMTAI "
Case "8"
s3 = "ATUONI ŠIMTAI "
Case "9"
s3 = "DEVYNI ŠIMTAI "
End Select
Select Case d1
Case "1"
Select Case d2
Case "10"
d3 = "DEŠIMT "
Case "11"
d3 = "VIENUOLIKA "
Case "12"
d3 = "DVYLIKA "
Case "13"
d3 = "TRYLIKA "
Case "14"
d3 = "KETURIOLIKA "
Case "15"
d3 = "PENKIOLIKA "
Case "16"
d3 = "ŠEŠIOLIKA "
Case "17"
d3 = "SEPTYNIOLIKA "
Case "18"
d3 = "AŠTUONIOLIKA "
Case "19"
d3 = "DEVYNIOLIKA "
End Select
Case "2"
d3 = "DVIDEŠIMT "
Case "3"
d3 = "TRISDEŠIMT "
Case "4"
d3 = "KETURIASDEŠIMT "
Case "5"
d3 = "PENKIASDEŠIMT "
Case "6"
d3 = "ŠEŠIASDEŠIMT "
Case "7"
d3 = "SEPTYNIASDEŠIMT "
Case "8"
d3 = "ATUONIASDEŠIMT "
Case "9"
d3 = "DEVYNIASDEŠIMT "
End Select
If d1 <> "1" Then
Select Case v1
Case "1"
v3 = "VIENAS "
Case "2"
v3 = "DU "
Case "3"
v3 = "TRYS "
Case "4"
v3 = "KETURI "
Case "5"
v3 = "PENKI "
Case "6"
v3 = "ŠEŠI "
Case "7"
v3 = "SEPTYNI "
Case "8"
v3 = "AŠTUONI "
Case "9"
v3 = "DEVYNI "
End Select
End If
TrysSkaitmenys = s3 + d3 + v3
End Function
Function Suma_zodziais(NumberArg As Double, Optional intCase As Integer = 0) As String
Dim strSuma As String
Dim strMilijonai As String
Dim strTukstanciai As String
Dim strSimtai As String
Dim m1 As String
Dim m2 As String
Dim t1 As String
Dim t2 As String
Dim r1 As String
Dim r2 As String
Dim v As String
Dim d As String
Dim strRezultatas As String
strSuma = Format(NumberArg, "000,000,000.00")
strMilijonai = Mid(strSuma, 1, 3)
strTukstanciai = Mid(strSuma, 5, 3)
strSimtai = Mid(strSuma, 9, 3)
If NumberArg < 1 Then
strRezultatas = "NULIS EURŲ "
GoTo pabaiga
End If
If strMilijonai <> "000" Then
m1 = TrysSkaitmenys(strMilijonai)
d = Mid(strMilijonai, 2, 1)
v = Right(strMilijonai, 1)
Select Case d
Case "1"
m2 = "MILIJONŲ "
Case Else
Select Case v
Case "0"
m2 = "MILIJONŲ "
Case "1"
m2 = "MILIJONAS "
Case Else
m2 = "MILIJONAI "
End Select
End Select
End If
If strTukstanciai <> "000" Then
t1 = TrysSkaitmenys(strTukstanciai)
d = Mid(strTukstanciai, 2, 1)
v = Right(strTukstanciai, 1)
Select Case d
Case "1"
t2 = "TŪKSTANČIŲ "
Case Else
Select Case v
Case "0"
t2 = "TŪKSTANCIŲ "
Case "1"
t2 = "TŪKSTANTIS "
Case Else
t2 = "TŪKSTANČIAI "
End Select
End Select
End If
r1 = TrysSkaitmenys(strSimtai)
d = Mid(strSimtai, 2, 1)
v = Right(strSimtai, 1)
Select Case d
Case "1"
r2 = "EURŲ "
Case Else
Select Case v
Case "0"
r2 = "EURŲ "
Case "1"
r2 = "EURAS "
Case Else
r2 = "EURAI "
End Select
End Select
strRezultatas = m1 + m2 + t1 + t2 + r1 + r2 + " "
pabaiga:
Select Case intCase
Case 0
Suma_zodziais = UCase(Left(strRezultatas, 1)) + LCase(Mid(strRezultatas, 2)) + Right(strSuma, 2) + " ct"
Case 1
Suma_zodziais = UCase(strRezultatas + Right(strSuma, 2) + " ct")
Case 2
Suma_zodziais = LCase(strRezultatas + Right(strSuma, 2) + " ct")
End Select
End Function
Private Function TrysSkaitmenys(strNum3 As String) As String
Dim s1 As String * 1 'šimtai
Dim d1 As String * 1 'dešimtys
Dim d2 As String * 2 'dešimtys ir vienetai
Dim v1 As String * 1 'vienetai
Dim s3 As String
Dim v3 As String
s1 = Left(strNum3, 1)
d1 = Mid(strNum3, 2, 1)
d2 = Mid(strNum3, 2, 2)
v1 = Right(strNum3, 1)
Select Case s1
Case "1"
s3 = "VIENAS ŠIMTAS "
Case "2"
s3 = "DU ŠIMTAI "
Case "3"
s3 = "TRYS ŠIMTAI "
Case "4"
s3 = "KETURI ŠIMTAI "
Case "5"
s3 = "PENKI ŠIMTAI "
Case "6"
s3 = "ŠEŠI ŠIMTAI "
Case "7"
s3 = "SEPTYNI ŠIMTAI "
Case "8"
s3 = "ATUONI ŠIMTAI "
Case "9"
s3 = "DEVYNI ŠIMTAI "
End Select
Select Case d1
Case "1"
Select Case d2
Case "10"
d3 = "DEŠIMT "
Case "11"
d3 = "VIENUOLIKA "
Case "12"
d3 = "DVYLIKA "
Case "13"
d3 = "TRYLIKA "
Case "14"
d3 = "KETURIOLIKA "
Case "15"
d3 = "PENKIOLIKA "
Case "16"
d3 = "ŠEŠIOLIKA "
Case "17"
d3 = "SEPTYNIOLIKA "
Case "18"
d3 = "AŠTUONIOLIKA "
Case "19"
d3 = "DEVYNIOLIKA "
End Select
Case "2"
d3 = "DVIDEŠIMT "
Case "3"
d3 = "TRISDEŠIMT "
Case "4"
d3 = "KETURIASDEŠIMT "
Case "5"
d3 = "PENKIASDEŠIMT "
Case "6"
d3 = "ŠEŠIASDEŠIMT "
Case "7"
d3 = "SEPTYNIASDEŠIMT "
Case "8"
d3 = "ATUONIASDEŠIMT "
Case "9"
d3 = "DEVYNIASDEŠIMT "
End Select
If d1 <> "1" Then
Select Case v1
Case "1"
v3 = "VIENAS "
Case "2"
v3 = "DU "
Case "3"
v3 = "TRYS "
Case "4"
v3 = "KETURI "
Case "5"
v3 = "PENKI "
Case "6"
v3 = "ŠEŠI "
Case "7"
v3 = "SEPTYNI "
Case "8"
v3 = "AŠTUONI "
Case "9"
v3 = "DEVYNI "
End Select
End If
TrysSkaitmenys = s3 + d3 + v3
End Function
kreivai ir man gaunasi.. lietuvisku raidziu ner..
artas71 rašė:
ačiū, versija xls;o anglų, bet reik lietuviškų žodžių. Dabar gaunasi, bet vietoje lietuviškų raidžių eina hieoroglifai..
sveiki,
ar prisapnavau ar kažkur mačiau, kad xls. yra funkcija, kuri parašytą suma skaičiais verčia į sumą žodžiais. Jei tokia funkcija egzistuoja - parašykite prašau kur ieškoti ir kaip ją įdiegti?
Kalba eina paie 2010 metų anglų versiją..
Ačiū
ar prisapnavau ar kažkur mačiau, kad xls. yra funkcija, kuri parašytą suma skaičiais verčia į sumą žodžiais. Jei tokia funkcija egzistuoja - parašykite prašau kur ieškoti ir kaip ją įdiegti?
Kalba eina paie 2010 metų anglų versiją..
Ačiū
Niemand rašė:
Sveiki,
tuomet gal galite rekomenduoti programa, tenkinancia musu lukescius? Domintu nebrangus variantas..

Aciu
Sveiki,
Per mėnesį išrašoma apie 30-50 pardavimo sąskaitų-faktūrų,
Per mėnesį perkama/parduodama apie 30-40 prekių su unikaliais kodais.
Iki šiol viską dariau xls., bet žiūriu, kad tampa vis sunkiau suvesti prekių likučius.
Buhalteriją tvarko buhalterinė įmonė, todėl reikalinga programa šioms funkcijoms atlikti:
prekių sandėliui (esamų prekių likučiai);
pardavimų ataskaitų formavimui (pardavimai pagal klientą, pagal prekės kodą ir pan.);
sąskaitų-faktūrų išrašymas (susieta su likučiais, kad automatiškai vestų likučių apskaitą)
Ar ši programa yra būtent tai ko mums reikia?
Klausiu, nes nežinau ar verta pradėti suvedinėti visus duomenis (klientai, prekių sandėlis ir t.t.), o gal ieškoti kitos programos, atitinkančios keliamus reikalavimus?
Beje, ši programa yra nemokama, teisingai?
Ačiū
Per mėnesį išrašoma apie 30-50 pardavimo sąskaitų-faktūrų,
Per mėnesį perkama/parduodama apie 30-40 prekių su unikaliais kodais.
Iki šiol viską dariau xls., bet žiūriu, kad tampa vis sunkiau suvesti prekių likučius.
Buhalteriją tvarko buhalterinė įmonė, todėl reikalinga programa šioms funkcijoms atlikti:
prekių sandėliui (esamų prekių likučiai);
pardavimų ataskaitų formavimui (pardavimai pagal klientą, pagal prekės kodą ir pan.);
sąskaitų-faktūrų išrašymas (susieta su likučiais, kad automatiškai vestų likučių apskaitą)
Ar ši programa yra būtent tai ko mums reikia?
Klausiu, nes nežinau ar verta pradėti suvedinėti visus duomenis (klientai, prekių sandėlis ir t.t.), o gal ieškoti kitos programos, atitinkančios keliamus reikalavimus?
Beje, ši programa yra nemokama, teisingai?
Ačiū
Diskusijos
-
Sąskaitų korespondencija
apie 9 valandų |
failai: 52 |
Mone8759 » 20888
-
PVM tarp ES valstybiu
apie 21 valandų |
failai: 39 |
gyvate » 5137
-
Atostoginiai
2 dienų |
failai: 0 |
Axis » 41
-
Buhalterinė programa "Centas"
2 dienų |
failai: 232 |
Leliukas » 23386
-
Apmokėjimas už šventines naktines darbo valandas. Kiek kartų reikia didinti darbo užmokestį ?
2 dienų |
failai: 6 |
Auriuke86 » 763
-
Aiškinamasis raštas
3 dienų |
failai: 7 |
jorja » 135
-
Kompensacija už nepanaudotas atostogas
3 dienų |
failai: 65 |
dassi » 4062
-
Ligos pašalpa iš darbdavio 2d
3 dienų |
failai: 6 |
Whagati » 2084
-
Skolų nurašymas/ beviltiškos skolos
4 dienų |
failai: 5 |
astuleee » 475
-
Barkodų skaitymas
4 dienų |
failai: 0 |
astuleee » 2
-
Darbo laikas
4 dienų |
failai: 19 |
regina70 » 2343
-
Programa "Būtent"
5 dienų |
failai: 13 |
gyvate » 2029
-
Rivilė
5 dienų |
failai: 315 |
digin » 15546
-
Ryanair lėktuvo bilietų įtraukimas į sąnaudas
6 dienų |
failai: 0 |
nebuhalteris » 2
-
Pvm sąskaita-faktūra
6 dienų |
failai: 45 |
allana » 6387
-
Vyr. buhalterio pavadavimas
7 dienų |
failai: 0 |
astuleee » 247
-
IV suteiktos paslaugos, neišrašytos sąskaitos, mokesčių deklaracijos pildymas
7 dienų |
failai: 0 |
Gita1 » 6
-
Ilgalaikio turto remontas
7 dienų |
failai: 3 |
astuleee » 284
-
Asociacijos
7 dienų |
failai: 50 |
judaskinas » 3590
-
Mažoji bendrija
9 dienų |
failai: 53 |
virbuh » 7571
-
Atsiskaitymas grynais pinigais iki 5000EUR (nuo lapkričio 1d.)
9 dienų |
failai: 0 |
virbuh » 5
-
Atvykimo išmoka / Išmoka pritraukus darbuotoją UĮ 48 (1) / 48 (2) str
11 dienų |
failai: 0 |
wolf » 2
-
Atsakymai "ant lėkštutės"
11 dienų |
failai: 77 |
allana » 9120
-
60 VDU, Sodra (S50) ir pereinamųjų mėnesių problemos
11 dienų |
failai: 0 |
wolf » 4
-
Atvirkštinis PVM
11 dienų |
failai: 0 |
agni752 » 1
- Tax.lt forumo taisyklės
- Paieška forume
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ė |
---|
Infes technologijos, UAB
,
304451562
, PVM k. LT100010700618
Vilniaus m. sav. Vilniaus m. Žirmūnų g. 27
4,36 mln. € / 531 tūkst. €
|
Azazel, MB
,
305918129
Kaunas Chemijos g. 27C-62
147 € / -306 €
|
AJERAS, UAB
,
120025478
, PVM k. LT200254716
Vilniaus m. sav. Vilniaus m. S. Stanevičiaus g. 21A
13,3 mln. € / 3,24 mln. €
|
Aminera, UAB
,
304632954
, PVM k. LT100011470413
Klaipėdos r. sav. Sendvario sen. Gindulių k. Medaus g. 9
1,07 mln. € / -20,6 tūkst. €
|
Bosopa, UAB
,
303130379
, PVM k. LT100008059219
Šiaulių m. sav. Šiaulių m. Vytauto g. 56-27
189 tūkst. € / 4,69 tūkst. €
|
P projektas, UAB
,
305656577
, PVM k. LT100013551010
Gintaro Įlankos g. 16, Neringos m., Neringos sav. 93102
-9,91 tūkst. €
|
V. Kuncevičiūtės IĮ "Šonetė"
,
135854157
, PVM k. LT100000861410
Žeimenos g. 74-4, Kauno m., Kauno m. sav. 49232
202 tūkst. € / 2,16 tūkst. €
|
Komodai, MB
,
304953248
Ukmergės g. 36-4, Kauno m., Kauno m. sav. 49244
|
Klaipėdos apskrities dailininkų sąjunga
,
193424916
Klaipėdos m. sav. Klaipėdos m. Tomo g. 20-3
|
Donrasta, UAB
,
304168653
Klaipėdos r. sav. Gargždų m. Žemaitės g. 15
|
IT Laikas, MB
,
305550008
Trumpoji g. 14B, Pailių k., Šiaulių kaimiškoji sen., Šiaulių r. sav. 80183
6,57 tūkst. € / 2,86 tūkst. €
|
Moller Auto Keturi žiedai, UAB
,
224234070
, PVM k. LT242340716
Vilniaus m. sav. Vilniaus m. Ukmergės g. 252
20 mln. € / 747 tūkst. €
|
Top Fasssauna & Badefass, MB
,
305823791
Vilnius Eduardo Andrė g. 14-5
17,3 tūkst. € / 17,3 tūkst. €
|
Testdalys, MB
,
305921698
, PVM k. LT100014470712
Kauno r. sav. Alšėnų sen. Girininkų II k. Vėjo g. 4
9,18 tūkst. € / 3,72 tūkst. €
|
Tunstatas, UAB
,
304607463
, PVM k. LT100011117710
Šalčininkų r. sav. Tartoko k. Sodų g. 13
98 tūkst. € / -7,19 tūkst. €
|