miro35 08.08.2012 15:49
Predmet:Re: Iz Å kole VB-a

Zanima me još pošto sam zadao parametre:
PreuzmiIzvorni kôd (Text):
  1. Dim rs2 As DAO.Recordset
  2. Dim db As DAO.Database
Ja moram koristiti i ADO,znači koristim referencu "Microsoft ActiveX Data Object 2.8 Library.
Moram je koristiti iz razloga Å¡to moj code za kreiranje xml fajla uzima tu referencu.
Evo coda za kreiranje xml fajla:
PreuzmiIzvorni kôd (Text):
  1. Private Sub XML_Click()
  2.  
  3. 'DEFINISANJE PROMENLJIVIH
  4. '...........................
  5. Dim rs2 As DAO.Recordset
  6. Dim db As DAO.Database
  7. Set Tekst = New Stream
  8. Tekst.Open
  9. Tekst.Position = 0
  10. Tekst.Charset = "UTF-8"
  11. Tekst.WriteText "<?xml version=""1.0"" encoding=""UTF-8"" standalone=""yes""?>" & vbCrLf
  12.  
  13. Tekst.WriteText "<RECEIPT>" & vbCrLf
  14. Set db = CurrentDb()
  15. Set rs2 = db.OpenRecordset("SELECT * FROM qryIZLAZMP WHERE BROULIZ='" & Me.BROIZD & "'", dbOpenDynaset)
  16.     Do While Not rs2.EOF
  17.     Dim NazivA As String
  18. NazivA = rs2!ArtNaz
  19. NazivA = Naziv_Art(NazivA)
  20.  
  21. If (DLookup("IspisF", "serials") = "Kataloski") Then
  22. If (rs2!DS_VALUEBroj > 0) Then
  23.  Tekst.WriteText "<" & "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"" " & "/>" & vbCrLf
  24. Else
  25. Tekst.WriteText "<" & "DATA BCR" & "=" & """" & rs2!FSIFRA & """" & " " & "VAT" & "=" & """" & rs2!ArtGPorez & """" & " " & "MES" & "=" & """" & rs2!MES & """" & " " & "DEP=""1"" " & " " & "DSC" & "=" & """" & NazivA & """" & " " & "PRC" & "=" & """" & rs2!Cijena & """" & " " & "AMN" & "=" & """" & rs2!KOLICINASAD & """" & " " & "/>" & vbCrLf
  26. End If
  27. Else
  28. If (rs2!DS_VALUEBroj > 0) Then
  29.  Tekst.WriteText "<" & "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"" " & "/>" & vbCrLf
  30. Else
  31. Tekst.WriteText "<" & "DATA BCR" & "=" & """" & rs2!SIFART & """" & " " & "VAT" & "=" & """" & rs2!ArtGPorez & """" & " " & "MES" & "=" & """" & rs2!MES & """" & " " & "DEP=""1"" " & " " & "DSC" & "=" & """" & NazivA & """" & " " & "PRC" & "=" & """" & rs2!Cijena & """" & " " & "AMN" & "=" & """" & rs2!KOLICINASAD & """" & " " & "/>" & vbCrLf
  32. End If
  33. End If
  34.  
  35. rs2.MoveNext
  36.  
  37.     Loop
  38.    
  39.       rs2.Close
  40.      
  41.       Tekst.WriteText "<DATA PAY=""0"" " & "AMN" & "=" & """" & Me.Sveukupno & """" & " " & "/>" & vbCrLf
  42.       'Tekst.WriteText "<DATA PAY=""1"" 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.WriteText "</" & "RECEIPT" & ">" & vbCrLf
  48.       'Tekst.WriteText "<TremolFpServer>" & vbCrLf
  49.  
  50.    
  51.     Set db = Nothing
  52. Tekst.SaveToFile "C:\HCP\TO_FP\RCP_" & Me.BROIZD & ".XML", adSaveCreateOverWrite
  53.  Tekst.Close
  54.  Dim rs4 As DAO.Recordset
  55. Dim db4 As DAO.Database
  56. Set Tekst4 = New Stream
  57. Tekst4.Open
  58. Tekst4.Position = 0
  59. Tekst4.Charset = "UTF-8"
  60. Tekst4.WriteText "<?xml version=""1.0"" encoding=""UTF-8"" standalone=""yes""?>" & vbCrLf
  61.  
  62.     'Set db4 = Nothing
  63. Tekst4.SaveToFile "C:\HCP\TO_FP\CMD.OK", adSaveCreateOverWrite
  64.  Tekst4.Close
  65.  DoCmd.SetWarnings False
  66.             DoCmd.RunSQL "UPDATE GLSTAVKEMP1 SET FiskalniIspis='" & "D" & "' WHERE BROULIZ='" & Me.BROIZD & "'"
  67. DoCmd.SetWarnings True
  68.  'ProvjeraP (Me.BROIZD)
  69. DoCmd.SetWarnings False
  70. DoCmd.OpenQuery "qrySkladisteKasaProdaja"
  71. DoCmd.OpenQuery "qrySkladisteKasaProdajaDatum"
  72. DoCmd.SetWarnings True
