iCentar » Forum » Racunari i oprema » Programirannje i baze podataka » Access

iCentar → Racunari i oprema → Programirannje i baze podataka → Access

Pretrazi
Tim
Registriraj se
Vazni alati
Razno. veze
- Oznaci forume kao procitane
- Smjernice
Aktivne teme ...
- u posljednja 24 sata
- od moje posljednje posjete
Vijesti (RSS, ...)
- RSS 2.0
- RSS 1.0
- OPML
- Klipfolio
- Atom 1.0
Prijavi se

Opcije teme

Stranice (5):1,2,3,4,5

#21

05.05.2012 11:48

zxz

Administrator

Registrovan od:03.02.2009
Postovi:10,612

Predmet:Re: Radni nalog na osnovu dnevnog prometa

OK napravit cu proceduru da ubacuje podatke tamo.

PodrÅ¡ka samo putem foruma, jer samo tako i ostali imaju koristi od toga.

#22

05.05.2012 15:36

Amelasar

Clan

Registrovan od:07.04.2011
Postovi:263

Predmet:Re: Radni nalog na osnovu dnevnog prometa

Hvala zxz.

Pozdrav, Amela

#23

06.05.2012 11:28

zxz

Administrator

Registrovan od:03.02.2009
Postovi:10,612

Predmet:Re: Radni nalog na osnovu dnevnog prometa

Evo Procedura.
Opet napominjem da je ovo ludost sto radis.
Ovo je ono kada od kobasice hoces napraviti bika.
Procedura ce raditi dobro ukoliko su procenti priblizno tacni i iznos tacan na osnovu kolicina.
Raskini vezu tblRadniNalog i TblradniNalogStavke te pobrisi podatkke iz njih i onda napravi RdniNalogID autonuber.
Poslije ponovo napravi relaciju i to sa kaskadnim brisanjem.

PreuzmiIzvorni kôd (Visual Basic):

Function RadniNalog(Datum As Date)
Dim Db As Database
Dim Rs1 As Recordset, Rs2 As Recordset
Dim SQL As String, DatumS As String
Dim Suma As Currency, K As Currency, Ostatak As Currency
Dim ID As Integer
Dim Iznos As Single, Procenat As Single, Cijena As Single
Dim BrKomada As Integer
DoCmd.SetWarnings False
DatumS = Format(Datum, "mm-dd-yyyy")
SQL = "SELECT Sum( Razduzenje) AS Suma FROM tblPromet " _
& "WHERE DatumK=#" & DatumS & "#"
Set Db = CurrentDb
Set Rs1 = Db.OpenRecordset(SQL)
Suma = Rs1!Suma
Rs1.Close
SQL = "SELECT * FROM TblRadniNalog WHERE Datum=#" & DatumS & "#"
Set Rs1 = Db.OpenRecordset(SQL)
If Rs1.RecordCount > 0 Then
Dim R As String
R = MsgBox("Za datum:" & Datum & vbCrLf & "Nalog vec postoji." & vbCrLf _
& "Hoete eli da uradite ponovo? ", _
vbYesNo + vbExclamation + vbApplicationModal + vbDefaultButton1, "NAPOMENA")
If R = vbYes Then
SQL = "DELETE * FROM TblRadniNalog " _
& "WHERE Datum=#" & DatumS & "#"
DoCmd.RunSQL (SQL)
ElseIf vbNo Then
Rs1.Close
GoTo Izlaz:
End If
End If
Rs1.AddNew
Rs1!Datum = Datum
ID = Rs1!RadniNalogID
Rs1.Update
Rs1.Close
SQL = "SELECT * FROM tblArtikli ORDER BY MPC DESC"
Set Rs1 = Db.OpenRecordset(SQL)
Set Rs2 = Db.OpenRecordset("TblRadniNalogStavke")
Do While Not Rs1.EOF
Procenat = Rs1!ProcenatIsk
Cijena = Rs1!MPC
Iznos = Suma * Procenat + Ostatak
K = Iznos / Cijena
BrKomada = K
Ostatak = K - BrKomada
Unos:
Rs2.AddNew
Rs2!RadniNalogID = ID
Rs2!PC = Rs1!PC
Rs2!ArtikalID = Rs1!ArtikliID
Rs2!NazivArtikla = Rs1!NazivArtikla
Rs2!JedMjere = Rs1!JedMjere
Rs2!Kolicina = BrKomada
Rs2!VrstaPekProizv = Rs1!VrstaPekProizv
Rs2!PodvrstapekProizv = Rs1!PodvrstapekProizv
Rs2!TezinaGotProizvoda = Rs1!TezinaGotProizvoda
Rs2!VrstaUtrBrasna = Rs1!VrstaUtrBrasna
Rs2!KolicinaUtrBrasna = Rs1!KolicinaUtrBrasna * BrKomada
Rs2.Update
Rs1.MoveNext
Loop
Izlaz:
DoCmd.SetWarnings True
Exit Function
Kraj:
End Function

