White Man 22.03.2011 19:17
Predmet:Re: Baza za proizvodnju

Skinuo sam bazu i probao sam da napravim novi nalog ali mi prijavljuje gresku u code-u: I = Rs.Fields(0)
Da li treba nesto da ispravim ili? Hteo sam Vas pitati i za broj naloga jer na ovom prvom koji je vec bio unet broj je 0001 a kad sam hteo uneti sledeci izbacilo je broj N000002. Da li je greska zbog toga i sta treba da ispravim? Hvala unapred. Pozdrav

zxz 22.03.2011 19:42
Predmet:Re: Baza za proizvodnju

Ne ja sam napravio Kod za sifre.
Eto to je to sto smo preskocili dosta toga. Nismmo definisali sifre pa sam ja napravio kod da sam upisuje sifru.
kako si vidio svugdje sam ostavio i 9 polja za sifru. Znaci u aplikaciji treba predvidjeti da se sifre same unose gdje god je to moguce a ne da unosi korisnik.
U pravu si sto se tice greske. Nisam ja to poslije ni probao.
Kao sto sam naveo vjerovatno jos fali koda za generisanje sifri negdje.
Umjesto
I = Rs.Fields(0)
Upisi
I = Val(Mid(Rs.Fields(0), 2))
Trebalo bi ici po redu.
Treba napraviti formu operatora te u nju unijeti magacionere operatore u programu one koji zaduzuju itd.
Onda napraviti Formu artikala itd.
Znaci prvo idu forme od tabela koje imaju prefiks K_.
Kako si vidio kroz meni podize formu sa drugacijim bojama to rjesavas ovdje:

'------------------------------------Način otvaranja forme---------------------------------------------
--
Select Case Grupa
Case 1 'Forma samo za upis Nevidi heder forme
Set Frm = Forms(ImeO)
'Frm.FormHeader.Visible = False
With Frm
.RecordSelectors = False
.NavigationButtons = True
'.VrstaPID.Visible = False
.DataEntry = True
End With
Frm.Picture = "(none)"
Frm.InsideHeight = Frm.Detail.Height
'Frm.FormFooter.Height = 10
'Frm.FormHeader.Height = 0
Frm.Detail.BackColor = 14737890 ' boja
Frm.ScrollBars = 0
DoCmd.MoveSize 3500, 0 ' gdje ce se otvoriti

procedura otvori.

White Man 23.03.2011 10:27
Predmet:Re: Baza za proizvodnju

Ispravio sam gresku i sada prihvata unos narednog naloga. Ali je sada problem u formi F_IzlazRobe ne pokazuje stavke koje sam uneo u narednim nalozima. U combobox-u vidi redne brojeve naloga ali kada selektujem broj i kliknem na button unesi stavke ne reaguje. Dali je potreban neki drugi code i koji ako jeste? Ili, primetio sam da ste uklonili relacije izmedju tabela T_ulaz, T_Transakcije i T_IzlazRobe pa treba ponovo da ih povezem? I hteo sam Vas pitati, kako da ubacim u formu F_Izlaz robe, umesto cene ulaza i cene izlaza, kolicinu sirovine u magacinu? Jer u toj formi je potrebno samo: Redni broj, Sifra sirovine u magacinu, Naziv sirovine, Jedinica mere, Kolicina i Kolicina u Magacinu. Hvala unapred.
Pozdrav

zxz 23.03.2011 11:05
Predmet:Re: Baza za proizvodnju

Citat:
U combobox-u vidi redne brojeve naloga ali kada selektujem broj i kliknem na button unesi stavke ne reaguje
Nemogu da vjerujem. Kod mene to radi, evo ponovo sam probao.
Da nisi mozda promijenio ime tasteru ili nesto slicno ako nikako ne reaguje znaci i ne pokrece kod.
Netreba stavljati rell. vezu ionako nemozes unijeti nista drugo. veza je trebala samo radi lakseg pravljenja formi i razumijevanja.
Citat:
F_Izlaz robe, umesto cene ulaza i cene izlaza, kolicinu sirovine u magacinu?
Pa da ja sam pretpostavljao da ti cijene ne trebaju. Vjerovatno mislis na tabelu T_transakcije. Stanje robe se dobije racunski netreba ti polje.
A ove cijene mozes polja obrisati samo ce ti prijavljivati gresku sada u kodu pa cemo ispraviti.
Imas poolje negdje i ean_13 cini mi se ko je je predvidjeno za bar kod e sad neznam dali ti i ono treba.
Kao sto sam napomenuo trebalo je krenuti od kodnih tabela i prvo razmotriti svako polje pojedinacno dali treba ili ne pa napraviti forme.
Sada ces biti prinudjen da to u radu ispravljas a to je mnogo teze a i prave se greske.
Kada imas sifru sirovine imas i naziv.
Trebat ce tu jos jedna forma vjerovatno pri izlazu robe u kojoj ce prikazivati artikle izlaza odnosno sirovine prije nego sto se unesu stavke te se na njoj moze i postaviti stanje u magacinu za svaku stavku.
Nisam to htio napraviti jer znam da ce se mijenjati.

