Sijedi 07.07.2011 12:32
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.

zxz 07.07.2011 13:49
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.

miro35 08.07.2011 08:39
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

miro35 08.07.2011 08:48
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:
Prijava5.rar (Velicina datoteke:299 Bajt)
Ovo su jedinice mjere za Tremol uređaje i prijava operatera.rar (Velicina datoteke:2.84 KB)

zxz 08.07.2011 10:15
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.

zxz 08.07.2011 10:26
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

miro35 08.07.2011 10:52
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

zxz 08.07.2011 11:02
Predmet:Re: Fiskalizacija u FBiH

microsoft activex data object 2.5 library--ovaj dll ima stream naredbu.

Sijedi 08.07.2011 12:31
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

zxz 08.07.2011 12:35
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.