Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Kasa (stampanje i problem sa load)

[es] :: Visual Basic 6 :: Kasa (stampanje i problem sa load)

[ Pregleda: 3642 | Odgovora: 19 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

GazdaSale
Beograd

Član broj: 134519
Poruke: 145
*.eunet.yu.



Profil

icon Kasa (stampanje i problem sa load)08.06.2007. u 12:57 - pre 204 meseci
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.

Prikačeni fajlovi
 
Odgovor na temu

Eurora3D Team
Nebojsa - Programer & Vodja tima
Beograd

Član broj: 120376
Poruke: 900
195.252.105.*



+7 Profil

icon Re: Kasa (stampanje i problem sa load)08.06.2007. u 13:54 - pre 204 meseci
Sale imas program zakacen. U zipu je i Izmenjeno.txt da sa opisom izmena.
Pozdrav
Prikačeni fajlovi
 
Odgovor na temu

GazdaSale
Beograd

Član broj: 134519
Poruke: 145
*.eunet.yu.



Profil

icon Re: Kasa (stampanje i problem sa load)08.06.2007. u 19:19 - pre 204 meseci
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...
 
Odgovor na temu

Eurora3D Team
Nebojsa - Programer & Vodja tima
Beograd

Član broj: 120376
Poruke: 900
195.252.105.*



+7 Profil

icon Re: Kasa (stampanje i problem sa load)08.06.2007. u 19:25 - pre 204 meseci
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
 
Odgovor na temu

rgdrajko
Beograd

Član broj: 117734
Poruke: 710
80.93.249.*



+3 Profil

icon Re: Kasa (stampanje i problem sa load)08.06.2007. u 22:58 - pre 204 meseci
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.
rgdrajko
 
Odgovor na temu

steve585
Stevan Stanić
Project Manager
Zagreb

Član broj: 131815
Poruke: 281
*.xnet.hr.



+1 Profil

icon Re: Kasa (stampanje i problem sa load)09.06.2007. u 07:07 - pre 204 meseci
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.
steve585
 
Odgovor na temu

GazdaSale
Beograd

Član broj: 134519
Poruke: 145
*.eunet.yu.



Profil

icon Re: Kasa (stampanje i problem sa load)09.06.2007. u 08:25 - pre 204 meseci
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]
 
Odgovor na temu

steve585
Stevan Stanić
Project Manager
Zagreb

Član broj: 131815
Poruke: 281
*.xnet.hr.



+1 Profil

icon Re: Kasa (stampanje i problem sa load)09.06.2007. u 08:57 - pre 204 meseci
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.
steve585
Prikačeni fajlovi
 
Odgovor na temu

GazdaSale
Beograd

Član broj: 134519
Poruke: 145
*.eunet.yu.



Profil

icon Re: Kasa (stampanje i problem sa load)09.06.2007. u 12:50 - pre 204 meseci
Ali u folderu nema baze...
 
Odgovor na temu

Eurora3D Team
Nebojsa - Programer & Vodja tima
Beograd

Član broj: 120376
Poruke: 900
195.252.105.*



+7 Profil

icon Re: Kasa (stampanje i problem sa load)10.06.2007. u 03:25 - pre 204 meseci
Za stampanje , nisam video da je korisceno List2.Index a treba Printer.Print List2.Text
Zato ti je stampao brojeve.
Imas zakacen zip.
Pzdrav
Prikačeni fajlovi
 
Odgovor na temu

steve585
Stevan Stanić
Project Manager
Zagreb

Član broj: 131815
Poruke: 281
212.15.177.*



+1 Profil

icon Re: Kasa (stampanje i problem sa load)10.06.2007. u 06:59 - pre 204 meseci
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.
steve585
 
Odgovor na temu

GazdaSale
Beograd

Član broj: 134519
Poruke: 145
*.eunet.yu.



Profil

icon Re: Kasa (stampanje i problem sa load)10.06.2007. u 11:20 - pre 204 meseci
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]
Prikačeni fajlovi
 
Odgovor na temu

Eurora3D Team
Nebojsa - Programer & Vodja tima
Beograd

Član broj: 120376
Poruke: 900
195.252.105.*



+7 Profil

icon Re: Kasa (stampanje i problem sa load)11.06.2007. u 02:11 - pre 204 meseci
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
 
Odgovor na temu

GazdaSale
Beograd

Član broj: 134519
Poruke: 145
*.eunet.yu.



Profil

icon Re: Kasa (stampanje i problem sa load)11.06.2007. u 09:49 - pre 204 meseci
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)
 
Odgovor na temu

Eurora3D Team
Nebojsa - Programer & Vodja tima
Beograd

Član broj: 120376
Poruke: 900
195.252.105.*



+7 Profil

icon Re: Kasa (stampanje i problem sa load)11.06.2007. u 14:35 - pre 204 meseci
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

 
Odgovor na temu

GazdaSale
Beograd

Član broj: 134519
Poruke: 145
*.eunet.yu.



Profil

icon Re: Kasa (stampanje i problem sa load)11.06.2007. u 15:57 - pre 204 meseci
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

 
Odgovor na temu

Eurora3D Team
Nebojsa - Programer & Vodja tima
Beograd

Član broj: 120376
Poruke: 900
195.252.105.*



+7 Profil

icon Re: Kasa (stampanje i problem sa load)11.06.2007. u 20:26 - pre 204 meseci
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
 
Odgovor na temu

GazdaSale
Beograd

Član broj: 134519
Poruke: 145
*.eunet.yu.



Profil

icon Re: Kasa (stampanje i problem sa load)12.06.2007. u 09:01 - pre 204 meseci
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!
Prikačeni fajlovi
 
Odgovor na temu

Eurora3D Team
Nebojsa - Programer & Vodja tima
Beograd

Član broj: 120376
Poruke: 900
195.252.105.*



+7 Profil

icon Re: Kasa (stampanje i problem sa load)12.06.2007. u 10:25 - pre 204 meseci
Zakacio sam izmenjen kod
Pozdrav
Prikačeni fajlovi
 
Odgovor na temu

GazdaSale
Beograd

Član broj: 134519
Poruke: 145
*.eunet.yu.



Profil

icon Re: Kasa (stampanje i problem sa load)14.06.2007. u 10:22 - pre 204 meseci
Hvala svima!
 
Odgovor na temu

[es] :: Visual Basic 6 :: Kasa (stampanje i problem sa load)

[ Pregleda: 3642 | Odgovora: 19 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.