U tabeli tblRadniNalogStavke ne trebaju ti sva ona silna polja jer ih imas u TblArtilli.
Potrebno je samo:
RsdniNalogID
ArtikalID
Klicina
KolicinaUtrosenogBrasna

PodrÅ¡ka samo putem foruma, jer samo tako i ostali imaju koristi od toga.

#24

06.05.2012 18:24

Amelasar

Clan

Registrovan od:07.04.2011
Postovi:263

Predmet:Re: Radni nalog na osnovu dnevnog prometa

Probala sam. Ovo je super uradjeno ali i dalje ne dobivam konacno rjesenje. Uvijek postoji razlika <1. Nekad 0.45, 0.55, 0.05, itd.

Mozda trebam na neki poseban nacin postaviti procente?

Hvala puno zxz.

Pozdrav, Amela

#25

06.05.2012 18:32

zxz

Administrator

Registrovan od:03.02.2009
Postovi:10,612

Predmet:Re: Radni nalog na osnovu dnevnog prometa

Hehe nije to do procenata samo.
Kao sto sam napomenuo nemoguce je to matematicki rijesiti ali eto moze se od prilike nabosti.
Prva stvar je to bar sto si ti napisala u bazi je potpuno netacno.
Ako pogledas cijene same:
napr. imas cijenu 1.30 i cijenu 0.25 a ukupan iznos 200.
Nemoguce je dobiti iznos sa bilo kojim brojem komada ova 2 artikla.
Naveo sam. Sto su procenti pricizniji i iznos tacniji tacnije ce izbacivati, mada je ovo potpuna ludost.
Ja neznam cijelu pricu sta hoces da napravis ali sam siguran da ces sve vise zapadati u probleme.

PodrÅ¡ka samo putem foruma, jer samo tako i ostali imaju koristi od toga.

#26

06.05.2012 18:41

Amelasar

Clan

Registrovan od:07.04.2011
Postovi:263

Predmet:Re: Radni nalog na osnovu dnevnog prometa

Znam da je ludost ali mi je takvo nesto potrebno jer se trebaju za 2 godine unazad uraditi radni nalozi. To je 730 radnih naloga po 30-50 artikala. Za svaki dan vec postoji promet iz fiskalne kase koji se ne moze mijenjati.

Hvala ti na pomoci zxz.

Pozdrav, Amela

#27

06.05.2012 19:36

Amelasar

Clan

Registrovan od:07.04.2011
Postovi:263

Predmet:Re: Radni nalog na osnovu dnevnog prometa

Uradila sam funkciju koja cita promet iz tblPrometMP i kreira radne naloge za dane za koje nisu napravljeni:

PreuzmiIzvorni kôd (Text):

Function UradiRN()
Dim strSQL As String
Dim rst As DAO.Recordset
strSQL = "SELECT * FROM QPrometMPzaRadniNalog"
Set rst = CurrentDb.OpenRecordset(strSQL)
rst.MoveFirst
Do Until rst.EOF
RadniNalog (rst!DatumK)
rst.Edit
rst!Knjizen = -1 ' Knjizi sa yes
rst.Update
rst.MoveNext
Loop
rst.Close
End Function

Pozdrav, Amela

Ovaj post je ureden 1 puta. Posljednja izmjena 06.05.2012 19:37 od strane Amelasar.

#28

06.05.2012 21:51

Amelasar

Clan

Registrovan od:07.04.2011
Postovi:263

Predmet:Re: Radni nalog na osnovu dnevnog prometa

Dodala sam i ovaj dio tako da mi RadniNalogID ne mora biti autonumber:

Rs1!RadninalogID = DMax("RadninalogID", "tblRadniNalog") + 1
Jedino mi je problem sto u tabeli moram otvoriti RN broj nula.

Pozdrav, Amela

#29

06.05.2012 22:12

zxz

Administrator

Registrovan od:03.02.2009
Postovi:10,612

Predmet:Re: Radni nalog na osnovu dnevnog prometa

Eh ja sam u proceduri napravio kao da je autonuber.
Bitno je da su povezane kako sam rekao ako hoces da brise i detalje.
Taj kod mozes dodati i u onu moju proceduru ili ako hoces da ti napravim novu proceduru za dodavanje novog naloga.

PodrÅ¡ka samo putem foruma, jer samo tako i ostali imaju koristi od toga.

#30

06.05.2012 22:27

Amelasar

Clan

Registrovan od:07.04.2011
Postovi:263

Predmet:Re: Radni nalog na osnovu dnevnog prometa

To sad ovako izgleda:

