Novo

Forum kao aplikacija na telefonu

Dodajte forum na početni ekran i koristite ga kao aplikaciju, sa menijem na dnu ekrana.

Fakturisanje robe uz pomoc naziva artikla, a ne po sifri artikla

  • 8 odgovora
  • 7.836 pregleda

Najnovija ↓

Fakturisanje robe uz pomoc naziva artikla, a ne po sifri artikla 13.02.2007. u 18:08 · pre 240 meseci #1
Ovako, imao sam aplikaciju koja mi je sluzila za fakturisanje robe. Samo fakturisanje je tesko islo zato sto je bilo
na osnovu sifre proizvoda, a posto proizvoda ima puno bilo mi je neprakticno da ih trazim po sifri.
Hteo bih da to uradim pomocu naziva artikla u combo boxu, a ne po sifri.
Problem mi je sto ne znam kako da "kod" u qryFakturaDetalji subform ispravim da bude sve vezano za NazvivArtikla a ne za SifruArtikla.
Postavljam moj primer u kome se roba pretrazuje po sifri u combo boxu SifraArtikla.
Nadam se da sam ovaj moj problem jasno izlozio.
Ako neko zna neka mi pomogne!

Hvala!
Pozdrav svima!
Potpis
Bez muke nema nauke!!!
Re: Fakturisanje robe uz pomoc naziva artikla, a ne po sifri artikla 13.02.2007. u 18:23 · pre 240 meseci #2
Nesto ne mogu da uplodujem primer, ali cu ovako postaviti "kod" koji imam:
Option Compare Database
Option Explicit


Private Sub SifraArtikla_AfterUpdate()
'Moje polje (i kontrola na subformi) zove se SifraArtikla
'Prepisujemo cenu iz tblArtikli.CenaArtikla u tblFakturaIzlaza.CenaFakturisana
Me!FakturnaCijena = curKopirajCenu(Me!SifraArtikla)
Me!PDV = curKopirajPDV(Me!SifraArtikla)
Me!NazivArtiklaNaFakturi = curKopirajNazivArtikla(Me!SifraArtikla)
End Sub

Function curKopirajCenu(lngSifraArtikla As Long) As Currency
'Ova funkcija vraca cenu artikla iz tabele tblArtikli za zadatu sifru artikla
curKopirajCenu = DLookup("ProdajnaCena", "tblRepromaterijal", "SifraArtikla=" & lngSifraArtikla)
End Function

Function curKopirajPDV(lngSifraArtikla As Long) As Currency
'Ova funkcija vraca cenu artikla iz tabele tblArtikli za zadatu sifru artikla
curKopirajPDV = DLookup("[StopaPDV]", "tblRepromaterijal", "SifraArtikla=" & lngSifraArtikla)
End Function

Function curKopirajNazivArtikla(lngSifraArtikla As Long) As String
'Ova funkcija vraca cenu artikla iz tabele tblArtikli za zadatu sifru artikla
curKopirajNazivArtikla = DLookup("[NazivArtikla]", "tblRepromaterijal", "SifraArtikla=" & lngSifraArtikla)
End Function

U ovom kodu je sve vezano za sifru artikla, a ja ne znam sta sve treba izmeni da bi bilo povezano za Nazivom artikla!

Probacu malo kasnije da postavim primer mozda ce moci!
Pozdrav svima!
Potpis
Bez muke nema nauke!!!
Re: Fakturisanje robe uz pomoc naziva artikla, a ne po sifri artikla 13.02.2007. u 19:58 · pre 240 meseci #5
Postavio sam gore moj primer, pa ako neko moze neka pogleda!
Ja ne znam, ali verovatno neko zna da na slican nacin prepravi "kod" kao u mom primeru, samo umesto sifreartikla da bude vezano za naziv artikla!
Potpis
Bez muke nema nauke!!!
Re: Fakturisanje robe uz pomoc naziva artikla, a ne po sifri artikla 13.02.2007. u 21:17 · pre 240 meseci #6
Ti mozes na formi da napravis da se vidi naziv artikla, a u pozadini da bude sifra. Prouci help ili knjige, da vidis kako combo box moze da ima vrednost = Sifra, a da se u stvari na ekranu ili reportu vidi naziv. U tabelama koje koristis, sifra ti je verovatno ili PK ili deo PK, a naziv je - samo naziv. Mzoe da bude mnogo artikala koji se zovu 'pivo' ili 'keks' a da imaju razlicte sifre.

Nije dobra ideja da se u funkcije trpa naziv umesto sifre. Toliko je u stvari lose, da ako ti neko to i pokaze obrisacemo mu poruku :-)
Re: Fakturisanje robe uz pomoc naziva artikla, a ne po sifri artikla 14.02.2007. u 00:11 · pre 240 meseci #7

Ma znam ja da nije dobra ideja vezati se za naziv, ali mi samo nije jasno kako najlakse da dozovem odredjeni naziv artikla, mislio sam da to uradim kucanjem pocetka naziva kako bih stvorio uzi izbor tacnih naziva artikala.
Potpis
Bez muke nema nauke!!!
Prijavite se da biste odgovorili u ovoj temi.PrijavaRegistracija

Premeštanje teme