Centar za edukaciju-BiH

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


Prosiri i skupi Opcije teme
Stranice (7):1,2,3,4,5,6,7

#21 11.08.2012 20:48
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


Predmet:Re: Iz Å kole VB-a
zakaci xml da vidim kakav je ali taj kada napravi gresku.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#22 13.08.2012 08:04
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Postovi:608


Predmet:Re: Iz Å kole VB-a
Evo ja mislim da je greška u ovome utf-8

Prilozi:
Informacije o tipu datoteke za:rar  TO_FP1.rar
Preuzimanja:223
Velicina datoteke:539 Bajt

Miro
↑  ↓

#23 13.08.2012 08:16
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Postovi:608


Predmet:Re: Iz Å kole VB-a
Evo kod kojim kreiram xml fajl:
PreuzmiIzvorni kôd (Text):
  1. Dim rs2 As DAO.Recordset
  2. Dim db As DAO.Database
  3. Open "C:\HCP\TO_FP\RCP_" & Me.BROIZD & ".XML" For Output As 1
  4. Dim Tekst As String
  5. Tekst = "<?xml version=""1.0"" encoding=""UTF-8"" standalone=""yes""?>"
  6. Print #1, Tekst
  7. Tekst = "<RECEIPT>"
  8. Print #1, Tekst
  9. Set db = CurrentDb()
  10. Set rs2 = db.OpenRecordset("SELECT * FROM qryIZLAZMP WHERE BROULIZ='" & Me.BROIZD & "'", dbOpenDynaset)
  11.     Do While Not rs2.EOF
  12. Dim NazivA As String
  13. NazivA = rs2!ArtNaz
  14. NazivA = Naziv_Art(NazivA)
  15.  
  16.  If (DLookup("IspisF", "serials") = "Kataloski") Then
  17. If (rs2!DS_VALUEBroj > 0) Then
  18.  Tekst = "<" & "DATA BCR" & "=" & """" & rs2!FSIFRA & """" & " " & "VAT" & "=" & """" & rs2!ArtGPorez & """" & " " & "MES" & "=" & """" & rs2!MES & """" & " " & "DEP=""1"" " & " " & "DSC" & "=" & """" & NazivA & """" & " " & "PRC" & "=" & """" & rs2!Cijena & """" & " " & "AMN" & "=" & """" & rs2!KOLICINASAD & """" & " " & "DS_VALUE" & "=" & """" & rs2!DS_VALUEFiskal & """" & " " & "DISCOUNT=""True"" " & "/>"
  19.  Print #1, Tekst
  20. Else
  21. Tekst = "<" & "DATA BCR" & "=" & """" & rs2!FSIFRA & """" & " " & "VAT" & "=" & """" & rs2!ArtGPorez & """" & " " & "MES" & "=" & """" & rs2!MES & """" & " " & "DEP=""1"" " & " " & "DSC" & "=" & """" & NazivA & """" & " " & "PRC" & "=" & """" & rs2!Cijena & """" & " " & "AMN" & "=" & """" & rs2!KOLICINASAD & """" & " " & "/>"
  22. Print #1, Tekst
  23. End If
  24. Else
  25. If (rs2!DS_VALUEBroj > 0) Then
  26.  Tekst = "<" & "DATA BCR" & "=" & """" & rs2!SIFART & """" & " " & "VAT" & "=" & """" & rs2!ArtGPorez & """" & " " & "MES" & "=" & """" & rs2!MES & """" & " " & "DEP=""1"" " & " " & "DSC" & "=" & """" & NazivA & """" & " " & "PRC" & "=" & """" & rs2!Cijena & """" & " " & "AMN" & "=" & """" & rs2!KOLICINASAD & """" & " " & "DS_VALUE" & "=" & """" & rs2!DS_VALUEFiskal & """" & " " & "DISCOUNT=""True"" " & "/>"
  27.  Print #1, Tekst
  28. Else
  29. Tekst = "<" & "DATA BCR" & "=" & """" & rs2!SIFART & """" & " " & "VAT" & "=" & """" & rs2!ArtGPorez & """" & " " & "MES" & "=" & """" & rs2!MES & """" & " " & "DEP=""1"" " & " " & "DSC" & "=" & """" & NazivA & """" & " " & "PRC" & "=" & """" & rs2!Cijena & """" & " " & "AMN" & "=" & """" & rs2!KOLICINASAD & """" & " " & "/>"
  30. Print #1, Tekst
  31. End If
  32. End If
  33.  
  34. rs2.MoveNext
  35.  
  36.     Loop
  37.    
  38.       rs2.Close
  39.      
  40.       Tekst = "<DATA PAY=""1"" " & "AMN" & "=" & """" & Me.Sveukupno & """" & " " & "/>"
  41.       Print #1, Tekst
  42.       'Tekst.WriteText "<DATA PAY=""0"" Amount=""0""/>" & vbCrLf
  43.       'Tekst.WriteText "<DATA PAY=""2"" Amount=""0""/>" & vbCrLf
  44.       'Tekst.WriteText "<AdditionalLine Message=""Hvala na posjeti""/>" & vbCrLf
  45.       'Tekst.WriteText "<AdditionalLine Message=" & """" & DLookup("PodRac2", "tblPod") & """" & " " & "/>" & vbCrLf
  46.       'Tekst.WriteText "<AdditionalLine Message=" & """" & Me.BROIZD & """" & " " & "/>" & vbCrLf
  47.    Tekst = "</" & "RECEIPT" & ">"
  48.    Print #1, Tekst
  49.       'Tekst.WriteText "<TremolFpServer>" & vbCrLf
  50.  
  51.    
  52.     Set db = Nothing
  53. Close #1
  54.  Open "C:\HCP\TO_FP\CMD.OK" For Output As 2
  55. Dim Tekst1 As String
  56. Tekst1 = "<?xml version=""1.0"" encoding=""UTF-8"" standalone=""yes""?>"
  57. Print #2, Tekst1
  58.    
  59. Close #2
