Centar za edukaciju-BiH

iCentar → Racunari i oprema → Programirannje i baze podataka → Access


Prosiri i skupi Opcije teme
Stranice (3):1,2,3

#1 23.02.2015 22:50
nevsad Van mreze
Clan
Registrovan od:01.09.2010
Postovi:228


Predmet:gipko problem petlja
imam 4 tabele koje sam kreirao uz pomoć querija iz plate koje sam pokusao priblizit semi za xlm format

prva je sa poljima:

JIBPoslodavca
NazivPoslodavca
BrojZahtjeva
DatumPodnosenja
DatumUnosa

druga je sa poljima:
JIBJMBPoslodavca
Naziv    AdresaSjedista
JMBZaposlenika
ImeIPrezime
PoreznaGodina
radnikid

treca sa poljima
Mjesec
    IsplataZaMjesecIGodinu
    VrstaIsplate
    IznosPrihodaUNovcu
    IznosPrihodaUStvarimaUslugama
    BrutoPlaca    IznosZaPenzijskoInvalidskoOsiguranje
    IznosZaZdravstvenoOsiguranje
    IznosZaOsiguranjeOdNezaposlenosti

    UkupniDoprinosi
    PlacaBezDoprinosa
    FaktorLicnihOdbitakaPremaPoreznojKartici
    IznosLicnogOdbitka
    OsnovicaPoreza
    IznosUplacenogPoreza
    NetoPlaca
    DatumUplate
    radnikid

četrrta sa poljima:
IznosPrihodaUNovcu
    IznosPrihodaUStvarimaUslugama
    BrutoPlaca
    IznosZaPenzijskoInvalidskoOsiguranje
    IznosZaZdravstvenoOsiguranje
    IznosZaOsiguranjeOdNezaposlenosti
    UkupniDoprinosi
    PlacaBezDoprinosa
    IznosLicnogOdbitka
    OsnovicaPoreza
    IznosUplacenogPoreza
    NetoPlaca
    radnikid

medjetim zapnem na petlji kod kreirqanja xlm formata
evo i baze
svaka pomoc dobro došla

Prilozi:
Informacije o tipu datoteke za:rar  gipko1022.rar
Preuzimanja:264
Velicina datoteke:12.25 KB

↑  ↓

#2 23.02.2015 23:39
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


Predmet:Re: gipko problem petlja
Imas li xml semu.
Ovdje imas samo tabele.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#3 24.02.2015 09:36
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Re: gipko problem petlja
Probaj ovako.
Napravi formu, na njoj dugme i ispod dugmeta slijedeći kod.

PreuzmiIzvorni kôd (vbnet):
  1. Dim objOtherTbls As AdditionalData
  2. Dim Putanja As String
  3. Putanja = "C:\mojiPodaci.xml"
  4. Set objOtherTbls = Application.CreateAdditionalData
  5.  
  6. 'Popis tablica za izvoz
  7. objOtherTbls.Add "gipko1"
  8. objOtherTbls.Add "gipko2"
  9. objOtherTbls.Add "gipko3"
  10. objOtherTbls.Add "gipko4"
  11. 'Gdje se podacio izvoze
  12. Application.ExportXML ObjectType:=acExportTable, _
  13. DataSource:="gipko1", _
  14. dataTarget:=Putanja, _
  15. AdditionalData:=objOtherTbls
  16.  
  17. MsgBox "Izvoz podataka je završen u " & Putanja


Prilozi:
Informacije o tipu datoteke za:rar  gipko1022_MP.rar
Preuzimanja:267
Velicina datoteke:22.08 KB

Pozdrav
↑  ↓

#4 24.02.2015 11:14
nevsad Van mreze
Clan
Registrovan od:01.09.2010
Postovi:228


Predmet:Re: gipko problem petlja
ja imam kod koji sam nekad koristio ali on je bio za jednog radnika
sema je dobra bar tako mislim
samo poslije ovog prvo treba da ide na drugog i td

kod je slijedeci i koristi se na command batom48

Prilozi:
Informacije o tipu datoteke za:txt  command48.txt
Preuzimanja:315
Velicina datoteke:10.12 KB

↑  ↓

#5 24.02.2015 12:02
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Re: gipko problem petlja
Za isprobati ovaj tvoj kod fale neki elementi.U kodu ikÅ¡ slijedeće:

