Kasa (stampanje i problem sa load)

[ GazdaSale @ 08.06.2007. 12:57 ] @

E ovo ce verovatno rgdrajko znati :)

Pravim program kao kasa!

1.Hocu da kad se nesto izabere iz liste i klikne na dugme da se to stampa!
2.Imam problem sa onim load to list. Znaci kad unesem u listu i sacuvam i sledeci put otvorim program njega nema

Evo celog programa pa ako nadjete neke greske (verovatno ih ima...), vi ispravite.

[ Eurora3D Team @ 08.06.2007. 13:54 ] @

Sale imas program zakacen. U zipu je i Izmenjeno.txt da sa opisom izmena.
Pozdrav

[ GazdaSale @ 08.06.2007. 19:19 ] @

Ovo za ocene...maler...
Brate kad kliknem da se stampa on mi odstampa jednu malu nulu u uglu papira :)

To mi se desavalo i sa mojim kodom za stampanje...

[ Eurora3D Team @ 08.06.2007. 19:25 ] @

To je klasican primer / kod za stampanje

Ne verujem da je problem u kodu (ni u mom ni u tvom)
Pozdrav

Probaj npr Form1.PrintForm metod da vidis sta se desava

[ rgdrajko @ 08.06.2007. 22:58 ] @

Izmeni program za kasu tako da posle sifre dodas i cenu. Koristi MSFlexGrid za unosenje stavki umesto textboxa i listboxa bice mnogo jednostavnije, lepse i brze. Probaj sam, ako ne ide tu smo mi.

[ steve585 @ 09.06.2007. 07:07 ] @

Sale napravi bazu artikala.
Za pocetak je dovoljno da imas osnovne podatke:
ID, Broj_Artikla, Naziv_Artikla, EAN, Porezna_stopa

Potom napravi bazu racuna

Onda lagano izradi aplikaciju, nesto tipa:

Nekoliko TextBox-ova gdje bi npr. u jedan unosio broj artikla tako da kada ti duzina text polja bude iznosila odredjeni broj karaktera povuti ces iz baze podatke ostale podatke za taj artikl.

Potomtrebao bi dugme za stampu i proceduru za automatsko pohranjivanje racuna.

[ GazdaSale @ 09.06.2007. 08:25 ] @

Izvalio sam za stampac. Znaci ako ja obelezim prvi unos on stampa nulu, ako obelezim drugi unos on stampa 1, ako treci unos on 2 itd. To je onda greska u kodu....

Vasi predlozi su sjajni samo ja sam pocetnik tako da tesko ce to ici pogotovo sa bazom...

_{[Ovu poruku je menjao GazdaSale dana 09.06.2007. u 09:42 GMT+1]}

[ steve585 @ 09.06.2007. 08:57 ] @

To sto si pocetnik svakako nije olaksavajuca okolnost. Na kraju krajeva svi smo to nekada bili.
Saljem ti dio jednog primjera koji simulira kasu.
U paath kreiraj direktorij Baze. Te u taj direktorij postavi bazu podataka Fit.mdb

Prouci malo kod.

[ GazdaSale @ 09.06.2007. 12:50 ] @

Ali u folderu nema baze...

[ Eurora3D Team @ 10.06.2007. 03:25 ] @

Za stampanje , nisam video da je korisceno List2.Index a treba Printer.Print List2.Text
Zato ti je stampao brojeve.
Imas zakacen zip.
Pzdrav

[ steve585 @ 10.06.2007. 06:59 ] @

Postojeca baza ima cca 12 MB, te je stoga nisam htjeo prikaciti. Zelio sam da na osnovu podataka iz koda pokusas sam kreirati bazu podataka. Vidjeti cu ovih dana da ti posaljem bazu sa potrebnim tabelama za taj primjer.

[ GazdaSale @ 10.06.2007. 11:20 ] @

Ok kad okasic bazu skinucu je :) Ono za stampanje radi, ali meni je pala nova ideja kako bi racun kad se stampa izgledao lepse pa sam ispravio ali ne radi. Evo celog programa sa tim izmenama pa recite gde je greska!

_{[Ovu poruku je menjao GazdaSale dana 10.06.2007. u 13:02 GMT+1]}

[ Eurora3D Team @ 11.06.2007. 02:11 ] @

Nije ti stampao zato sto tekst u skrivenoj listi nije bio selektovan = ""
Greska1 u unosu formatiraj npr ovako (samo ispravi).

Code:

