Predmet:Re: Presmetka DPH (DDV) , (PDV) vo cod so popust

---

Evo nadam se da ces se snaci ako ne onda mi posalji primjer ili setup.ini i ispisi u wordu ili Notepadu kako treba da izgleda rekapitulacija i jeli uvijek idu obadvije ili nekad jedna nekad druga.

Naslov procedure:
Function Smetka_Rekapitulacija(SmetkaBroj As Long, Optional Datum = Date)
...
SQLSmetkaStavki = "SELECT tblSmetki_Stavki.DDV, Sum([Ed_Cena]*[Kolicina]) AS BezPopusta," _
& " Sum([Ed_Cena]*[Kolicina]-[Popust]) AS SoDDV, Sum(tblSmetki_Stavki.Popust) AS pp_Popust," _
& " Sum([Ed_Cena]*[Kolicina]-[popust]/[Koeficient]) AS BezDDV," _
& " Sum(([Kolicina]*[Ed_Cena]-[popust])-([Ed_Cena]*[kolicina]-[popust])/[Koeficient]) AS dDDV" _
& " FROM tblTarifi INNER JOIN tblSmetki_Stavki ON tblTarifi.Tarifa = tblSmetki_Stavki.DDV" _
& " WHERE tblSmetki_Stavki.Smetka_Br =" & SmetkaBroj _
& " GROUP BY tblSmetki_Stavki.DDV"
...
SQL_DDV = "SELECT tblSmetki_Stavki.Stavka, tblSmetki_Stavki.DDV, Sum([Ed_Cena]*[Kolicina]) AS BezPopusta," _
& " Sum([Ed_Cena]*[Kolicina]-[Popust]) AS SoDDV, Sum(tblSmetki_Stavki.Popust) AS pp_Popust," _
& " Sum([Ed_Cena]*[Kolicina]-[popust]/[Koeficient]) AS BezDDV," _
& " Sum(([Kolicina]*[Ed_Cena]-[popust])-([Ed_Cena]*[kolicina]-[popust])/[Koeficient]) AS dDDV" _
& " FROM tblSmetki INNER JOIN (tblTarifi INNER JOIN tblSmetki_Stavki ON tblTarifi.Tarifa = tblSmetki_Stavki.DDV)" _
& " ON tblSmetki.ID_Smetka = tblSmetki_Stavki.Smetka_Br" _
& " WHERE tblSmetki.Data Between " & Datum & " And " & Datum + 1 AND tblSmetki.Storna=False _
& " GROUP BY tblSmetki_Stavki.Stavka, tblSmetki_Stavki.DDV" _
& " HAVING Sum([Ed_Cena]*[Kolicina]>0)"
end function

---