Centar za edukaciju-BiH

iCentar → Racunari i oprema → Programirannje i baze podataka → Access


Prosiri i skupi Opcije teme
Stranice (72):1,2 ... 48,49,50,51,52 ... 71,72
 Prikazi prvu neprocitanu poruku

#491 07.07.2011 12:32
Sijedi Van mreze
Clan
Registrovan od:05.07.2011
Postovi:40


Predmet:Re: Fiskalizacija u FBiH
Ok, hvala !
Ovo FileSearch ima nacina da se odradi u VB-u, nije problem.
Ovo drugo "set x=New Stream" se odnosi na one Mirine postove za formiranje XML fajlova koji se Å¡alju Tremol fiskalnom printeru.
Ja sam, čini mi se, za pravljenje XML-a prije koristio neku kontrolu "ChilKatXml", a ovaj Mirin način mi djeluje dosta jednostavnije, pa zato pitam.
↑  ↓

#492 07.07.2011 13:49
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


Predmet:Re: Fiskalizacija u FBiH
Za ovo drugo ce ti vjerovatno miro35 odgovoriti. Ukoliko radis u vb moze se desiti jos poneka naredba da nece ali rijetkost je i uglavnom imaju slicne.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#493 08.07.2011 08:39
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Postovi:608


Predmet:Re: Fiskalizacija u FBiH
Evo kako je kod mene pravljeme xml fajla koji ispisuje račun:
PreuzmiIzvorni kôd (Visual Basic):
  1. Dim rs2
  2. Dim db As Database
  3. Set Tekst = New Stream''Ovde je to što pitaš
  4. Tekst.Open
  5. Tekst.Position = 0
  6. Tekst.Charset = "IBM852"
  7. Tekst.WriteText "<?xml version=""1.0"" encoding=""IBM852""?>" & vbCrLf
  8. Tekst.WriteText "<TremolFpServer Command=""Receipt"" " & "Operator" & "=" & """" & Me.RedniBroj & ";" & Me.SIFDJEL & """" & " " & ">" & vbCrLf
  9.  
  10. Set db = CurrentDb()
  11. Set rs2 = db.OpenRecordset("SELECT * FROM qryIZLAZMP WHERE BROULIZ='" & Me.BROIZD & "'", dbOpenDynaset)
  12.     Do While Not rs2.EOF
  13.  
  14.  Tekst.WriteText "<" & "Item Description" & "=" & """" & rs2!TvojNaziv & """" & " " & "Quantity" & "=" & """" & rs2!TvojaKolicina & """" & " " & "Price" & "=" & """" & rs2!TvojaCijena & """" & " " & "VatInfo" & "=" & """" & rs2!TvojPorez(PDV=2,AkoNijePDV=1) & """" & " " & "Department" & "=" & """" & rs2!TvojeOdjeljenje & """" & " " & "UnitName" & "=" & """" & rs2!TvojaJedinicaMjere & """" & " " & "Discount" & "=" & """" & rs2!TvojPopust & """" & " " & "/>" & vbCrLf
  15.  
  16. rs2.MoveNext
  17.  
  18.     Loop
  19.    
  20.       rs2.Close
  21.       Tekst.WriteText "<Payment Type=""Virman"" Amount=""0""/>" & vbCrLf
  22.       Tekst.WriteText "<Payment Type=""Gotovina"" " & "Amount" & "=" & """" & Me.Sveukupno & """" & " " & "/>" & vbCrLf
  23.       Tekst.WriteText "<AdditionalLine Message=""Hvala na posjeti""/>" & vbCrLf
  24.      
  25.       Tekst.WriteText "<AdditionalLine Message=" & """" & Me.BROIZD & """" & " " & "/>" & vbCrLf
  26.    
  27.       Tekst.WriteText "</" & "TremolFpServer" & ">" & vbCrLf
  28.      
  29.    
  30.     Set db = Nothing
  31. Tekst.SaveToFile "C:\Prodaja\" & Me.BROIZD & " Racun.xml", adSaveCreateOverWrite
  32.  Tekst.Close
Ovo gore Å¡to je operator to ti moram posebno objasniti ako želiÅ¡ da tako napraviÅ¡.Imaju neka pravila.4 mjesta ta Å¡ifru operatera pa redni broj pa 10 mjesta ime operatera bez slova č,ć,Å¡ itd jer ta slova zauzimaju po dva mjesta.
Ovo new strem znači da definiraÅ¡ text u kodu koji stalno mjenjaÅ¡:
Text.WriteText nešto
Text.WriteText nešto1
Text.WriteText nešto2
Miro
Ovaj post je ureden 1 puta. Posljednja izmjena 08.07.2011 10:08 od strane zxz. ↑  ↓

#494 08.07.2011 08:48
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Postovi:608


Predmet:Re: Fiskalizacija u FBiH
Da obnovimo znanje evo kako se prijavljuju operateri kod tremola i ovo ako prilagodite to radi ko sat i ovo je najbolja prilagodba za tremole,jer sa ovim imate najmanje zastoja i imate izvjeÅ¡ća po operaterima.Takodje operateri mogu imati svoju lozinku dužine 4 mjesta i prijavljuju se na printer ili na tremolM prilikom slanja xml fajla za ispis računa.Ovo dobro proučite i napravite ovako.

