Predmet:Re: Iz Å kole VB-a
Zanima me još pošto sam zadao parametre:
PreuzmiIzvorni kôd (Text):Dim rs2 As DAO.Recordset
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):Private Sub XML_Click()
'DEFINISANJE PROMENLJIVIH
'...........................
Dim rs2 As DAO.Recordset
Dim db As DAO.Database
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
Tekst.WriteText "<RECEIPT>" & vbCrLf
Set db = CurrentDb()
Set rs2 = db.OpenRecordset("SELECT * FROM qryIZLAZMP WHERE BROULIZ='" & Me.BROIZD & "'", dbOpenDynaset)
Do While Not rs2.EOF
Dim NazivA As String
NazivA = rs2!ArtNaz
NazivA = Naziv_Art(NazivA)
If (DLookup("IspisF", "serials") = "Kataloski") Then
If (rs2!DS_VALUEBroj > 0) Then
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
Else
Tekst.WriteText "<" & "DATA BCR" & "=" & """" & rs2!FSIFRA & """" & " " & "VAT" & "=" & """" & rs2!ArtGPorez & """" & " " & "MES" & "=" & """" & rs2!MES & """" & " " & "DEP=""1"" " & " " & "DSC" & "=" & """" & NazivA & """" & " " & "PRC" & "=" & """" & rs2!Cijena & """" & " " & "AMN" & "=" & """" & rs2!KOLICINASAD & """" & " " & "/>" & vbCrLf
End If
Else
If (rs2!DS_VALUEBroj > 0) Then
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
Else
Tekst.WriteText "<" & "DATA BCR" & "=" & """" & rs2!SIFART & """" & " " & "VAT" & "=" & """" & rs2!ArtGPorez & """" & " " & "MES" & "=" & """" & rs2!MES & """" & " " & "DEP=""1"" " & " " & "DSC" & "=" & """" & NazivA & """" & " " & "PRC" & "=" & """" & rs2!Cijena & """" & " " & "AMN" & "=" & """" & rs2!KOLICINASAD & """" & " " & "/>" & vbCrLf
End If
End If
rs2.MoveNext
Loop
rs2.Close
Tekst.WriteText "<DATA PAY=""0"" " & "AMN" & "=" & """" & Me.Sveukupno & """" & " " & "/>" & vbCrLf
'Tekst.WriteText "<DATA PAY=""1"" Amount=""0""/>" & vbCrLf
'Tekst.WriteText "<DATA PAY=""2"" Amount=""0""/>" & vbCrLf
'Tekst.WriteText "<AdditionalLine Message=""Hvala na posjeti""/>" & vbCrLf
'Tekst.WriteText "<AdditionalLine Message=" & """" & DLookup("PodRac2", "tblPod") & """" & " " & "/>" & vbCrLf
'Tekst.WriteText "<AdditionalLine Message=" & """" & Me.BROIZD & """" & " " & "/>" & vbCrLf
Tekst.WriteText "</" & "RECEIPT" & ">" & vbCrLf
'Tekst.WriteText "<TremolFpServer>" & vbCrLf
Set db = Nothing
Tekst.SaveToFile "C:\HCP\TO_FP\RCP_" & Me.BROIZD & ".XML", adSaveCreateOverWrite
Tekst.Close
Dim rs4 As DAO.Recordset
Dim db4 As DAO.Database
Set Tekst4 = New Stream
Tekst4.Open
Tekst4.Position = 0
Tekst4.Charset = "UTF-8"
Tekst4.WriteText "<?xml version=""1.0"" encoding=""UTF-8"" standalone=""yes""?>" & vbCrLf
'Set db4 = Nothing
Tekst4.SaveToFile "C:\HCP\TO_FP\CMD.OK", adSaveCreateOverWrite
Tekst4.Close
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE GLSTAVKEMP1 SET FiskalniIspis='" & "D" & "' WHERE BROULIZ='" & Me.BROIZD & "'"
DoCmd.SetWarnings True
'ProvjeraP (Me.BROIZD)
DoCmd.SetWarnings False
DoCmd.OpenQuery "qrySkladisteKasaProdaja"
DoCmd.OpenQuery "qrySkladisteKasaProdajaDatum"
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?
Miro