Prikazi cijelu temu 18.07.2013 11:19
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Lokacija:Osijek


Predmet:Re: Spajanje arhiviranih baza
Vezano uz tvoju sugestiju o zatvaranju godine pokušavam napisati proceduru koja bi mi iz Q_Stanje prepisala podatke u tblUlazIzlaz.
Jedan dio sam napravio ali sam tu zapeo.
U tablicu 'tblVrstaTransakcije' dodao sam 'Završna inventura.
Napravio sam kod koji ću popuniti podatke u tblTransakcije za novu transakciju 'ZavrÅ¡na inventura' za svako skladiÅ¡te koje se pojavi u 'Q_Stanje'
Taj dio am napravio i to radi:
PreuzmiIzvorni kôd (vbnet):
  1. Private Sub CmdTransakcije_Click()
  2. Dim db As Database
  3. Dim rs1 As Recordset
  4. Dim rs2 As Recordset
  5. Dim rs3 As Recordset
  6. Dim rs4 As Recordset
  7.  
  8. Set db = CurrentDb()
  9. Set rs1 = db.OpenRecordset("SELECT Skladiste FROM Q_Stanje GROUP BY Skladiste", dbOpenDynaset)
  10. Set rs2 = db.OpenRecordset("tblTransakcije", dbOpenDynaset)
  11. Set rs3 = db.OpenRecordset("Q_Stanje", dbOpenDynaset)
  12. Set rs4 = db.OpenRecordset("tblUlazIzlaz", dbOpenDynaset)
  13.  
  14. Do While Not rs1.EOF
  15.     rs2.AddNew
  16.     rs2!Datum = Now()
  17.     rs2!Skladiste = rs1!Skladiste
  18.     rs2!IDdokumenta = 16
  19.     rs2!BrDokumenta = "n/a"
  20.     rs2!PartnerID = DLookup("PartnerID", "tblPartneri", "Firma ='" & "SkladiÅ¡te " & rs1!Skladiste & "'")
  21.     rs2!Radninalog = "n/a"
  22.     rs2!OperID = "Operater"
  23.     rs2!StatusTR = 2
  24. rs2.Update
  25.  
  26. rs1.MoveNext
  27. Loop
  28. rs1.Close
  29. rs2.Close
  30.    
  31. Kraj:
  32.     Set db = Nothing
  33.    
  34.     DoCmd.OpenTable "tblTransakcije", acViewNormal, acEdit
  35.  
  36. End Sub

Zapeo sam na upisu u tblUlazIzlaz, tu mi treba da se podaci o stanju za svako skladiše pridruže uz IDtransakcije iz predhodnog koda.
Kod za upis u tblUlazIzlaz bi trebao biti ovako nekako:
PreuzmiIzvorni kôd (vbnet):
  1. Dim db As Database
  2. Dim rs3 As Recordset
  3. Dim rs4 As Recordset
  4.  
  5. Set Baza = CurrentDb()
  6. Set rs3 = db.OpenRecordset("Q_Stanje", dbOpenDynaset)
  7. Set rs4 = db.OpenRecordset("tblUlazIzlaz", dbOpenDynaset)
  8.  
  9.    Do While Not rs3.EOF
  10.                  rs4.AddNew
  11.                
  12.                  rs4![IDtransakcije] = "IDtransakcije iz tblTransakcija
  13.                  rs4![Sifra] = rs3![Sifra]
  14.                  rs4![Ulaz] = 0
  15.                  rs4![Izlaz] = rs3![Stanje]
  16.                  rs4![Status] = 1
  17.                  rs4![DatumU] = Date
  18.                    
  19.                  rs4.Update
  20.                  rs4.MoveNext
  21.         Loop
  22. rs3.Close
  23. rs4.Close
  24.    
  25. Kraj:
  26.     Set Baza = Nothing


Prilozi:
Prodaja_2011_be.rar
Preuzimanja:228
Velicina datoteke:158.81 KB

Pozdrav