Prilozi:
Informacije o tipu datoteke za:rar  Prijava5.rar
Preuzimanja:138
Velicina datoteke:299 Bajt
Informacije o tipu datoteke za:rar  Ovo su jedinice mjere za Tremol uređaje i prijava operatera.rar
Preuzimanja:175
Velicina datoteke:2.84 KB

Miro
↑  ↓

#495 08.07.2011 10:15
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


Predmet:Re: Fiskalizacija u FBiH
New Stream--Je naredba od neke reference.
Doduse ponasa se isto kao i da smo otvorili neki file sa naredbom opern For Output.
Ako mozes procitaj u svojo mdb reference koje su ucitane.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#496 08.07.2011 10:26
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


Predmet:Re: Fiskalizacija u FBiH
Evo ovako bi trebalo da izgleda bez ove naredbe stream:
PreuzmiIzvorni kôd (Visual Basic):
  1. Dim rs2
  2. Dim db As Database
  3. Set Tekst = New Stream ''Ovde je to što pitaš
  4. Open "C:\Prodaja\" & Me.BROIZD & " Racun.xml" For Output As 2
  5. 'Tekst.Open
  6. 'Tekst.Position = 0
  7. 'Tekst.Charset = "IBM852"
  8. Print #2, "IBM852"
  9. Print #2, "<?xml version=""1.0"" encoding=""IBM852""?>" & vbCrLf
  10. Print #2, "<TremolFpServer Command=""Receipt"" " & "Operator" & "=" & """" & Me.RedniBroj & ";" & Me.SIFDJEL & """" & " " & ">" & vbCrLf
  11.  
  12. Set db = CurrentDb()
  13. Set rs2 = db.OpenRecordset("SELECT * FROM qryIZLAZMP WHERE BROULIZ='" & Me.BROIZD & "'", dbOpenDynaset)
  14.     Do While Not rs2.EOF
  15.  
  16.  Print #2, "<" & "Item Description" & "=" & """" & rs2!TvojNaziv & """" & " " & "Quantity" & "=" & """" & rs2!TvojaKolicina & """" & " " & "Price" & "=" & """" & rs2!TvojaCijena & """" & " " & "VatInfo" & "=" & """" & rs2!TvojPorez(PDV = 2, AkoNijePDV = 1) & """" & " " & "Department" & "=" & """" & rs2!TvojeOdjeljenje & """" & " " & "UnitName" & "=" & """" & rs2!TvojaJedinicaMjere & """" & " " & "Discount" & "=" & """" & rs2!TvojPopust & """" & " " & "/>" & vbCrLf
  17.  
  18. rs2.MoveNext
  19.  
  20.     Loop
  21.    
  22.       rs2.Close
  23.       Print #2, "<Payment Type=""Virman"" Amount=""0""/>" & vbCrLf
  24.       Print #2, "<Payment Type=""Gotovina"" " & "Amount" & "=" & """" & Me.Sveukupno & """" & " " & "/>" & vbCrLf
  25.       Print #2, "<AdditionalLine Message=""Hvala na posjeti""/>" & vbCrLf
  26.      
  27.       Print #2, "<AdditionalLine Message=" & """" & Me.BROIZD & """" & " " & "/>" & vbCrLf
  28.    
  29.       Tekst.WriteText "</" & "TremolFpServer" & ">" & vbCrLf
  30.      
  31.    
  32.     Set db = Nothing
  33. 'Tekst.SaveToFile "C:\Prodaja\" & Me.BROIZD & " Racun.xml", adSaveCreateOverWrite
  34. 'Tekst.Close
  35. Close #2
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#497 08.07.2011 10:52
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Postovi:608


Predmet:Re: Fiskalizacija u FBiH
Imam u referencama ovo:
VB for aplication
microsoft access 11. object library
OLE automation
microsoft DAO 3.6 object library
microsoft ADO Ext. 2.8 for DDL and security
microsoft activex data object 2.5 library
Miro
↑  ↓

#498 08.07.2011 11:02
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


Predmet:Re: Fiskalizacija u FBiH
microsoft activex data object 2.5 library--ovaj dll ima stream naredbu.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#499 08.07.2011 12:31
Sijedi Van mreze
Clan
Registrovan od:05.07.2011
Postovi:40


Predmet:Re: Fiskalizacija u FBiH
OK dečki, sve jasno oko programiranja, a za rad s Tremol-om mislim da je sve već objaÅ¡njeno u ove 34 stranice ovog topic-a.
Vi kod pravljenja XML fajla koristite "klasiku" "Open for..." i sl. nije mi uopÅ¡te naum palo da na takav način pravim XML.
Hvala Vam još jednom.
LP
↑  ↓

#500 08.07.2011 12:35
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


Predmet:Re: Fiskalizacija u FBiH
Da ovo smo vec radili kada su trebali obrasci za poresko.
Ako imas neku drugu ideju i ako ti nije tesko mozes je izloziti u drugoj temi.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

Stranice (72):1,2 ... 48,49,50,51,52 ... 71,72

Srodne teme

Ko je online?

Aktivni clanovi:
nema clanova


Kontakt
Sva vremena su GMT +02:00. Trenutno vrijeme: 12: 48 pm.