Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190

Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190

Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190

Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190

Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190

Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190

Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190

Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190

Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190
iCentar » Racunari i oprema » Programirannje i baze podataka » Access » gipko problem petlja
nevsad 23.02.2015 22:50
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:
gipko1022.rar (Velicina datoteke:12.25 KB)

zxz 23.02.2015 23:39
Predmet:Re: gipko problem petlja

Imas li xml semu.
Ovdje imas samo tabele.

pmiroslav 24.02.2015 09:36
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:
gipko1022_MP.rar (Velicina datoteke:22.08 KB)

nevsad 24.02.2015 11:14
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:
command48.txt (Velicina datoteke:10.12 KB)

pmiroslav 24.02.2015 12:02
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?

nevsad 24.02.2015 13:47
Predmet:Re: gipko problem petlja

imam je u modulu decoder

zaboravio sam
Prilozi:
dekoder.txt (Velicina datoteke:16.04 KB)

pmiroslav 24.02.2015 14:30
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.

miro35 24.02.2015 15:50
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

nevsad 24.02.2015 19:43
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:
gipko1022.rar (Velicina datoteke:50.18 KB)

nevsad 24.02.2015 20:58
Predmet:Re: gipko problem petlja

New Stream

nije definirano