trebala bi mi pomoć oko sređivanja koda oko zaključka dana za sve kase zasad radi recimo dobro kod koji sam dosad napisao al trebalo bi ga još malo popravit i doradit ovo je trenutni kod..
Code:
SQL = "SELECT sum(racun_artikli.cijena_u) AS cijena_ukupna, racuni.placeno AS Placeno, racuni.blagajna AS blagajna, SUM((racun_artikli.cijena * racun_artikli.kolicina + racun_artikli.povratna_naknada) * racun_artikli.pdv) AS PDV" & _
" FROM racuni LEFT JOIN racun_artikli ON racun_artikli.racun_broj=racuni.racun_broj" & _
" WHERE DAY(racuni.Datum) = " & dan & " AND MONTH(racuni.Datum) = " & mjesec & " AND YEAR(racuni.Datum) = " & godina & _
" GROUP BY racuni.blagajna, racuni.placeno"
conn.ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source = " & url & "\medijapos.mdb;Jet OLEDB:Database Password=medija5000;"
lbBlagajne.Items.Clear()
lbBlagajne.Items.Add("")
Try
conn.Open()
Try
myCommand.Connection = conn
myCommand.CommandText = SQL
myAdapter.SelectCommand = myCommand
myAdapter.Fill(myData)
''''''''''''''''''''''''''''''''
lbBlagajne.Items.Add("Zaključak dana: " & dan & "." & mjesec & "." & godina & ".")
lbBlagajne.Items.Add("**********************************")
Dim cijena1 As Object = "0"
Dim pdv1 As Object = "0"
Dim ukupna_cijena1 As Object = "0"
For Each red As DataRow In myData.Rows
Dim ukupna_cijena, pdv As Object
Dim broj As Integer
broj = red("blagajna")
ukupna_cijena = red("cijena_ukupna")
pdv = red("pdv")
ukupna_cijena1 = CObj(ukupna_cijena1) + CObj(red("cijena_ukupna"))
pdv1 = CObj(pdv1) + CObj(red("pdv"))
Dim cijena As String
cijena = FormatNumber(red("cijena_ukupna"), 2, , , TriState.False)
cijena1 = FormatNumber(ukupna_cijena1, 2, , , TriState.False)
pdv = FormatNumber(pdv, 2, , , TriState.False)
pdv1 = FormatNumber(pdv1, 2, , , TriState.False)
Dim placeno As String = red("placeno")
lbBlagajne.Items.Add("Blagajna " & broj)
lbBlagajne.Items.Add("Način Plačanja: " & placeno)
lbBlagajne.Items.Add("Promet: " & cijena & " kn")
lbBlagajne.Items.Add("PDV: " & pdv & " kn")
lbBlagajne.Items.Add("**********************************")
Next
lbBlagajne.Items.Add("")
lbBlagajne.Items.Add("Ukupni promet: " & cijena1 & " kn")
lbBlagajne.Items.Add("Ukupni pdv: " & pdv1 & " kn")
Catch myerror As OleDbException
MsgBox("There was an error reading from the database: " & myerror.Message)
End Try
SQL = "SELECT sum(racun_artikli.cijena_u) AS cijena_ukupna, racuni.placeno AS Placeno, racuni.blagajna AS blagajna, SUM((racun_artikli.cijena * racun_artikli.kolicina + racun_artikli.povratna_naknada) * racun_artikli.pdv) AS PDV" & _
" FROM racuni LEFT JOIN racun_artikli ON racun_artikli.racun_broj=racuni.racun_broj" & _
" WHERE DAY(racuni.Datum) = " & dan & " AND MONTH(racuni.Datum) = " & mjesec & " AND YEAR(racuni.Datum) = " & godina & _
" GROUP BY racuni.blagajna, racuni.placeno"
conn.ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source = " & url & "\medijapos.mdb;Jet OLEDB:Database Password=medija5000;"
lbBlagajne.Items.Clear()
lbBlagajne.Items.Add("")
Try
conn.Open()
Try
myCommand.Connection = conn
myCommand.CommandText = SQL
myAdapter.SelectCommand = myCommand
myAdapter.Fill(myData)
''''''''''''''''''''''''''''''''
lbBlagajne.Items.Add("Zaključak dana: " & dan & "." & mjesec & "." & godina & ".")
lbBlagajne.Items.Add("**********************************")
Dim cijena1 As Object = "0"
Dim pdv1 As Object = "0"
Dim ukupna_cijena1 As Object = "0"
For Each red As DataRow In myData.Rows
Dim ukupna_cijena, pdv As Object
Dim broj As Integer
broj = red("blagajna")
ukupna_cijena = red("cijena_ukupna")
pdv = red("pdv")
ukupna_cijena1 = CObj(ukupna_cijena1) + CObj(red("cijena_ukupna"))
pdv1 = CObj(pdv1) + CObj(red("pdv"))
Dim cijena As String
cijena = FormatNumber(red("cijena_ukupna"), 2, , , TriState.False)
cijena1 = FormatNumber(ukupna_cijena1, 2, , , TriState.False)
pdv = FormatNumber(pdv, 2, , , TriState.False)
pdv1 = FormatNumber(pdv1, 2, , , TriState.False)
Dim placeno As String = red("placeno")
lbBlagajne.Items.Add("Blagajna " & broj)
lbBlagajne.Items.Add("Način Plačanja: " & placeno)
lbBlagajne.Items.Add("Promet: " & cijena & " kn")
lbBlagajne.Items.Add("PDV: " & pdv & " kn")
lbBlagajne.Items.Add("**********************************")
Next
lbBlagajne.Items.Add("")
lbBlagajne.Items.Add("Ukupni promet: " & cijena1 & " kn")
lbBlagajne.Items.Add("Ukupni pdv: " & pdv1 & " kn")
Catch myerror As OleDbException
MsgBox("There was an error reading from the database: " & myerror.Message)
End Try
kod vadi podatke iz 2 tablice:
racuni(id, datum, izdao, placeno, kartica, racun_broj, blagajna, Cijena_ukupna) podaci o računu
racun_artikli(id, kod, naziv, cijena, povratna_naknada, pdv,kolicina, cijena_u, kasa, racun_broj) svi artikli vezani za račun_broj
koristim ListBox da mi ispiše sve podatke iz baze ali nije baš pregledno jer za svaku kasu mi posebno ispisuje pa za svaku vrstu plačanja a htjeo bi još da se ubaci i koliko se platilo određenim karticama evo primjera sad mi ispisuje ovako:
Code:
Zaključak dana: 19.09.2009
**********************************
Blagajna 1
Način Plačanja: Gotovina
Promet: 1000 kn
PDV: 200 kn
**********************************
Blagajna 1
Način Plačanja: Kartica
Promet: 2000 kn
PDV: 300 kn
**********************************
Blagajna 2
Način Plačanja: Gotovina
Promet: 8000 kn
PDV: 600 kn
**********************************
Blagajna 2
Način Plačanja: Čekovi
Promet: 6000 kn
PDV: 500 kn
**********************************
Ukupni Promet 15000 kn
Ukunpni PDV 6840 kn
Zaključak dana: 19.09.2009
**********************************
Blagajna 1
Način Plačanja: Gotovina
Promet: 1000 kn
PDV: 200 kn
**********************************
Blagajna 1
Način Plačanja: Kartica
Promet: 2000 kn
PDV: 300 kn
**********************************
Blagajna 2
Način Plačanja: Gotovina
Promet: 8000 kn
PDV: 600 kn
**********************************
Blagajna 2
Način Plačanja: Čekovi
Promet: 6000 kn
PDV: 500 kn
**********************************
Ukupni Promet 15000 kn
Ukunpni PDV 6840 kn
a ja bi htjeo da ispisuje ovako:
Code:
Zaključak dana: 19.09.2009
**********************************
Blagajna 1
Gotovina: 1000 kn, PDV 200 kn
Kartica: 2000 kn, PDV 300 kn
- Diners: 600 kn
- American: 800 kn
- Maestro: 600 kn ( znači htjeo bi još dodati po vrsti kartica da mi ispiše cijenu u bazi imam tablicu"Kartice" gdje se spremaju naztivi kartica)
**********************************
Blagajna 2
Gotovina: 8000 kn, PDV 600 kn
Čekovi: 6000 kn, PDV 500 kn
**********************************
Ukupni Promet 15000 kn
Ukunpni PDV 6840 kn
Zaključak dana: 19.09.2009
**********************************
Blagajna 1
Gotovina: 1000 kn, PDV 200 kn
Kartica: 2000 kn, PDV 300 kn
- Diners: 600 kn
- American: 800 kn
- Maestro: 600 kn ( znači htjeo bi još dodati po vrsti kartica da mi ispiše cijenu u bazi imam tablicu"Kartice" gdje se spremaju naztivi kartica)
**********************************
Blagajna 2
Gotovina: 8000 kn, PDV 600 kn
Čekovi: 6000 kn, PDV 500 kn
**********************************
Ukupni Promet 15000 kn
Ukunpni PDV 6840 kn
molio bi vas za pomoć ili ako znate neki bolji način kako da to izvedem prihvačam sve prijedloge =)
pozz