- Set db = CurrentDb()
- Set rs2 = db.OpenRecordset("SELECT * FROM qryIspisIzdFiskal WHERE Broj='" & Me.Broj & "'", dbOpenDynaset)
- Do While Not rs2.EOF
- Tekst.WriteText "<" & "DATA BCR" & "=" & """" & rs2!BrArt & """" & " " & "VAT" & "=" & """" & rs2!ArtGPorez & """" & " " & "MES" & "=" & """" & rs2!MES & """" & " " & "DEP=""1"" " & " " & "DSC" & "=" & """" & rs2!NazArt & """" & " " & "PRC" & "=" & """" & rs2!PRCFiskal & """" & " " & "AMN" & "=" & """" & rs2!AMNFiskal & """" & " " [b]& "DS_VALUE" & "=" & """" & rs2!DS_VALUEFiskal &[/b] """" & " " & "/>" & vbCrLf
- rs2.MoveNext
- Loop
- rs2.Close
Prikazi cijelu temu
18.04.2011 08:28
18.04.2011 08:28
Predmet:Petlja Fiskalni problemi
Uređaj best ba od hcp ima jedan problem sa xml fajlom kojeg Å¡aljemo,za ispis računa.Popust (Rabat%) na računu odnosno u xml fajlu se označava sa "DS_VALUE = 0.00" Ali ne smije se slati 0.00 jer onda uređaj javlja error i ne ispiÅ¡e račun.Znači ne smije se slati nikako DS_VALUE kad je iznos 0.00 .Kad je iznos veći od nule onda se normalno Å¡alje 5.00 i to radi .Ja imam ovaj kod u kreiranju xml fajla radi se o recordset-u koji kreira za svaku stavku računa DS_VALUE a ne bi trebao za one stavke kojima je "DS_VALUE = 0.00".Mislim da u ovaj moj kod treba dodati neku petlju tipa Iff ili tako neÅ¡to.Evo dio koda:
Uređaj best ba od hcp ima jedan problem sa xml fajlom kojeg Å¡aljemo,za ispis računa.Popust (Rabat%) na računu odnosno u xml fajlu se označava sa "DS_VALUE = 0.00" Ali ne smije se slati 0.00 jer onda uređaj javlja error i ne ispiÅ¡e račun.Znači ne smije se slati nikako DS_VALUE kad je iznos 0.00 .Kad je iznos veći od nule onda se normalno Å¡alje 5.00 i to radi .Ja imam ovaj kod u kreiranju xml fajla radi se o recordset-u koji kreira za svaku stavku računa DS_VALUE a ne bi trebao za one stavke kojima je "DS_VALUE = 0.00".Mislim da u ovaj moj kod treba dodati neku petlju tipa Iff ili tako neÅ¡to.Evo dio koda:
PreuzmiIzvorni kôd (Text):
Miro