White Man 23.03.2011 15:50
Predmet:Re: Baza za proizvodnju

Napravio sam formu F_IzlazRobe kakva bi trebalo da izgleda ali ona ne funkcionis. Pa bih Vas zamolio da pogledate i pomognete mi kako da napravim da takva forma funkcionise. Forma bi trebalo da ima dve SUB forme u prvoj bi trebalo da su svi nalozi na listi koji su uneti a u drugoj ispod da kad kliknem na taj red u kojem je nalog koji zelim u SUB formi ispod prikaze sirovine iz tog naloga, koje su potrebe i prikaze u istoj stanje u magacinu. I potrebna mi je lager lista iz magacina. Ja sam pokusao da napravim u query-ju ali se nisam snasao. Pa bih Vas zamolio da mi pomognete. Hvala unapred. Pozdrav
Prilozi:
Baza.rar (Velicina datoteke:82.21 KB)

zxz 23.03.2011 16:22
Predmet:Re: Baza za proizvodnju

Neznam zasto ti treba za izlaz robe ponovo spisak proizvoda.
Magacin se ne bavi time. za magacin su samo bitne sirovine koje trebas izuzeti a spisak proizvoda imas u nalogu te isti mozes vidjeti jer se upisuje njegov broj u izlazu robe.
Netreba komplikovati jer onda spotije radi a mislim da nema potrebe.
Druga stvar sto bi unda u ulazu robe imao vise redova i iziskivalo bi izmjene odnosno jos jednu tabelu.
Imas opciju i u nalogu dali je realizovan ili ne, mozes dodati i opciju dali je materijal izuzet.

Ako ti to zelis tako nema problema ali cemo morati mijenjati tabele.
Stanje robe u magacinu je racunsko polje i to mozemo napraviti i moze se postaviti polje pored svake stavke izlaza i njeno stanje u magacinu.

White Man 23.03.2011 16:57
Predmet:Re: Baza za proizvodnju

Pa ime proizvoda sam mislio da stavimo jer bi olaksalo rad. Ako ima puno naloga, teze je snaci se kad nema ime proizvoda pored broja naloga. Ne znam da li smo se razumeli ali probacu ponovo. Potreban je ulaz i to smo napravili, specifikaciju proizvoda i to odlicno funkcionise u formi F_Proizvodi i nalog koji smo napravili je kakav sam mislio. E sad to bi trebalo da funkcionise kad unesemo robu u ulazni racu tj. u formu F_Ulaz roba bi trebala da se skladisti u magacin a kad u formi F_nalozi unesemo proizvod i kolicinu iz magacina bi trebalo da skine sirovine koje su potrebne za taj proizvod. A u formi F_IzlazRobe bi trebalo da budu prikazani nalozi koji su uneti i kad se klikne na neki od njih da prikaze stavke sirovina, kolicine i kolicine u magacinu. Dakle ta forma bi bila kao neki detaljniji prikaz u kojoj bi se moglo videti koliko je potrebno sirovina npr. za 10 stolica, koje su sirovine u pitanju i koliko ih imamo u magacinu. Nadam se da ste me malo bolje razumeli. Pa bih Vas zamolio da mi objasnite sta treba da uradim. Hvala puno unapred. Pozdrav

zxz 23.03.2011 17:13
Predmet:Re: Baza za proizvodnju