PreuzmiIzvorni kôd (Text):

Function RadniNalog(Datum As Date)
Dim Db As Database
Dim Rs1 As Recordset, Rs2 As Recordset
Dim SQL As String, DatumS As String
Dim Suma As Currency, K As Currency, Ostatak As Currency
Dim ID As Integer
Dim Iznos As Single, Procenat As Single, Cijena As Single
Dim BrKomada As Integer
DoCmd.SetWarnings False
DatumS = Format(Datum, "mm-dd-yyyy")
SQL = "SELECT Sum( Razduzenje) AS Suma FROM tblPrometMP " _
& "WHERE DatumK=#" & DatumS & "#"
Set Db = CurrentDb
Set Rs1 = Db.OpenRecordset(SQL)
Suma = Rs1!Suma
Rs1.Close
SQL = "SELECT * FROM TblRadniNalog WHERE Datum=#" & DatumS & "#"
Set Rs1 = Db.OpenRecordset(SQL)
If Rs1.RecordCount > 0 Then
Dim R As String
R = MsgBox("Za datum:" & Datum & vbCrLf & "Nalog vec postoji." & vbCrLf _
& "Hoete eli da uradite ponovo? ", _
vbYesNo + vbExclamation + vbApplicationModal + vbDefaultButton1, "NAPOMENA")
If R = vbYes Then
SQL = "DELETE * FROM TblRadniNalog " _
& "WHERE Datum=#" & DatumS & "#"
DoCmd.RunSQL (SQL)
ElseIf vbNo Then
Rs1.Close
GoTo Izlaz:
End If
End If
Rs1.AddNew
Rs1!RadninalogID = DMax("RadninalogID", "tblRadniNalog") + 1
Rs1!Datum = Datum
ID = Rs1!RadninalogID
Rs1.Update
Rs1.Close
SQL = "SELECT * FROM tblArtikli ORDER BY MPC DESC"
Set Rs1 = Db.OpenRecordset(SQL)
Set Rs2 = Db.OpenRecordset("TblRadniNalogStavke")
Do While Not Rs1.EOF
Procenat = Rs1!ProcenatIsk
Cijena = Rs1!MPC
Iznos = Suma * Procenat + Ostatak
K = Iznos / Cijena
BrKomada = K
Ostatak = K - BrKomada
Unos:
Rs2.AddNew
Rs2!RadninalogID = ID
Rs2!PC = Rs1!PC
Rs2!ArtikalID = Rs1!ArtikliID
Rs2!NazivArtikla = Rs1!NazivArtikla
Rs2!JedMjere = Rs1!JedMjere
Rs2!Kolicina = BrKomada
Rs2!VrstaPekProizv = Rs1!VrstaPekProizv
Rs2!PodvrstapekProizv = Rs1!PodvrstapekProizv
Rs2!TezinaGotProizvoda = Rs1!TezinaGotProizvoda
Rs2!VrstaUtrBrasna = Rs1!VrstaUtrBrasna
Rs2!KolicinaUtrBrasna = Rs1!KolicinaUtrBrasna * BrKomada
Rs2.Update
Rs1.MoveNext
Loop
Izlaz:
DoCmd.SetWarnings True
Exit Function
Kraj:
End Function

A pozivam ovako:

PreuzmiIzvorni kôd (Text):

Function UradiRN()
Dim strSQL As String
Dim rst As DAO.Recordset
strSQL = "SELECT * FROM QPrometMPzaRadniNalog ORDER BY DatumK ASC" 'DESC
Set rst = CurrentDb.OpenRecordset(strSQL)
If rst.RecordCount > 0 Then
rst.MoveFirst
Do Until rst.EOF
RadniNalog (rst!DatumK)
rst.Edit
rst!Knjizen = True
rst.Update
rst.MoveNext
Loop
MsgBox "Podaci uspjesno obradjeni!", vbInformation
rst.Close
Else
MsgBox "Nema podataka za obradu!", vbInformation
End If
End Function

Voljela bih i to rjesiti. Mislim na taj pocetni record. Imam problema s tim i kad kreiram fakturu broj 1 = vise otpremnica pa kreiram jednu fakturu = posljednja +1.

Pozdrav, Amela

Stranice (5):1,2,3,4,5

Izvoz

Verzija za stampu

Srodne teme

Ko je online?

Aktivni clanovi:
nema clanova

Razno. veze

Aktivne teme ...

Vijesti (RSS, ...)

Kontakt

Sva vremena su GMT +02:00. Trenutno vrijeme: 11: 14 am.

Centar za edukaciju-BiH

Glavni meni

Forumi

Linkovi

iCentar → Racunari i oprema → Programirannje i baze podataka → Access

Srodne teme

Ko je online?

Prijavi se

Izdvojeno