Novo

Forum kao aplikacija na telefonu

Dodajte forum na početni ekran i koristite ga kao aplikaciju, sa menijem na dnu ekrana.

  • 1 odgovor
  • 3.032 pregleda

Najnovija ↓

Problem sa prosecnom cenom 19.02.2005. u 00:43 · pre 264 meseca #1
Novi problem....

Imam 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
Potpis
Accommodation Belgrade |
Stočna hrana |
Srednja optičarska škola "Pašćan" |
Izrada sajtova, web i grafički dizajn
Re: Problem sa prosecnom cenom 19.02.2005. u 18:16 · pre 264 meseca #2
Problem resen:

Private Sub UKUPNO_Exit(Cancel As Integer)
If Kolicina = 0 Or IsNull(Kolicina) Then
MsgBox "UNETI KOLICINU KOJA SE UNOSI U MAGACIN !!!"
Kolicina.SetFocus
Exit Sub
End If
DoCmd.SetWarnings False
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 & "));"
DoCmd.RunSQL "UPDATE [kartica] SET [kartica].[TrCena] = (([kartica].[Kolicina]*[kartica].[NabCena])+[kartica].[MedjuVred]-[kartica].[MedjuOduz])/(([kartica].[kolicina]+[kartica].[ulaz])-[kartica].[izlaz])WHERE (([kartica].[SifraPr]=" & NazivPr & "));"

End Sub
Potpis
Accommodation Belgrade |
Stočna hrana |
Srednja optičarska škola "Pašćan" |
Izrada sajtova, web i grafički dizajn
Prijavite se da biste odgovorili u ovoj temi.PrijavaRegistracija

Premeštanje teme