Gledaj da opet pomene ako hoces u izlazu robe popisati sve proizvode (koje vec imas popisane u nalogu) iz naloga onda ti treba jos jedna tabela jer na izlaz robe moze biti vise proizvoda odnosno bolje reci po jednom radnom nalogu mozes imati vise razlicitih proizvoda.
Da to gledamo kako u praksi radi.
Prvo napravimo radni nalog u kome popisemo stavke odnosno proizvode i broj komada tih proizvoda.
Svaka stavka se sastoji iz vise sirovina i to imamo.
Sada sa ovim nalogom idemo kod magacionera koga ama bas nista ne interesuju proizvodi.
On otvara izlaz robe i bira radni nalog na osnovu kojeg izda robu.
Naravno da ti mozes vidjeti u radnoom nalogu za koje proizvode uzimas materijal ali ako to sad hoces ponovo pribiljeziti pri izuzimanju iz magacina kako si ti napravio onda moras napraviti jos jednu tabelu istu kao sto imas kod stavki radnog naloga gdje ces prepisati stavke.
Ako bas hoces vidjeti po svaku cijenu te proizvode bolje je uvesti u ovu formu subformu od tabele T_stavkeN a tabelu ulaz robe ne dirati.

Kako si ti sada napravio je neizvodivo:
Imas polja:
Izlaz broj
Nalog broj
Ime proizvoda itd.

e vidis sad
Izlaz br je jedan pa i nalog je jedan a imena proizvoda ce biti obicno vise.
Jer po jednom nalogu imas vise proizvoda.
Znaci ispada da bi morao napraviti onoliko naloga koliko imas proizvoda jer broj naloga se nesmije ponavljati.

White Man 24.03.2011 11:49
Predmet:Re: Baza za proizvodnju

Izbrisao sam unete podatke i T tabela i uneo nove i nalog i kada sam usao u F_izlazRobe i kliknuo na dugme unesi stavke prijavilo mi je gresku u code-u: Rs2.MoveLast
Kako da ispravim ovo? I kako da umesto cena dodam stanje u magacinu? Hvala puno unapred. Pozdrav

zxz 24.03.2011 12:23
Predmet:Re: Baza za proizvodnju

U Formi F_TransakcijeSub Napravi jedan combo i neka se zove stanje.
U controlsource upisi SifraArtikla.
U rowsource upisi:
SELECT T_Transakcije.SifraArtikla, Sum(IIf([status]=1,[Kolicina],[Kolicina]*-1)) AS K FROM T_Transakcije GROUP BY T_Transakcije.SifraArtikla;

U columncoount upisi:2
ColumnWidthd:0cm;3cm
enabled:No
Locked:Yes
PreuzmiIzvorni kôd (Visual Basic):
  1. Function UnosUlza(NalogID As String, Izlaz_Br As String)
  2. Dim DB As Database
  3. Dim Rs1 As Recordset
  4. Dim Rs2 As Recordset
  5. Dim SQL As String
  6. Dim I As Integer
  7.  
  8. 'On Error GoTo Greska
  9. SQL = "SELECT K_Sirovine.SifraArt, K_Sirovine.Cena, [komada]*[Kolicina] AS Ukupno, K_Sirovine.Jed_M " _
  10.  & "FROM (K_Proizvodi INNER JOIN K_Sirovine ON K_Proizvodi.Sifra_P = K_Sirovine.Sifra_P) " _
  11.  & "INNER JOIN T_StavkeN ON K_Proizvodi.Sifra_P = T_StavkeN.IdProizvoda " _
  12.   & "WHERE T_StavkeN.Sifra_N='" & NalogID & "'"
  13.  
  14. Set DB = CurrentDb
  15. Set Rs1 = DB.OpenRecordset(SQL)
  16. Set Rs2 = DB.OpenRecordset("SELECT * FROM T_Transakcije WHERE RedniBroj like 'I*'")
  17. If Rs2.RecordCount > 0 Then
  18. Rs2.MoveLast
  19. I = Val(Mid(Rs2!RedniBroj, 2))
  20. End If
  21. If Rs1.RecordCount = 0 Then GoTo Kraj
  22. Do While Not Rs1.EOF
  23. I = I + 1
  24. Rs2.AddNew
  25. Rs2!RedniBroj = "I" & Format(I, "00000000")
  26. Rs2!Sifra_Transakcije = Izlaz_Br
  27. Rs2!SifraArtikla = Rs1!SifraArt
  28. Rs2!Jed_M = Rs1!Jed_M
  29. Rs2!CenaUlaza = Rs1!Cena
  30. Rs2!Status = 2
  31. Rs2!Kolicina = Rs1!Ukupno
  32. Rs2.Update
  33. Rs1.MoveNext
  34. Loop
  35. Izlaz:
  36. Rs1.Close
  37. Rs2.Close
  38. Exit Function
  39. Kraj:
  40.  
  41. MsgBox "Nema Podataka"
  42. GoTo Izlaz
  43. Greska:
  44. MsgBox Err.Number & vbCr & Err.Description
  45. End Function
U kodu jeste greska kada nema niti jednog izlaza:
Evo ispravke: