Sveiki,
ne PVM mokėtoja perka lengv.auto. Sąskaita su PVM. Jeigu būtume PVM mokėtojais PVM turėtume sumokėti, o kai ne PVM mokėtojai irgi? Ar visa suma su PVM galiu traukti į IT įsigijimo savik.?

Ačiū

Sveiki,

Kaip forminama komandiruotė akcininkui, ne įmonės darbuotojui? Dienpinigius juk mes jam neturime mokėti? O kaip dėl apvyvendinimo ir visu kitu islaidų patirtų komandiruotės metu?
Ačiū

Tai tada turėtume ir paskolos sutartį pasirašyti? O kaip su palūkanom? Jeigu beprocentinė paskola, tada VMI reikia palūkanas kažkokias mokėti. Visai neatsimėnu, tik žinau, kad kažkoks niuansas yra dėl tų beprocentinių paskolų buvo.

Sveiki,

Įmonei ( UAB) trūksta apyvartynių lėšų, savininko įnašas turi būti traktuojamas kaip paskola? Įmonė nauja, kol kas pajamų nėra, tik 1 darbuotojas, tai visi pinigiai už apmokėta akcijas išleisti DU apmokėjimui.
Kaip tą įnašą registruoti apskaitoje?

Ačiu

Sveiki,

Direktorius darbo reiklais pradėjo naudoti savo asmeninį numerį. SF yra jo vardu. PVM į atskaita dėti negaliu? O kaip su sąnaudom? Ar galiu dėti į leidžiamus?

Sveiki,
Ar visi iš karo prisijungėt? Bandau per nuorodą jungtis prie i.SAF, bet rašo " Prieiga negalima". T.y per nuorodą prisijungiu prie i.MAS, bet kai paspaudi i.SAF rašo negalima.
Ka daryti?

Sveiki, gal vis gi bus nuomonių :) ?

Sveiki,

Estijos įmonė parduoda lėktuvo bilietus LT apmok.asm. maršrutas: BY-RY ir RU-LT.
Ar LT apmok. asmeniui toks paslaugų įsigyjimas yra PVM objektas? Ar turiu deklaruoti pVM deklaracijoje?

Be to invoiso kaip ir neturiu, darbuotojas pirko internetu, pristate elektroninį bilietą.

Plz.help

Sveiki,

Patarkite kaip bus su PVM jeigu LT įmonė PVM mokėtoja teikia IT paslaugas ES fiziniam asmeniui ( neapmokestinamasis asmuo)?

Ačiū

Sveiki,
Prašau patarimo.... direktorius buvo komandiruotėje kartu su mūsų sub-kontraktoriu ( teikia mums IT paslaugas įvairiems projektams). Apmokėjo jo viešbutį ar galiu šitas išlaidas traktuoti kaip reprezentaciją ar tiesiog kaip įprastinės įmonės sąnaudas?
Kelionės tikslas projekto aptarimas su esamu ar naujų klientu. Sub-kontraktorius dalyvaus projekto įgyvendinime.

Ačiū

Sveiki,

Noriu pasitikslinti, internetu pirkti bilietai, mokėta su įmonės kortelę, turiu el.bilietą ( rezervaciją), kur matosi kas , kur ir kiek kainavo. Pagal manę galiu traukti į komandiruotės sąnaudas.
Kaip Jūs manote?

Ačiū, supratau.

Sorry, bet dėl papildomo koeficiento nesupratau. Dirbo nuo 2015 08 05 iki 2016 04 04. įmonė dirba standartiškai 8 val. per dieną, 5 d.d per savaitė.

Sveiki, paaškinkite, prašau, žmogus dirba 1 val. per mėnesį, kaip dėl nepanaudotų atostogų kompensacijos? Kaip paskaičiuoti už kiek kompensuoti?

Ok, gal ir taip galima. Tiesiog, kažkada vmi mane taip konsultavo. Manau taip teisingiau daryti, tik su PVM vis tiek neaišku.

Sveiki,
Mūsų užsienio klientas paprašė apmokėti viena sąskaitą už paslaugas, o jie mums vėliau apmokės/kompensuos. Aš suprantu, kad man reikia, kad sąskaita būtų išrašyta mano įmonės vardu, o aš užsieniečiams išrašysiu invoisą išlaidų kompensacijai. Tik nesuprantu kaip dėl PVM. LT įmonė man išrašo su PVM ( 100+ 21), o aš užsieniečiams išrašau su 0,00 PVM. 100? ar 121?

Sveiki,
Prašau patarkit, kaip užsienetis gauna socialinio draudimo numerį? Turiu DS su užsienečių, asmens kodas užsienetiškas soc.numerio neturi, bet reikia įdarbinti.
Ačiū

labai ačiū, bet PC nustatymai tikrai neteisingi, LT raidžių nerodo, ženkliukai vietoj jų. Per regional settings pažiurėjau, ten LT nurodyta visur. Arba dar į kažką turėčiau atkreipti dėmesį.

taip, ten dar Litus į EUR reikia pakeisti, bandžiau, bet kreivai gaunasi.
Kodas toks:

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 LITŲ "
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ŪKSTANČIŲ "
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 = "LITŲ "
Case Else
Select Case v
Case "0"
r2 = "LITŲ "
Case "1"
r2 = "LITAS "
Case Else
r2 = "LITAI "
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 = "AŠTUONI Š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 = "AŠTUONIASDEŠ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

Sveiki,
Niekaip nerandu kodo aprašyti makrosą, kad dokumente galečiau rašyti sumą žodžiais, kuriuos radau rašo be lietuviškų raidžių. Pataisyti irgi nemoku
Prašau padėkit, įmeskite teisinga kodą.
Ačiū

