[es] - Pomoć oko zaključka dana POS

Black One
Čepin

Član broj: 46302
Poruke: 102
*.adsl.net.t-com.hr.

Sajt: www.medija.org

+1 Profil

^{14.12.2009. u 10:11 - pre 174 meseci}

pozdrav svima
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

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

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

molio bi vas za pomoć ili ako znate neki bolji način kako da to izvedem prihvačam sve prijedloge =)
pozz

Odgovor na temu