Miro
Ovaj post je ureden 1 puta. Posljednja izmjena 13.08.2012 08:16 od strane miro35. ↑  ↓

#24 13.08.2012 09:22
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Postovi:608


Predmet:Re: Iz Å kole VB-a
NaÅ¡ao sam Å¡ta je. Artikal koji u nazivu ima naÅ¡a slova Č,Ć,Ž,Å ,Đ kreira se pogreÅ¡an xml fajl.Znači greÅ¡ka je u ovome utf-8.
Trebalo bi nešto još staviti prije ovoga:
Tekst = "<?xml version=""1.0"" encoding=""UTF-8"" standalone=""yes""?>"
Print #1, Tekst
U prijašnjem kodu kojeg mjenjam iz razloga da izbjegnem referencu Microsoft active x 2.8 library , je stajalo ovako:
Set Tekst = New Stream
Tekst.Open
Tekst.Position = 0
Tekst.Charset = "UTF-8"
Tekst.WriteText "<?xml version=""1.0"" encoding=""UTF-8"" standalone=""yes""?>" & vbCrLf
Miro
↑  ↓

#25 13.08.2012 09:43
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


Predmet:Re: Iz Å kole VB-a
E ne Ima negdje kod za pretvaranje u xml.
To je bilo kada smo radili ono za poresko u XML-u.
To sam ja i mislio pa sam t6i rekao da zakacis file.
Ako ne nadjes kod imam ga ja negdje.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#26 13.08.2012 09:50
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Postovi:608


Predmet:Re: Iz Å kole VB-a
Da nije ovo:
PreuzmiIzvorni kôd (Text):
  1. Open Db_Putanja & "4281045960009.xml" For Output As #1
  2. Naslov = "<?xml version='1.0' encoding='UTF-8'?>"
  3. Print #1, Naslov
  4. 'Naslov = "<PaketniUvozObrazaca xsi:schemaLocation='" _
  5. ' & "urn:PaketniUvozObrazaca_V1_0.xsd PaketniUvozObrazaca_V1_0.xsd' xmlns='"
  6.  ' & "urn:PaketniUvozObrazaca_V1_0.xsd' xmlns:xsi='http://www.w3.org/2001/XMLSchema'>"
  7. Naslov = "<PaketniUvozObrazaca xmlns='urn:PaketniUvozObrazaca_V1_0.xsd' >"
  8. Print #1, Naslov
Miro
↑  ↓

#27 13.08.2012 10:44
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Postovi:608


Predmet:Re: Iz Å kole VB-a
Ovo je taj modul koji se zove dekoder

Prilozi:
Informacije o tipu datoteke za:rar  UTF8.rar
Preuzimanja:173
Velicina datoteke:15.35 KB

Miro
↑  ↓

#28 13.08.2012 11:17
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Postovi:608


Predmet:Re: Iz Å kole VB-a
To je ovaj modul dekoder ne trebaš se truditi hvala.
Samo treba upisati da pozove ovaj modul.Znači treba ovo upisati na kraju koda za kreiranje xml-a:
subConvertToUTF8 "C:\HCP\TO_FP\RCP_" & Me.BROIZD & ".XML"
Miro
↑  ↓

#29 13.08.2012 11:59
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Postovi:608


Predmet:Re: Iz Å kole VB-a
Ako može još bi trebao da ovo:
"C:\HCP\TO_FP\RAC_" & Me.BROIZD & ".XML"
preimenujem u :
"C:\HCP\TO_FP\RCP_" & Me.BROIZD & ".XML"
Kako da napišem to u vba
Miro
↑  ↓

#30 13.08.2012 12:24
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Postovi:608


Predmet:Re: Iz Å kole VB-a
rješio sam reneme
sve mi radi u redu.
ImaÅ¡ li dekoder za IBM852.To mi treba za tremol printere.Ovaj modul Å¡to sam zakačio dekodira samo utf8
Miro
Ovaj post je ureden 1 puta. Posljednja izmjena 13.08.2012 12:27 od strane miro35. ↑  ↓

Stranice (7):1,2,3,4,5,6,7

Ko je online?

Aktivni clanovi:
nema clanova


Kontakt
Sva vremena su GMT +02:00. Trenutno vrijeme: 9: 11 am.