Sveiki,
gal zinote kodėl išmeta klaidą? Forma su Rivile uzpildoma, pažiurėjau sodros puslapyje jinai eina nuo 2015 rugsėjo men. anksčiau problemų nebuvo, nesuprantu, kas per klaida.

Pateiktos FFData bylos struktūroje:
"1" puslapyje (tipas "SAM") laukų skaičius turi būti 31.
"1" puslapyje (tipas "SAM") trūksta laukų šiais pavadinimais: "Apdx2PageCount", "Apdx2PersonCount", "Apdx2InsIncomeSum", "Apdx2PaymentSum", "Apdx3PageCount", "Apdx3PersonCount", "Apdx3InsIncomeSum", "Apdx3PaymentSum", "ApdxPageCountTotal", "RevisedDocument", "RevisedCycleYear", "RevisedCycleQuarter", "RevisedCycleMonth".
"2" puslapyje (tipas "SAM3SD") laukų skaičius turi būti 72.
"2" puslapyje (tipas "SAM3SD") trūksta laukų šiais pavadinimais: "PageNumber", "PageTotal", "InsurerCode", "DocDate", "DocNumber", "RowNumber_1", "RowNumber_2", "RowNumber_3", "RowNumber_4", "RowNumber_5", "RowNumber_6", "RowNumber_7", "RowNumber_8", "RowNumber_9", "InsIncomePage", "PaymentPage".

Ačiū :)

Sveiki,

Mano direktorius vienam darbuotojui sumokėjo DU uz 12 mėn per gruodį, bet neteisinga sumą, permokėjo. Kaip turėčiau deklaruoti? Pagal faktą kiek išmokėta?
Patogiau aišku būtų pagal priskaitymą, nes ka metinę deklaracija darai sutikrini pagal 12 mėn priskaitymus.

Taip vakar dariau, padariau kopija, o kas po to? Spaudžiu taisyti ir nieko.
Dabar dar karta pabandžiau padaryti, tai langas kur nurodomas kelias kur saugoti atsarginę kopiją neaktyvus.

Niemand, patarkit, plz

Sveiki,
Po atnaujinimo vedant pardavimo SF, meta kaidą :

Klaida transakcijoje vykdant SQL sakinį [INSERT INTO sfd(SF_ID, Rusis, P_ID, Preke, NameAltLng, Kiekis, Kaina, SumOriginal, Tar, SumVatOriginal, UnitValueLTL, SumLTL, SumVatLTL, Discount, DiscountLTL, DiscountVat, DiscountVatLTL, Vnt, MeasureUnitAltLng, P_Sas, A_Sas, AccountDiscount, IncludeVatInObject, VatIsVirtual) VALUES(?AB, ?AC, ?AD, ?AE, ?AF, ?AG, ?AH, ?AI, ?AJ, ?AK, ?AL, ?AM, ?AN, ?AO, ?AQ, ?AP, ?AR, ?AT, ?AU, ?AV, ?AW, ?BA, ?BB, ?BC);], Params: ?AB=41; ?AC=0; ?AD=0; ?AE=priežiūra; ?AF=; ?AT=vnt; ?AU=; ?AG=2; ?AH=28,96; ?AI=57,92; ?AJ=21; ?AK=12,16; ?AL=28,96; ?AM=57,92; ?AN=12,16; ?AO=0; ?AQ=0; ?AP=0; ?AR=0; ?AV=505; ?AW=4484; ?BA=0; ?BB=0; ?BC=0;
Klaidos turinys: 'Klaida vykdant SQL komandą: [INSERT INTO sfd(SF_ID, Rusis, P_ID, Preke, NameAltLng, Kiekis, Kaina, SumOriginal, Tar, SumVatOriginal, UnitValueLTL, SumLTL, SumVatLTL, Discount, DiscountLTL, DiscountVat, DiscountVatLTL, Vnt, MeasureUnitAltLng, P_Sas, A_Sas, AccountDiscount, IncludeVatInObject, VatIsVirtual) VALUES(?AB, ?AC, ?AD, ?AE, ?AF, ?AG, ?AH, ?AI, ?AJ, ?AK, ?AL, ?AM, ?AN, ?AO, ?AQ, ?AP, ?AR, ?AT, ?AU, ?AV, ?AW, ?BA, ?BB, ?BC);], Params: ?AB=41; ?AC=0; ?AD=0; ?AE=priežiūra; ?AF=; ?AT=vnt; ?AU=; ?AG=2; ?AH=28,96; ?AI=57,92; ?AJ=21; ?AK=12,16; ?AL=28,96; ?AM=57,92; ?AN=12,16; ?AO=0; ?AQ=0; ?AP=0; ?AR=0; ?AV=505; ?AW=4484; ?BA=0; ?BB=0; ?BC=0;
Klaidos turinys: 'Unknown column 'VatIsVirtual' in 'field list''.'.

Sveiki,

Prasau patarkit ar gerai galvoju. Turiu saskaita israsyta USD ir EUR, klientas apmoka EUR. Bet saskaitoje kursas apvalintas, todel suma EUR kiek skiriasi. Neprisiprasysiu, kad man perrasytu sta invoisa, galvoju paprasciausiai EUR tik pajamuosiu ir tiek, nes kitaip man programoje del valiutu perskaiciavimo bus problemu.
Apskaita vistiek vedame EUR, deklaruojame EUR, klientas apmokejo irgi EUR.

Ačiū labai

Sveiki,
Prašau padėkite rasti kaip avansinės apyskaitos formą išspausdinti? kiek suprantu tokia yra, bet nerandu.
Taip pat skolas nepavyksta sudengti. Yra likutis per likučių perkėlimą yra banko apmokėjimas, kaip sudengti?
Ačiū

Jau radau.