Sram me je ampak sem se po nekaj urnem delu opogumila prositi za pomoč.
Vem kako poknjižiti prejete račune za blago trgovini, vem kako poknjižiti blagajno, vem kako ...
Dobim TDR - na njem je nakupna vrednost - prodano blago in zaloga
poknjižim ga na 1107 (iztržki) / 762 (prihodek od prodaje) JA - NE?
Če ja - po katerem dokumentu knjižim razbremenjevanje zalog, da se mi zapira konto 663 ?
saj ne vem mogoče ko prespim ugotovim in bo enostavno, samo sedajle res rabim vašo pomoč
hvala vam:sad:
sram me je
Moderator: Mirko Zbačnik
Spoštovana Angelina.
Zakaj bi te bilo sram?
Nekoč sem imel iste probleme. Mislim da ni tako komlicirano.
Poglej.
Ko prejmes racun za nabavljeno blago, naredis kalkulacijo.
Trgovsko blago v skladišču mora imeti podatke o
-Nabavni vrednosti
-Trgovski marži
-Prodajni ceni
-Stopnji davka (DDV)
Tistega momenta, ko se blago proda, je potrebno navedeno popraviti.
Torej.
Nabavna vrednost + marža je vaša prodajna cena brez DDV, ki je vaš prihodek, ki je razviden iz izdanega računa.
Čisti prihodek ali dobiček od prodaje je v bistvu le marža. Zato se nabavna vrednost v tem primeru šteje kot strošek blaga in se evidentira (šteje) šele ob prodaji.
Nikar ne mesaj kontov blagajne ali TR. Tukaj gre predvsem za obremenitev in razbremenitev zalog. Namesto konta blagajne uporabi konto prihodkov.
Po katerem dokumentu knjižiš razbremenitev zalog?
Lahko ga imenujes kakor koli. Mogoce obračun prodaje. Vendar ne pozabi na marsikatere posebnosti kot so dani popusti itd.
Mogoce mimigrede, kako izgleda knjiženje prodaje napisano kot programska procedura .....
For i = 1 To Cikl
rsX.AddNew
rsX!Aop = iAop
rsX!Aop_obr = iAop_obr
rsX!Opis = iDobav
rsX!datum_npd = iDatum_npd
rsX!Datum_pre = iDatum_pre
rsX!St_tem = iSt_tem
rsX!Pozicija = iSt_dokum
rsX("Stev_dok") = iSt_rac
rsX("Opis") = "Prodaja / " & iSt_dokum
rsX!stanjeX = "1"
rsX!Datum_tem = DateSerial(Year(rsX!datum_npd), Month(rsX! datum_npd), 1)
If i = 1 Then
rsX!Konto = "1200" & Mid(iSi_firme, 3, 4)
rsX!Opis_Konta = "KRATKOROČNE TERJATVE " & iDobav
rsX!Debet = Kupec1200
rsX!Saldo = Kupec1200
End If
If i = 2 Then
rsX!Konto = "7702"
rsX!Opis_Konta = "PRIHODKI OD PRODAJE"
rsX!Kredit = Kupec1200 - DDV2600
rsX!Saldo = (Kupec1200 - DDV2600) * -1
End If
If i = 3 Then
rsX!Konto = "2600"
rsX!Opis_Konta = "KRATKOROČNE OBVEZNOSTI ZA IZSTOPNI DDV"
rsX!Kredit = DDV2600
rsX!Saldo = DDV2600 * -1
rsX!X = iSt_davka
rsX!Znesek = Kupec1200 - DDV2600
'rsX!Znesek = MaloprodajnaVrednost - ZnesekIstopnegaDDV
End If
If i = 4 Then
rsX!Konto = "6630"
rsX!Opis_Konta = "ZALOGA BLAGA V TRGOVINI Z VRAČUNANIM DDV"
rsX!Kredit = Bruto6630
rsX!Saldo = Bruto6630 * -1
End If
If i = 5 Then
rsX!Konto = "6640"
rsX!Opis_Konta = "VRAČUNANI DDV"
rsX!Debet = DDV6640
rsX!Saldo = DDV6640
End If
If i = 6 Then
rsX!Konto = "7100"
rsX!Opis_Konta = "STROŠKI BLAGA"
rsX!Debet = Stroski7100
rsX!Saldo = Stroski7100
End If
If i = 7 Then
rsX!Konto = "6690"
rsX!Opis_Konta = "MARŽA"
rsX!Debet = (Bruto6630 - DDV6640) - Stroski7100
rsX!Saldo = (Bruto6630 - DDV6640) - Stroski7100
End If
rsX.Update
Next
Torej!
7 vknjižb. Ali to vse knjižite peš kot bi se reklo ??????
Lep pozdrav !!!
Zakaj bi te bilo sram?
Nekoč sem imel iste probleme. Mislim da ni tako komlicirano.
Poglej.
Ko prejmes racun za nabavljeno blago, naredis kalkulacijo.
Trgovsko blago v skladišču mora imeti podatke o
-Nabavni vrednosti
-Trgovski marži
-Prodajni ceni
-Stopnji davka (DDV)
Tistega momenta, ko se blago proda, je potrebno navedeno popraviti.
Torej.
Nabavna vrednost + marža je vaša prodajna cena brez DDV, ki je vaš prihodek, ki je razviden iz izdanega računa.
Čisti prihodek ali dobiček od prodaje je v bistvu le marža. Zato se nabavna vrednost v tem primeru šteje kot strošek blaga in se evidentira (šteje) šele ob prodaji.
Nikar ne mesaj kontov blagajne ali TR. Tukaj gre predvsem za obremenitev in razbremenitev zalog. Namesto konta blagajne uporabi konto prihodkov.
Po katerem dokumentu knjižiš razbremenitev zalog?
Lahko ga imenujes kakor koli. Mogoce obračun prodaje. Vendar ne pozabi na marsikatere posebnosti kot so dani popusti itd.
Mogoce mimigrede, kako izgleda knjiženje prodaje napisano kot programska procedura .....
For i = 1 To Cikl
rsX.AddNew
rsX!Aop = iAop
rsX!Aop_obr = iAop_obr
rsX!Opis = iDobav
rsX!datum_npd = iDatum_npd
rsX!Datum_pre = iDatum_pre
rsX!St_tem = iSt_tem
rsX!Pozicija = iSt_dokum
rsX("Stev_dok") = iSt_rac
rsX("Opis") = "Prodaja / " & iSt_dokum
rsX!stanjeX = "1"
rsX!Datum_tem = DateSerial(Year(rsX!datum_npd), Month(rsX! datum_npd), 1)
If i = 1 Then
rsX!Konto = "1200" & Mid(iSi_firme, 3, 4)
rsX!Opis_Konta = "KRATKOROČNE TERJATVE " & iDobav
rsX!Debet = Kupec1200
rsX!Saldo = Kupec1200
End If
If i = 2 Then
rsX!Konto = "7702"
rsX!Opis_Konta = "PRIHODKI OD PRODAJE"
rsX!Kredit = Kupec1200 - DDV2600
rsX!Saldo = (Kupec1200 - DDV2600) * -1
End If
If i = 3 Then
rsX!Konto = "2600"
rsX!Opis_Konta = "KRATKOROČNE OBVEZNOSTI ZA IZSTOPNI DDV"
rsX!Kredit = DDV2600
rsX!Saldo = DDV2600 * -1
rsX!X = iSt_davka
rsX!Znesek = Kupec1200 - DDV2600
'rsX!Znesek = MaloprodajnaVrednost - ZnesekIstopnegaDDV
End If
If i = 4 Then
rsX!Konto = "6630"
rsX!Opis_Konta = "ZALOGA BLAGA V TRGOVINI Z VRAČUNANIM DDV"
rsX!Kredit = Bruto6630
rsX!Saldo = Bruto6630 * -1
End If
If i = 5 Then
rsX!Konto = "6640"
rsX!Opis_Konta = "VRAČUNANI DDV"
rsX!Debet = DDV6640
rsX!Saldo = DDV6640
End If
If i = 6 Then
rsX!Konto = "7100"
rsX!Opis_Konta = "STROŠKI BLAGA"
rsX!Debet = Stroski7100
rsX!Saldo = Stroski7100
End If
If i = 7 Then
rsX!Konto = "6690"
rsX!Opis_Konta = "MARŽA"
rsX!Debet = (Bruto6630 - DDV6640) - Stroski7100
rsX!Saldo = (Bruto6630 - DDV6640) - Stroski7100
End If
rsX.Update
Next
Torej!
7 vknjižb. Ali to vse knjižite peš kot bi se reklo ??????
Lep pozdrav !!!


