Prikazi cijelu temu 08.07.2013 12:17
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Lokacija:Osijek


Predmet:Re: Brojevi otpremnica/Prijemnica
Citiraj tona035:
Evo neÅ¡to sam dodao u tvoj obračun pÅ¡enice .To bi bio rezultat .
Bilo bi dobro da objasniš što si dodao i zašto, da ne moramo to tražiti na tvom primjeru.
Uočio sam da si u SQL koji je Record Source forme frmObracunPsenice dodao tblVlage. Ovo nije potrebno jer sam ti rekao da sam napisao funkcije
PreuzmiIzvorni kôd (vbnet):
  1. Function KorekcijaVlage(IntVlaga As Integer) As Single
  2. Dim KorV As String
  3. If IntVlaga = 0 Then
  4. KorekcijaVlage = 0
  5. Else
  6. Select Case Me.Sifra
  7. Case 1
  8. KorV = "KV_Jecam"
  9. Case 2
  10. KorV = "KV_Kukuruz"
  11. Case 3
  12. KorV = "KV_Psenica"
  13. Case 4
  14. KorV = "KV_Psenica"
  15. Case 5
  16. KorV = "KV_Psenica"
  17. Case 6
  18. KorV = "KV_Psenica"
  19. Case 7
  20. KorV = "KV_Psenica"
  21. Case 8
  22. KorV = "KV_soja"
  23. Case 9
  24. KorV = "KV_Suncokret"
  25. End Select
  26.  
  27. KorekcijaVlage = DLookup(KorV, "tblVlage", "Vlaga=" & IntVlaga)
  28. End If
  29. End Function
i još:
PreuzmiIzvorni kôd (vbnet):
  1. Function KoefObracuna(IntVlaga As Integer) As Single
  2. Dim KoefO As String
  3. If IntVlaga = 0 Then
  4. KoefObracuna = 0
  5. Else
  6. Select Case Me.Sifra.Column(2)
  7. Case 1
  8. KoefO = "KO_Jecam"
  9. Case 2
  10. KoefO = "KO_Kukuruz"
  11. Case 3
  12. KoefO = "KO_Psenica"
  13. Case 4
  14. KoefO = "KO_soja"
  15. Case 5
  16. KoefO = "KO_Suncokret"
  17. Case 6
  18. KoefO = "KO_Repa"
  19.  
  20. End Select
  21. KoefObracuna = DLookup(KoefO, "tblVlage", "Vlaga=" & IntVlaga)
  22. End If
  23. End Function
Rezultat ovih funkcija je da pronađu konkretnu vrijednost u tblVlage na temelju izabranog proizvoda.
Pronađeni rezultat se pojavljuje u textBoxovima txtKorVL i txtKoefObr pa ti zbog toga ne trebaju KV_Psenica i KO_Psenica koje si ti dodao.
I konačno, trebao bi nam objesniti terminologiju naziva.U primjeru za obračun koji si priložio prije u postu br 37 imamo vrijednosti a, b, c i d, i onda opet K1; K2; K3.
sada u ovom primjeru imaÅ¡ Obračun primjese pÅ¡.; Obračun Hektolitara; obračun vlage pÅ¡.
šat je tu šta.

Citiraj tona035:
Predlažem da za sada ne idemo na druge obračune nego da se fokusiramo na izbor podataka za ispis po godinama.
I čini mi se da opet brazaÅ¡. Treba prvo poÅ¡teno dizajnirati bazu i onda ići dalje. Ti uopće ne komentirap dali ti odgovara ovo Å¡to smo do sada napravili, Å¡to se tiće brojeva dokumenata i ostalo.
Pozdrav