Problem sa prosecnom cenomImam tabelu Kartica sa mnogim poljima od kojih su nam najbitnija za ovu temu polja ULAZ, IZLAZ i Trenutna cena (artikla), MedjuVred.
Naime preko SQL coda i VBA azuriram neko polje MedjuVred u tabeli kartica....
TO izgleda ovako:
DoCmd.RunSQL "UPDATE [kartica] SET [kartica].[ulaz] = [kartica].[ulaz] + '" & Kolicina & "' WHERE (([kartica].[SifraPr]=" & NazivPr & "));"
DoCmd.RunSQL "UPDATE [kartica] SET [kartica].[MedjuVred] = [kartica].[MedjuVred] + '" & UKUPNO & "' WHERE (([kartica].[SifraPr]=" & NazivPr & "));"
U prvoj funkciji kada unesemo kolicinu u formi Prijemnica to se dodaje u polje ulaz u tabeli kartica.
Drugi SQL izraz mi sluzi da mi se dodaje medjuvrednost u polje MedjuVred....
Npr. ako u magacin unesem 100 komada nekog artikla po jedinicnoj ceni od 10din, Tada mi npr. stanje u magacinu postaje 100 (ukoliko je prethodno bilo 0), a trenutna vrednost je 100x10 = 1000 din u magacinu....
Zatim unesemo ponovo taj isti artikal po nekoj drugoj prijemnici npr. 20 komada po jedinicnoj ceni 20din/kom unosimo vrednost para u magacin 20x20=400 din, Trenutna vrednost postaje 1000+400 din = 1400 din, a prosecna vrednost mog komada postaje 11.67 din. (Ovo smo dobili kada smo Trenutnu vrednost (1400din) podelili sa ukupnim stanjem tog artikla umagacinu (120kom) )!
Ovo mi je bitno jer kada se trebuje (izbacuje) iz magacina treba da se trebuje po toj prosecnoj ceni po jednom komadu a to je tih 11.67din.
Kako mogu da napisem neku funkciju koja cje mi automatski racunati tu prosecnu cenu i upisivati je u polje tabele "kartica" kako bi se trebovalo po toj prosecnoj ceni!
Nadam se da je neko razumeo sta sam hteo da pitam, jer ni sam sebe nisam razumeo kada sam procitao svoj post
Veseli pozdrav
Re: Problem sa prosecnom cenom