Private Sub cmdUnesiRacun_Click()
List3.Clear
Datum = txtDatum.Text
Valuta = Valuta.Text
Sifra = txtSifraRacun.Text
ImeArtikla = txtImeArtiklaRacun.Text
Kolicina = txtKolicina.Text
Cena = txtCena.Text
List2.AddItem "Datum: " & Datum & ", " & "Sifra: " & Sifra & ", " & "Ime Artikla: " & ImeArtikla & ", " & "Kolicina: " & Kolicina & ", " & "Cena: " & Cena & Valuta & "."
Valuta.Text = ""
txtSifraRacun.Text = ""
txtImeArtiklaRacun.Text = ""
txtKolicina.Text = ""
txtCena.Text = ""
List3.AddItem "Datum: " & Datum & ", " & "Sifra: " & Sifra & ", " & "Ime Artikla: " & ImeArtikla & ", " & "Kolicina: " & Kolicina & ", " & "Cena: " & Cena & Valuta & "."

'List3.AddItem "RAÈUN"
'List3.AddItem Form2.txtIme.Text
'List3.AddItem Datum
'List3.AddItem "Šifra: " & Sifra
'List3.AddItem ImeArtikla
'List3.AddItem "Kolièina: " & Kolicina
'List3.AddItem "Cena: " & Cena & Valuta
cmdSacuvajRacun_Click
End Sub

U click event vidljive List2 stavi donji kod da bi se selektovala i nevidljiva

Code:

Private Sub List2_Click()
List3.ListIndex = List2.ListIndex
End Sub

i promeni subrutinu za stampanje ovako

Code:

Private Sub cmdStampaj_Click()
On Error GoTo err
If List3.ListIndex = -1 Then Exit Sub 'Ako nije nista selektovano  u skrivenoj listi
      MsgBox "Sada æe poèeti štampanje zadnjeg raèuna koji ste izdali na vašem default štampaèu", vbInformation, "Information"
      Printer.Print Form1.List3.Text
      Printer.EndDoc
Exit Sub
err:
MsgBox err.Description
End Sub

Pozdrav

[ GazdaSale @ 11.06.2007. 09:49 ] @

Ovako!

Kada se obelezi drugi racun iz liste on prijavljuje gresku a, kada obelezim prvi on stampa ali sve u jednom redu... Ja sam namerno stavljao sve u drugi red kako bi bilo lepse! Namestio sam da posle svakog unosa izbrise lista tako da se moze stampati samo zadnji izdati racun (sto je mozda i bolje)

[ Eurora3D Team @ 11.06.2007. 14:35 ] @

Ok
Onda stavi u click event Liste 2 kod za obelezavanje prvog (i jedinog unosa) iz Liste3

Code:

Private Sub List2_Click()
On Error Resume Next
List3.ListIndex = 0
End Sub

ili stavi tu liniju posle koda koji dodaje tekst u List3 ako neces da uslov bude da mora prvo da se selektuje iz List2

Code:

List3.ListIndex = 0

[ GazdaSale @ 11.06.2007. 15:57 ] @

Ok ali gle
ako stavim

Code:
Private Sub List2_Click()
On Error Resume Next
List3.ListIndex = 0
End Sub

Onda stampa samo prvi red iz liste3

Sad jedino kad bi moglo da se namesti nesto ovako

Code:
Private Sub List2_Click()
On Error Resume Next
List3.ListIndex = 0,1,2,3,4,5,6
End Sub

[ Eurora3D Team @ 11.06.2007. 20:26 ] @

Ako hoces da stampas celu iskoristi onu funkciju sto sam ti dodao dole u dnu. Vidi moj zadnji post sa zakacenim zipom.
I pazi ovo
Ja sam namestio tamo da je ulazni parametar u subrutini objekat ListBox da bi mogao da je koristis za svaki list box.
nesto ovako

Code:

Private Sub StampajListBox(list as ListBox)
list.ListIntdex ....
.......

a ti si kasnije ovo jedno list u njoj promenio na List3 sto ce da napravi neke greske u njoj
Prekopiraj celu funkciju kako sam ti poslao u zadnjoj izmeni
Pozivas je StampajListBox(List3) (ne secam se kako se funkcija tacno zove)
za List3 List box
Pozdrav

[ GazdaSale @ 12.06.2007. 09:01 ] @

Ok samo mi nije jasno da li da je ostavim kao posebnu i na sta da je pozovem ili da je kopiram u kod za dugme....?

Evo ti program sa svim izmenama do sada pa ti vidi gde sta treba, jer te ne razumem!

[ Eurora3D Team @ 12.06.2007. 10:25 ] @

Zakacio sam izmenjen kod
Pozdrav

[ GazdaSale @ 14.06.2007. 10:22 ] @

Hvala svima!