Prikazi cijelu temu 10.04.2011 14:25
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Baza za proizvodnju
Ovu proceduru kopiraju u tvoj modul Korisnicke.
PreuzmiIzvorni kôd (Visual Basic):
  1. Function Nabaviti(NabavnaK As Single, Stanje As Single)
  2.  
  3. If Stanje < 0 Then
  4. Nabaviti = NabavnaK
  5. Else
  6. Nabaviti = NabavnaK - Stanje
  7. End If
  8. End Function

U izvjestaju T_Transakcije dodaj jedno tekst polje i daj mu ime napr. Nabava
U control source ovok polja napisi:
=Nabaviti([Text12];Combo16.column(1))

U recordsource ovog izvjestaja upisi ovo:
PreuzmiIzvorni kôd (SQL):
  1. SELECT T_Transakcije.Sifra_Transakcije, T_Transakcije.SifraArtikla, T_Transakcije.Jed_M, SUM(T_Transakcije.Kolicina) AS Kolicina
  2. FROM T_Transakcije
  3. GROUP BY T_Transakcije.Sifra_Transakcije, T_Transakcije.SifraArtikla, T_Transakcije.Jed_M;

Poslijem sve izanaliziraj kako radi.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.