Predmet:Re: Iz Å kole VB-a
Evo kod kojim kreiram xml fajl:
PreuzmiIzvorni kôd (Text):Dim rs2 As DAO.Recordset
Dim db As DAO.Database
Open "C:\HCP\TO_FP\RCP_" & Me.BROIZD & ".XML" For Output As 1
Dim Tekst As String
Tekst = "<?xml version=""1.0"" encoding=""UTF-8"" standalone=""yes""?>"
Print #1, Tekst
Tekst = "<RECEIPT>"
Print #1, Tekst
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 = "<" & "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"" " & "/>"
Print #1, Tekst
Else
Tekst = "<" & "DATA BCR" & "=" & """" & rs2!FSIFRA & """" & " " & "VAT" & "=" & """" & rs2!ArtGPorez & """" & " " & "MES" & "=" & """" & rs2!MES & """" & " " & "DEP=""1"" " & " " & "DSC" & "=" & """" & NazivA & """" & " " & "PRC" & "=" & """" & rs2!Cijena & """" & " " & "AMN" & "=" & """" & rs2!KOLICINASAD & """" & " " & "/>"
Print #1, Tekst
End If
Else
If (rs2!DS_VALUEBroj > 0) Then
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"" " & "/>"
Print #1, Tekst
Else
Tekst = "<" & "DATA BCR" & "=" & """" & rs2!SIFART & """" & " " & "VAT" & "=" & """" & rs2!ArtGPorez & """" & " " & "MES" & "=" & """" & rs2!MES & """" & " " & "DEP=""1"" " & " " & "DSC" & "=" & """" & NazivA & """" & " " & "PRC" & "=" & """" & rs2!Cijena & """" & " " & "AMN" & "=" & """" & rs2!KOLICINASAD & """" & " " & "/>"
Print #1, Tekst
End If
End If
rs2.MoveNext
Loop
rs2.Close
Tekst = "<DATA PAY=""1"" " & "AMN" & "=" & """" & Me.Sveukupno & """" & " " & "/>"
Print #1, Tekst
'Tekst.WriteText "<DATA PAY=""0"" 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 = "</" & "RECEIPT" & ">"
Print #1, Tekst
'Tekst.WriteText "<TremolFpServer>" & vbCrLf
Set db = Nothing
Close #1
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
Miro
Ovaj post je ureden
1
puta. Posljednja izmjena 13.08.2012 08:16 od strane miro35.