DoCmd.RunSQL "INSERT INTO gipko1 ( JIBPoslodavca, NazivPoslodavca, DatumPodnosenja, DatumUnosa, BrojZahtjeva ) SELECT korisnik.maticnibroj AS JIBPoslodavca, korisnik.korisnik AS NazivPoslodavca, Format(Date(),'yyyy-mm-dd') AS DatumPodnosenja,...itd

Gdje ti je u primjeru tablica Korisnik iz koje treba uzimati podatke za tablicu gipko1.
U drugom redu ima SELECT gipko.maticnibroj itd (gdje je tablica gipko)

Također na kraju koda pozivaÅ¡:
subConvertToUTF8 ImeF
Gdje ti je ta subprocedura?
Pozdrav
↑  ↓

#6 24.02.2015 13:47
nevsad Van mreze
Clan
Registrovan od:01.09.2010
Postovi:228


Predmet:Re: gipko problem petlja
imam je u modulu decoder

zaboravio sam

Prilozi:
Informacije o tipu datoteke za:txt  dekoder.txt
Preuzimanja:437
Velicina datoteke:16.04 KB

↑  ↓

#7 24.02.2015 14:30
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Re: gipko problem petlja
Meni nije jasno Å¡to tebe ovdje zapravo muči. Sada sam slučajno pronaÅ¡ao da si ti o ovome več pisao, ako je to ovo
http://www.icentar.ba/...e=1#p17407
Ako je to taj primjer onda si trebao nataviti na tu temu bilo bi lakše.
Kao Å¡to sam rekao, da bi se mogao isprobati kod koji si poslao u primjeru nedostaju neke tablice i forme koje se u kodu pozivaju

tablica 'gipko'
forma 'selectForma'

i možda još nešto.
Pozdrav
↑  ↓

#8 24.02.2015 15:50
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Postovi:608


