Prikazi cijelu temu 12.07.2011 13:27
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Fiskalni uređaji nazivi artikala
Evo dio koda tvog koji trebas ispraviti.

PreuzmiIzvorni kôd (Visual Basic):
  1.  Set db = CurrentDb()
  2. Set rs2 = db.OpenRecordset("SELECT * FROM qryIspisIzdFiskal WHERE Broj='" & Me.Broj & "'", dbOpenDynaset)
  3. Do While Not rs2.EOF
  4. Dim NazivA as string
  5. NazivA=Rs2!NazArt
  6. NazivA=Naziv_Art(NazivA)
  7.  
  8.  If (rs2!DS_VALUEBroj > 0) Then
  9.  Tekst.WriteText "<" & "DATA BCR" & "=" & """" & rs2!BrArt & """" & " " & "VAT" & "=" & """" & rs2!ArtGPorez & """" & " " & "MES" & "=" & """" & rs2!MES & """" & " " & "DEP=""1"" " & " " & "DSC" & "=" & """" & NazivA & """" & " " & "PRC" & "=" & """" & rs2!PRCFiskal & """" & " " & "AMN" & "=" & """" & rs2!AMNFiskal & """" & " " & "DS_VALUE" & "=" & """" & rs2!DS_VALUEFiskal & """" & " " & "DISCOUNT=""True"" " & "/>" & vbCrLf
  10. Else
  11. Tekst.WriteText "<" & "DATA BCR" & "=" & """" & rs2!BrArt & """" & " " & "VAT" & "=" & """" & rs2!ArtGPorez & """" & " " & "MES" & "=" & """" & rs2!MES & """" & " " & "DEP=""1"" " & " " & "DSC" & "=" & """" & nazivA & """" & " " & "PRC" & "=" & """" & rs2!PRCFiskal & """" & " " & "AMN" & "=" & """" & rs2!AMNFiskal & """" & " " & "/>" & vbCrLf
  12. End If
  13.  
  14. rs2.MoveNext
  15.  
  16.     Loop
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.