Aj probacu da ti objasnim uz ovo malo koda :
nadjemo zeljeni artikal u combo2 i popunimo textboxove (kolicina, rabat), ostali se automatski popune nakon obracunavanja u jednoj funkciji (cena osnovica, rabat iznos, pdv iznos itd...)
Zatim ovaj kod ispod prenese sve te vrednosti u ListView kontrolu zvanu STAMPA.
Code:
stampa.ListItems.Add(stampa.ListItems.Count + 1).Text = Text8.Text 'sifra
stampa.ListItems.Item(stampa.ListItems.Count).SubItems(1) = Combo2.Text 'naziv
stampa.ListItems.Item(stampa.ListItems.Count).SubItems(2) = "Kom" 'JM
stampa.ListItems.Item(stampa.ListItems.Count).SubItems(3) = CCur(Text6.Text) 'Kolicina
stampa.ListItems.Item(stampa.ListItems.Count).SubItems(4) = Format(CCur(Text9.Text), "0.00") 'Cena/JM
If Text4.Text = "" Or Text4.Text = " " Then
stampa.ListItems.Item(stampa.ListItems.Count).SubItems(5) = "0.00"
Else
stampa.ListItems.Item(stampa.ListItems.Count).SubItems(5) = Format(CCur(Text4.Text), "0.00")
End If
(ovo iznad je limitiranje greske jer se sve preracunava na KeyDown eventu)
stampa.ListItems.Item(stampa.ListItems.Count).SubItems(6) = Format(CCur(Text10.Text), "0.00") 'RabatIznos
stampa.ListItems.Item(stampa.ListItems.Count).SubItems(7) = Format(CCur(Text2.Text), "0.00") 'PDV Osnovica
stampa.ListItems.Item(stampa.ListItems.Count).SubItems(8) = "18" 'Stopa PDV
stampa.ListItems.Item(stampa.ListItems.Count).SubItems(9) = Format(CCur(Text5.Text), "0.00") 'Iznos PDV
stampa.ListItems.Item(stampa.ListItems.Count).SubItems(10) = Format(CCur(Text7.Text), "0.00") 'Ukupno
Zato sam napomenuo da trebam da napravim brdo label-ova i da se u zavisnosti od STAMPA.listitems.count te stavke iz Listviewa pojave na sledecoj formi zvanoj PAPIR :
Code:
sifra1.Caption = priprema.stampa.ListItems.Item(1).Text
Naziv1.Caption = priprema.stampa.ListItems.Item(1).SubItems(1)
jm1.Caption = priprema.stampa.ListItems.Item(1).SubItems(2)
kol1.Caption = priprema.stampa.ListItems.Item(1).SubItems(3)
cena1.Caption = priprema.stampa.ListItems.Item(1).SubItems(4)
rabat1.Caption = priprema.stampa.ListItems.Item(1).SubItems(5)
rabiznos1.Caption = priprema.stampa.ListItems.Item(1).SubItems(6)
osnovica1.Caption = priprema.stampa.ListItems.Item(1).SubItems(7)
stopa1.Caption = priprema.stampa.ListItems.Item(1).SubItems(8)
iznos1.Caption = priprema.stampa.ListItems.Item(1).SubItems(9)
ukupno1.Caption = priprema.stampa.ListItems.Item(1).SubItems(10)
tako da bi za sledeci red na 'papiru' trebalo da bude : sifra2, naziv2, jm2....
Code:
sifra2.Caption = priprema.stampa.ListItems.Item(2).Text
Naziv2.Caption = priprema.stampa.ListItems.Item(2).SubItems(1)
jm2.Caption = priprema.stampa.ListItems.Item(2).SubItems(2)
kol2.Caption = priprema.stampa.ListItems.Item(2).SubItems(3)
cena2.Caption = priprema.stampa.ListItems.Item(2).SubItems(4)
rabat2.Caption = priprema.stampa.ListItems.Item(2).SubItems(5)
rabiznos2.Caption = priprema.stampa.ListItems.Item(2).SubItems(6)
osnovica2.Caption = priprema.stampa.ListItems.Item(2).SubItems(7)
stopa2.Caption = priprema.stampa.ListItems.Item(2).SubItems(8)
iznos2.Caption = priprema.stampa.ListItems.Item(2).SubItems(9)
ukupno2.Caption = priprema.stampa.ListItems.Item(2).SubItems(10)
utopija, znam :)
sigurno postoji neki elegantniji nacin da se ovo odradi... nego, ko zna zna.. ko ne zna mora da pita :D