Predmet:Re: gipko problem petlja
Evo moj kod za izradu gip1022.xml
PreuzmiIzvorni kôd (Text):
  1. Dim Rs1
  2. Dim Rs2
  3. Dim DB As Database
  4. Set Tekst = New Stream
  5. Tekst.Open
  6. Tekst.Position = 0
  7. Tekst.Charset = "UTF-8"
  8. Tekst.WriteText "<?xml version=""1.0"" encoding=""UTF-8"" standalone=""yes""?>" & vbCrLf
  9.  
  10. Tekst.WriteText "<PaketniUvozObrazaca xmlns='urn:PaketniUvozObrazaca_V1_0.xsd'>" & vbCrLf
  11. 'Tekst.WriteText "<" & "PaketniUvozObrazaca" & ">" & vbCrLf
  12.  
  13. Tekst.WriteText "<" & "PodaciOPoslodavcu" & ">" & vbCrLf
  14. Tekst.WriteText "<JIBPoslodavca>" & "" & DLookup("FirMB", "tblFirma") & "" & "</JIBPoslodavca>" & vbCrLf
  15. Tekst.WriteText "<NazivPoslodavca>" & "" & DLookup("FirNaziv", "tblFirma") & "" & "</NazivPoslodavca>" & vbCrLf
  16. Tekst.WriteText "<BrojZahtjeva>" & "" & "" & DLookup("CountOfSifra", "QryBrojDjelUkupno") & "" & "</BrojZahtjeva>" & vbCrLf
  17. Tekst.WriteText "<DatumPodnosenja>" & "" & Me.DatumIsplate & "" & "</DatumPodnosenja>" & vbCrLf
  18.  
  19. Tekst.WriteText "</" & "PodaciOPoslodavcu" & ">" & vbCrLf
  20. Set DB = CurrentDb()
  21. Set Rs1 = DB.OpenRecordset("Select distinct sifra  FROM qry1022XML", dbOpenDynaset)
  22. 'Set Rs1 = Db.OpenRecordset("Select * FROM qry1022XML")
  23.     Do While Not Rs1.EOF
  24.  
  25. Tekst.WriteText "<" & "Obrazac1022" & ">" & vbCrLf
  26.  
  27. Tekst.WriteText "<" & "Dio1PodaciOPoslodavcuIPoreznomObvezniku" & ">" & vbCrLf
  28. Tekst.WriteText "<JIBJMBPoslodavca>" & "" & DLookup("FirMB", "1qry", "Sifra='" & Rs1!Sifra & "'") & "" & "</JIBJMBPoslodavca>" & vbCrLf
  29. Tekst.WriteText "<Naziv>" & "" & DLookup("FirNaziv", "1qry", "Sifra='" & Rs1!Sifra & "'") & "" & "</Naziv>" & vbCrLf
  30. Tekst.WriteText "<AdresaSjedista>" & "" & DLookup("FirAdresa", "1qry", "Sifra='" & Rs1!Sifra & "'") & "" & "</AdresaSjedista>" & vbCrLf
  31. Tekst.WriteText "<JMBZaposlenika>" & "" & DLookup("Jmbg", "1qry", "Sifra='" & Rs1!Sifra & "'") & "" & "</JMBZaposlenika>" & vbCrLf
  32. Tekst.WriteText "<ImeIPrezime>" & "" & DLookup("IMEPREZIME", "1qry", "Sifra='" & Rs1!Sifra & "'") & "" & "</ImeIPrezime>" & vbCrLf
  33. Tekst.WriteText "<AdresaPrebivalista>" & "" & DLookup("Adresa", "1qry", "Sifra='" & Rs1!Sifra & "'") & "" & "</AdresaPrebivalista>" & vbCrLf
  34. Tekst.WriteText "<PoreznaGodina>" & "" & Me.Text10 & "" & "</PoreznaGodina>" & vbCrLf
  35. Tekst.WriteText "</" & "Dio1PodaciOPoslodavcuIPoreznomObvezniku" & ">" & vbCrLf
  36. Tekst.WriteText "<" & "Dio2PodaciOPrihodimaDoprinosimaIPorezu" & ">" & vbCrLf
  37. Set DB = CurrentDb()
  38.     Set Rs2 = DB.OpenRecordset("SELECT * FROM qryIspisGIP1022XML WHERE sifra='" & Rs1!Sifra & "' order by Mjesec")
  39.     Do While Not Rs2.EOF
  40.  
  41.  
  42.  
  43.  Tekst.WriteText "<" & "PodaciOPrihodimaDoprinosimaIPorezu" & ">" & vbCrLf
  44.  
  45.  Tekst.WriteText "<Mjesec>" & "" & Rs2!Mjesec & "" & "</Mjesec>" & vbCrLf
  46.  Tekst.WriteText "<IsplataZaMjesecIGodinu>" & "" & Rs2!IsplataZaMjesecIGodinu & "" & "</IsplataZaMjesecIGodinu>" & vbCrLf
  47.  Tekst.WriteText "<VrstaIsplate>" & "" & Rs2!VrstaIsplate & "" & "</VrstaIsplate>" & vbCrLf
  48.  Tekst.WriteText "<IznosPrihodaUNovcu>" & "" & Rs2!IznosPrihodaUNovcuSAD & "" & "</IznosPrihodaUNovcu>" & vbCrLf
  49.  Tekst.WriteText "<IznosPrihodaUStvarimaUslugama>" & "" & Rs2!IznosPrihodaUSTVSAD & "" & "</IznosPrihodaUStvarimaUslugama>" & vbCrLf
  50.  Tekst.WriteText "<BrutoPlaca>" & "" & Rs2!BrutoPlacaSAD & "" & "</BrutoPlaca>" & vbCrLf
  51.  Tekst.WriteText "<IznosZaPenzijskoInvalidskoOsiguranje>" & "" & Rs2!IznosZaPenzijskoInvalidskoOsiguranjeSAD & "" & "</IznosZaPenzijskoInvalidskoOsiguranje>" & vbCrLf
  52.  Tekst.WriteText "<IznosZaZdravstvenoOsiguranje>" & "" & Rs2!IznosZaZdravstvenoOsiguranjeSAD & "" & "</IznosZaZdravstvenoOsiguranje>" & vbCrLf
  53.  Tekst.WriteText "<IznosZaOsiguranjeOdNezaposlenosti>" & "" & Rs2!IznosZaOsiguranjeOdNezaposlenostiSAD & "" & "</IznosZaOsiguranjeOdNezaposlenosti>" & vbCrLf
  54.  Tekst.WriteText "<UkupniDoprinosi>" & "" & Rs2!UkupniDoprinosiSAD & "" & "</UkupniDoprinosi>" & vbCrLf
  55.  Tekst.WriteText "<PlacaBezDoprinosa>" & "" & Rs2!PlacaBezDoprinosaSAD & "" & "</PlacaBezDoprinosa>" & vbCrLf
  56.  Tekst.WriteText "<FaktorLicnihOdbitakaPremaPoreznojKartici>" & "" & Rs2!FaktorLicnihOdbitakaPremaPoreznojKarticiSAD & "" & "</FaktorLicnihOdbitakaPremaPoreznojKartici>" & vbCrLf
  57.  Tekst.WriteText "<IznosLicnogOdbitka>" & "" & Rs2!IznosLicnogOdbitkaSAD & "" & "</IznosLicnogOdbitka>" & vbCrLf
  58.  Tekst.WriteText "<OsnovicaPoreza>" & "" & Rs2!OsnovicaPorezaSAD & "" & "</OsnovicaPoreza>" & vbCrLf
  59.  Tekst.WriteText "<IznosUplacenogPoreza>" & "" & Rs2!IznosUplacenogPorezaSAD & "" & "</IznosUplacenogPoreza>" & vbCrLf
  60.  Tekst.WriteText "<NetoPlaca>" & "" & Rs2!NetoPlacaSAD & "" & "</NetoPlaca>" & vbCrLf
  61.  Tekst.WriteText "<DatumUplate>" & "" & Rs2!DatumUplate & "" & "</DatumUplate>" & vbCrLf
  62.  
  63.  Tekst.WriteText "</" & "PodaciOPrihodimaDoprinosimaIPorezu" & ">" & vbCrLf
  64.  Rs2.MoveNext
  65.  
  66.     Loop
  67.      Rs2.Close
  68.  Tekst.WriteText "<" & "Ukupno" & ">" & vbCrLf
  69.  
  70.  Tekst.WriteText "<IznosPrihodaUNovcu>" & "" & DLookup("IznosPrihodaUNovcuSAD", "qryIspisGIP1022UKUPNOXML", "sifra='" & Rs1!Sifra & "'") & "" & "</IznosPrihodaUNovcu>" & vbCrLf
  71.  Tekst.WriteText "<IznosPrihodaUStvarimaUslugama>" & "" & DLookup("IznosPrihodaUSTVSAD", "qryIspisGIP1022UKUPNOXML", "sifra='" & Rs1!Sifra & "'") & "" & "</IznosPrihodaUStvarimaUslugama>" & vbCrLf
  72.  Tekst.WriteText "<BrutoPlaca>" & "" & DLookup("BrutoPlacaSAD", "qryIspisGIP1022UKUPNOXML", "sifra='" & Rs1!Sifra & "'") & "" & "</BrutoPlaca>" & vbCrLf
  73.  Tekst.WriteText "<IznosZaPenzijskoInvalidskoOsiguranje>" & "" & DLookup("IznosZaPenzijskoInvalidskoOsiguranjeSAD", "qryIspisGIP1022UKUPNOXML", "sifra='" & Rs1!Sifra & "'") & "" & "</IznosZaPenzijskoInvalidskoOsiguranje>" & vbCrLf
  74.  Tekst.WriteText "<IznosZaZdravstvenoOsiguranje>" & "" & DLookup("IznosZaZdravstvenoOsiguranjeSAD", "qryIspisGIP1022UKUPNOXML", "sifra='" & Rs1!Sifra & "'") & "" & "</IznosZaZdravstvenoOsiguranje>" & vbCrLf
  75.  Tekst.WriteText "<IznosZaOsiguranjeOdNezaposlenosti>" & "" & DLookup("IznosZaOsiguranjeOdNezaposlenostiSAD", "qryIspisGIP1022UKUPNOXML", "sifra='" & Rs1!Sifra & "'") & "" & "</IznosZaOsiguranjeOdNezaposlenosti>" & vbCrLf
  76.  Tekst.WriteText "<UkupniDoprinosi>" & "" & DLookup("UkupniDoprinosiSAD", "qryIspisGIP1022UKUPNOXML", "sifra='" & Rs1!Sifra & "'") & "" & "</UkupniDoprinosi>" & vbCrLf
  77.  Tekst.WriteText "<PlacaBezDoprinosa>" & "" & DLookup("PlacaBezDoprinosaSAD", "qryIspisGIP1022UKUPNOXML", "sifra='" & Rs1!Sifra & "'") & "" & "</PlacaBezDoprinosa>" & vbCrLf
  78.  Tekst.WriteText "<IznosLicnogOdbitka>" & "" & DLookup("IznosLicnogOdbitkaSAD", "qryIspisGIP1022UKUPNOXML", "sifra='" & Rs1!Sifra & "'") & "" & "</IznosLicnogOdbitka>" & vbCrLf
  79.  Tekst.WriteText "<OsnovicaPoreza>" & "" & DLookup("OsnovicaPorezaSAD", "qryIspisGIP1022UKUPNOXML", "sifra='" & Rs1!Sifra & "'") & "" & "</OsnovicaPoreza>" & vbCrLf
  80.  Tekst.WriteText "<IznosUplacenogPoreza>" & "" & DLookup("IznosUplacenogPorezaSAD", "qryIspisGIP1022UKUPNOXML", "sifra='" & Rs1!Sifra & "'") & "" & "</IznosUplacenogPoreza>" & vbCrLf
  81.  Tekst.WriteText "<NetoPlaca>" & "" & DLookup("NetoPlacaSAD", "qryIspisGIP1022UKUPNOXML", "sifra='" & Rs1!Sifra & "'") & "" & "</NetoPlaca>" & vbCrLf
  82.  
  83.  Tekst.WriteText "</" & "Ukupno" & ">" & vbCrLf
  84.  Tekst.WriteText "</" & "Dio2PodaciOPrihodimaDoprinosimaIPorezu" & ">" & vbCrLf
  85.  
  86.  Tekst.WriteText "<" & "Dio3IzjavaPoslodavcaIsplatioca" & ">" & vbCrLf
  87.  Tekst.WriteText "<JIBJMBPoslodavca>" & "" & DLookup("FirMB", "tblFirma") & "" & "</JIBJMBPoslodavca>" & vbCrLf
  88.  Tekst.WriteText "<DatumUnosa>" & "" & Me.DatumIsplate & "" & "</DatumUnosa>" & vbCrLf
  89.  Tekst.WriteText "<NazivPoslodavca>" & "" & DLookup("FirNaziv", "tblFirma") & "" & "</NazivPoslodavca>" & vbCrLf
  90.  Tekst.WriteText "</" & "Dio3IzjavaPoslodavcaIsplatioca" & ">" & vbCrLf
  91.  
  92.  Tekst.WriteText "<" & "Dokument" & ">" & vbCrLf
  93.  Tekst.WriteText "<Operacija>" & "" & "Novi" & "" & "</Operacija>" & vbCrLf
  94.  Tekst.WriteText "</" & "Dokument" & ">" & vbCrLf
  95.  
  96. Tekst.WriteText "</" & "Obrazac1022" & ">" & vbCrLf
  97. Rs1.MoveNext
  98. Loop
  99. 'Tekst.WriteText "</" & "SpecifikacijaZahtjevaZaIzdavanjePorezneKartice" & ">" & vbCrLf
  100. Rs1.Close
  101.  
  102. Tekst.WriteText "</" & "PaketniUvozObrazaca" & ">" & vbCrLf
  103. Set DB = Nothing
  104. Tekst.SaveToFile "C:\GIP1022\" & DLookup("FirMB", "tblFirma") & ".xml", adSaveCreateOverWrite
  105.  Tekst.Close
Samo svoje podatke umetni u ovu funkciju.Radi sigurno
Miro
↑  ↓

#9 24.02.2015 19:43
nevsad Van mreze
Clan
Registrovan od:01.09.2010
Postovi:228


Predmet:Re: gipko problem petlja
sve je ok i tema koja je bila prije
nije zvršena

mene vise brine kako ne mogu naci gresku a ona sigurno postoji

evo kompletan kon na commm48

nesto ne valja a ja neznam sta

Prilozi:
Informacije o tipu datoteke za:rar  gipko1022.rar
Preuzimanja:242
Velicina datoteke:50.18 KB

↑  ↓

#10 24.02.2015 20:58
nevsad Van mreze
Clan
Registrovan od:01.09.2010
Postovi:228


Predmet:Re: gipko problem petlja
New Stream

nije definirano
↑  ↓

Stranice (3):1,2,3

Srodne teme

Ko je online?

Aktivni clanovi:
nema clanova


Kontakt
Sva vremena su GMT +02:00. Trenutno vrijeme: 5: 33 pm.