Otplani plan prodaje opreme

Otplani plan prodaje opreme 25.05.2008. u 19:12 · pre 224 meseca #1

Pozdrav svima,

Pravim jednu bazu podataka u kojoj ce biti evidentirani podaci o prodaji opreme na leasing. Moj problem je slijedeći: Kada npr. unesem vrijednost leasinga 100,00 KM, broj rata 10, iznos rate 10,00 KM početek otplate. 01.01.2008. NA koji način da Accsess izračuna datum dospijevanja rata i upiše ga u tabelu.

NPR
RAta dospijeva

01.01.2008 iznos 10,00 KM Ostatak glavnice 90,00 KM
01.02.2008 iznos 10,00 KM Ostatak glavnice 80,00 KM itd do 31.12.2008

Re: Otplani plan prodaje opreme 26.05.2008. u 13:57 · pre 224 meseca #2

Probaj sa funkcijom

Code:
DateAdd("m", "brojRata", "datumLisinga")

Re: Otplani plan prodaje opreme 26.05.2008. u 15:48 · pre 224 meseca #3

Napravi tabelu tblBrojevi, koja ima tacno jednu kolonu - (RedniBroj, number ,integer) Tabela tblBrojevi treba da sadrzi brojeve od 1 pa nadalje, neki proizvoljno veliki broj rekorda. 10000 izgleda OK za svakodnevne potrebe. Ta se tabela moze iskoristiti za zadatke kakav si sebi postavio. Prvo, da napunimo tabelu brojevima: onda odes u Excel i napravis 1 do 10000. Cut/Paset u tabelu tblBrojevi.

Onda ne treba da pamtis uopste datume dospeca za svaki pojedinacni ugovor. Dovoljno je da imas u tabeli tblUgovori:
- ukupnu sumu
- iznos rate
- datum pocetka otplate,
- interval placanja kao "m","d","y". Ove skracenice su za mesec, dan i godinu i moraju odgovarati skracenicaam koje prihvata Access funkcija DateAdd

Onda uvek mozes da napise kveri koji ce da vrati 'plan otplate', ako pametno iskombinujes tabele tblBrojevi i tblUgovori.

Ovaj kveri ce ti dati plan otplate:

Code:

/* Powered by General SQL Parser (www.sqlparser.com) */

SELECT   tblUgovori.BrojUgovora,
         tblUgovori.UkupanIznos,
         tblUgovori.Rata,
         [UkupanIznos] / [Rata]                                 AS BrojRata,
         tblBrojevi.RedniBroj,
         tblUgovori.DatumPocetkaOtplate,
         DATEADD([interval],[RedniBroj],[DatumPocetkaOtplate])  AS DatumOtplate,
         [UkupanIznos] - [RedniBroj] * [Rata]                   AS Ostatak
FROM     tblUgovori,
         tblBrojevi
WHERE    (((tblBrojevi.RedniBroj) <= ([UkupanIznos] / [Rata])))
ORDER BY tblUgovori.BrojUgovora,
         tblBrojevi.RedniBroj;

Imas zakacen primer sa kreiranim tabelama i kverijem qryPlanoviOtplata.

:-)

Zidareva teorema: "The best code is no code at all"

PlanOtplate.zip66.08k

Re: Otplani plan prodaje opreme 27.05.2008. u 22:59 · pre 224 meseca #4

Prosto, jednostavno i učinkovito. Hvala

Forum kao aplikacija na telefonu

Srodne teme