Kad ugasim ovu referencu ADO javlja mi grešku na ovom zapisu:"Set Tekst = New Stream
".Može li se nekako ovo prepravit ili da ne koristim tu referencu ili nekako drukčije napisati kod.
Pitam zato jer mislim da mi se sukobljavaju DAO i ADO mada sam zadao kad treba da uzima DAO ali nisam za ADO referencu?

zxz 08.08.2012 16:42
Predmet:Re: Iz Å kole VB-a

Umjesto set tekst koristis:
Open PutanjaIImeFajla For Output As BrojFajla:
Primjer:
Open "C:\HCP\TO_FP\RCP_" & Me.BROIZD & ".XML" For Output as 1.
I sad gdje god imas
Tekst.WriteText
Pises Print #1, Tekst.

Primjer:
Tekst4.WriteText "<?xml version=""1.0"" encoding=""UTF-8"" standalone=""yes""?>" & vbCrLf
Sad bi bilo
Dim Temp as string

Print #1,Temp

I sve tako redom

Na kraju procedure stavi
Close #1.

Ako ne uspijes javi se.

miro35 09.08.2012 08:36
Predmet:Re: Iz Å kole VB-a

Da li si mislio ovako:
Open "C:\HCP\TO_FP\RCP_" & Me.BROIZD & ".XML" For Output as 1.
Dim Text as string
Print #1,Text "<?xml version=""1.0"" encoding=""UTF-8"" standalone=""yes""?>" & vbCrLf

Na kraju
Close #1.

zxz 09.08.2012 10:16
Predmet:Re: Iz Å kole VB-a

Ne nego:
Open "C:\HCP\TO_FP\RCP_" & Me.BROIZD & ".XML" For Output as 1.
Dim Text as string
Text= "<?xml version=""1.0"" encoding=""UTF-8"" standalone=""yes""?>"
Print #1,Text
I netreba vbcr tj. prelaz u novi red jer je svaki print novi red.

miro35 09.08.2012 10:19
Predmet:Re: Iz Å kole VB-a

Uspio sam i isprobao sad ću iskljičiti iz referenci active x data obj. 2.8 library,pa da vidim da li je konflikt do ove reference.Jer mi i dalje ponekad javi d'not send error kad čitam bar kodom artikle u kasi.
Ali zanimljivo je kad se kuca šifra artikla preko tipkovnice nema ove greške a kad se skenira bar kodom onda se ponekad javi ova greška.
I onda ugasi aplikaciju

zxz 09.08.2012 20:12
Predmet:Re: Iz Å kole VB-a

E pa to ti je do skenera.
Sigurno otkuca nesto nemoguce.

miro35 10.08.2012 08:11
Predmet:Re: Iz Å kole VB-a

Laserski je skener čak na jednom mjestu je skoro nov.Kupljen je nov i nije radio dugo.

miro35 10.08.2012 09:11
Predmet:Re: Iz Å kole VB-a

Neznam da li sam ovo dobro napisao.Kod kreira ovaj fajl ali nisam siguran za ovo Close#2#
PreuzmiIzvorni kôd (Text):
  1. Open "C:\HCP\TO_FP\CMD.OK" For Output As 2#
  2. Dim Tekst1 As String
  3. Tekst1 = "<?xml version=""1.0"" encoding=""UTF-8"" standalone=""yes""?>"
  4. Print #2, Tekst1
  5.    
  6. Close #2#

zxz 10.08.2012 09:39
Predmet:Re: Iz Å kole VB-a

Open "C:\HCP\TO_FP\CMD.OK" For Output As 2
Dim Tekst1 As String
Tekst1 = "<?xml version=""1.0"" encoding=""UTF-8"" standalone=""yes""?>"
Print #2, Tekst1

Close #2

miro35 11.08.2012 12:54
Predmet:Re: Iz Å kole VB-a

evo nešto sam otkrio na win7 sa ovim kreiranjem xml fajla ali samo kad radim sa bar kodom i to samo sa nekim bar kodovima.Izgleda da je problem sa ovim djelom koda:
Tekst1 = "<?xml version=""1.0"" encoding=""UTF-8"" standalone=""yes""?>"
Testni uređaj mi javi greÅ¡ku error byte 1 UTF-8
Trebam li nešto napisati u kodu iznad ovoga:
Tekst1 = "<?xml version=""1.0"" encoding=""UTF-8"" standalone=""yes""?>"
U xp-u ni jedan ne prolazi bar kod a u win 7 svi prolaze osim jednog bar koda.
Znači ako se u xml fajlu nalazi taj bar kod neće da prođe i javi ovu greÅ¡ku error byte 1 UTF-8
A u xp-u ni jedan ne prolazi.
Vjerovatno je sa ovim utf-8 problem