Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Pretvaranje u UTF-8

[es] :: Access :: Pretvaranje u UTF-8

[ Pregleda: 4678 | Odgovora: 16 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Miro35
Miroslav Čondrić
BiH

Član broj: 63672
Poruke: 122
*.tel.net.ba.

Sajt: Tel.net.ba


+3 Profil

icon Pretvaranje u UTF-814.05.2010. u 14:41 - pre 168 meseci
Kod štampanja virmana imam printer LQ680.Access-ov report pretvaram u text file,zatim pozivam batch file i direktno ispisujem na printer.Ovo piše u batch file-u:Copy C:\Vir\rptIspis2.txt Lpt1: Kad ispišem uplatnice nema naših slova:Č,Ć,Đ,Š itd..Na reportu imam naša slova i u text dokumentu koji kreiram imam naša slova.
miro
 
Odgovor na temu

Trtko
Koprivnica

Član broj: 69494
Poruke: 695
*.adsl.net.t-com.hr.



+8 Profil

icon Re: Pretvaranje u UTF-815.05.2010. u 09:32 - pre 168 meseci
Morao bi pretvarat šćć u ..... , vidi donju funkciju
jedino što moraš funkciju malo prepravit

staraslova = Replace(staraslova, "Š", "[")

itd ..... pa onda probaj štampat



Public Function pretvori(dovezi As String) As String
Dim staraslova As String

staraslova = dovezi
staraslova = Replace(staraslova, "[", "Š")
staraslova = Replace(staraslova, "{", "š")

staraslova = Replace(staraslova, "]", "Ć")
staraslova = Replace(staraslova, "}", "ć")

staraslova = Replace(staraslova, "^", "Č")
staraslova = Replace(staraslova, "~", "č")

staraslova = Replace(staraslova, "@", "Ž")
staraslova = Replace(staraslova, "`", "ž")

staraslova = Replace(staraslova, "\", "Đ")
staraslova = Replace(staraslova, "|", "đ")
pretvori = staraslova
End Function


a što ne štampaš direktno iz accessa na štampać ????

vidi kako bi to izgledalo


veliko = Chr(27) & "W" + Chr(1) + Chr(27) & "w" + Chr(1)
malo = Chr(27) & "W" + Chr(0) + Chr(27) & "w" + Chr(0)
masno = Chr(27) & "E"
nemasno = Chr(27) & "F"
duplo = Chr(27) & "G"
normalno = Chr(27) & "H"

Open "lpt1:" For Output As #1


' R1 racun za stampanje
Print #1, masno + veliko + "BILOKALNIK-IGMA d.o.o. R1" + malo + nemasno
Print #1, "CIGLANA 10 "
Print #1, "Radna jedinica :" + masno + duplo + "[LJUNKARA BOTOVO" + normalno + nemasno
Print #1, "48 000 KOPRIVNICA"
Print #1, "Telefon: 048/831-554"
Print #1, "Mati~ni broj: 3697916"
Print #1, ""
Print #1, " Ra~un broj: " + masno + veliko + rek1.Fields("Br_dokum") + malo + nemasno
Print #1, ""
Print #1, masno + duplo + "Kupac : " + rek1.Fields("Otpreme_naziv") + normalno + nemasno
Print #1, "Datum ra~una : " & rek1.Fields("Dat_dokum") & " Vrijeme vaganja : " & rek1.Fields("time_vaga")
Print #1, "Vozilo : " + rek1.Fields("reg_oznaka")
Print #1, "========================================================================"
Print #1, "Ukupna te`ina : " + Space(10 - Len(Format(rek1.Fields("tezina_uku"), " ###,###,###.00"))) & Format(rek1.Fields("tezina_uku"), " ###,###,###.00")
Print #1, "Te`ina praznog vozila : " + Space(10 - Len(Format(rek1.Fields("tezina_voz"), " ###,###,###.00"))) & Format(rek1.Fields("tezina_voz"), " ###,###,###.00")
Print #1, "Te`ina robe : " + Space(10 - Len(Format(rek1.Fields("tezina_rob"), " ###,###,###.00"))) & Format(rek1.Fields("tezina_rob"), " ###,###,###.00")
Print #1, "=================================== === ========== ========== =========="
Print #1, " N a z i v r o b e JMJ Koli~ina Cijena Iznos "
Print #1, "=================================== === ========== ========== =========="


..... itd i moraš na kraju zatvoriti tablicu ili query i obavezno LPT1 port
 
Odgovor na temu

Miro35
Miroslav Čondrić
BiH

Član broj: 63672
Poruke: 122
*.tel.net.ba.

Sajt: Tel.net.ba


+3 Profil

icon Re: Pretvaranje u UTF-815.05.2010. u 10:13 - pre 168 meseci
Ova gornja funkcija mi odgovara samo sad trebam da mi report ili textni dokument pretvori ČĆ i ostala slova u ove znakove koje si postavio u funkciji.Kako to uraditi.Report mi se zove rptIspis2 i onda ga pretvaram preko macroa u rptIspis2.txt.Poslje toga pozivan batch file u kojem piše Copy C:\Vir\rptIspis2.txt Lpt1:
Ako imaš ideju samo da tvoja funkcija pretvori ova slova ili na reportu ili na text dokumentu.
miro
 
Odgovor na temu

Trtko
Koprivnica

Član broj: 69494
Poruke: 695
*.adsl.net.t-com.hr.



+8 Profil

icon Re: Pretvaranje u UTF-815.05.2010. u 10:29 - pre 168 meseci
pa na reportu u txtboxove u koje stavljaš podatke napišeš u controlsource npr... =pretvori(imeprezime)
 
Odgovor na temu

Miro35
Miroslav Čondrić
BiH

Član broj: 63672
Poruke: 122
*.tel.net.ba.

Sajt: Tel.net.ba


+3 Profil

icon Re: Pretvaranje u UTF-815.05.2010. u 11:03 - pre 168 meseci
Hvala ti skužio sam kako treba sad ću to pripremit,ubaciću odmah funkciju i najbolje je ovo rješenje da odma pretvara na report-u.Još jedno pitanje za ovaj ispis računa koji si postavio ispod ove funkcije.To planiram primjenit za svoju kasu koja mi ispisuje preko driver-a.Ovaj si ti ispis postavljo i prije na forumima.Zanima me kad uzimaš podatke za ispis treba li recimo upisivat tblProdaja.Cijena za podatak na ispisu ili sa DLookup?
miro
 
Odgovor na temu

Trtko
Koprivnica

Član broj: 69494
Poruke: 695
*.adsl.net.t-com.hr.



+8 Profil

icon Re: Pretvaranje u UTF-815.05.2010. u 11:59 - pre 168 meseci
Pa možeš u programu otvoriti tablicu ili sqlupit pa sa do while petljom vrtiti do zadnjeg podatka
sve ovisi koliko podataka uzimaš iz tablice. možeš i s dlookupom

npr

Dim dato As Database
Dim rek As Recordset
Set dato = CurrentDb
Dim sqlupit As String
sqlupit = "SELECT * FROM otpreme WHERE GODINA = " & "'" & Year(Date) & "'" & " AND BR_DOKUM=" & "'" & Format(brdok, "00000") & "'"

Set rek = dato.OpenRecordset(sqlupit)

do while not rek.eof()
' i sad tu uzmes podatke iz tablice i ispisuješ ih

Print #1, "Vozilo : " + rek.Fields("reg_oznaka") + " Vozač : " + rek.Fields("vozac") itd.....

rek.movenext

loop
 
Odgovor na temu

Miro35
Miroslav Čondrić
BiH

Član broj: 63672
Poruke: 122
*.tel.net.ba.

Sajt: Tel.net.ba


+3 Profil

icon Re: Pretvaranje u UTF-817.05.2010. u 08:06 - pre 168 meseci
Još nešto čini mi se da kad mi pretvara npr:staraslova = Replace(staraslova, "^", "Č"),ovo je veliko Č,ali isti mi znak upiše i za malo č="^",a trebo bi č="~"
miro
 
Odgovor na temu

Miro35
Miroslav Čondrić
BiH

Član broj: 63672
Poruke: 122
*.tel.net.ba.

Sajt: Tel.net.ba


+3 Profil

icon Re: Pretvaranje u UTF-817.05.2010. u 12:55 - pre 168 meseci
Sad sam ispisivo na printer Lq680 ali mi umjesto č printa š. Isto tako umjesto č ispisiva R sa ovim znakom gore /.
miro
 
Odgovor na temu

vmatoic
Vjekoslav Matoić
Hrvatska

Član broj: 60050
Poruke: 123
*.in2.hr.

Sajt: www.ben.hr


Profil

icon Re: Pretvaranje u UTF-825.05.2010. u 12:59 - pre 168 meseci
Trtko

Molim pomoć.

Kad na printer pošaljem:
Print #1, "Mati~ni broj:" onda mi ispiše lijepo slovo č i nemam problema sa labelama.

No imam problema kad treba ispisati naziv artikla

npr. imam slijedeći recordset (skraćena verzija):
SQL(1) = "SELECT Rc_ID, Naziv_Produkta, Porez_p, Kolicina_sta, MPC, Iznos, PP, Rabat FROM qry_MP_rc_sta where rc_id=" & [Forms]![frm_Mp_rc_zag]![Rc_ID]

I sad mi ide ispis:

'Ispis stavaka iz SQL(1)
Do While Not rs(1).EOF
Sta_rc = rs(1).Fields(1)

Print #1, Sta_rc
rs(1).MoveNext
Loop
rs(1).Close

I sad ako imam artikl koji se zove kolač ne znam kako postaviti kod da mi se slovo č ispisuje kako treba.

Hvala unaprijed!
 
Odgovor na temu

Miro35
Miroslav Čondrić
BiH

Član broj: 63672
Poruke: 122
*.tel.net.ba.

Sajt: Tel.net.ba


+3 Profil

icon Re: Pretvaranje u UTF-825.05.2010. u 13:18 - pre 168 meseci
Vjerovatno je i kod mene tako kad nešto ispisuješ na report uredu je a kad iz baze podatke povlačiš onda nema naših slova

miro
 
Odgovor na temu

Trtko
Koprivnica

Član broj: 69494
Poruke: 695
*.adsl.net.t-com.hr.



+8 Profil

icon Re: Pretvaranje u UTF-826.05.2010. u 07:34 - pre 168 meseci
@vmatoic

pa trebao bi pozvat onu moju funkciju pretvori , samo moraš zamjeniti redosljed slova
a kod ispisa


'Ispis stavaka iz SQL(1)
Do While Not rs(1).EOF

' Sta_rc = rs(1).Fields(1)

Sta_rc = pretvori(rs(1).Fields(1))

Print #1, Sta_rc
rs(1).MoveNext
Loop
rs(1).Close

@Miro35 , vjerojatno je raspored u mojoj funkciji kriv ( "[", "{" ) možda sam ja koristio neki drugi font
gdje je na primjer znak "{" na ascci 298 a možda bi trebao biti na ascci 278 .. itd

tu sam funkciju koristio kad sam iz oraclea vukao podatke u access i štampao ih iz reporta


 
Odgovor na temu

vmatoic
Vjekoslav Matoić
Hrvatska

Član broj: 60050
Poruke: 123
*.in2.hr.

Sajt: www.ben.hr


Profil

icon Re: Pretvaranje u UTF-826.05.2010. u 11:44 - pre 168 meseci
Hm, neće.

Ne znam u čemu je problem.

Promijenio sam slijedeće da vidim na primjeru:

Sta_rc = pretvori(rs(1).Fields(1)) & " Mati~ni"

I onda mi se rs(1) ne ispiše sa našim znakom (kolač) a matični se ispiše uredno (a na početku tog istog modula sa zalijepio tvoju pretvori funkciju)?

poz.
 
Odgovor na temu

Trtko
Koprivnica

Član broj: 69494
Poruke: 695
*.adsl.net.t-com.hr.



+8 Profil

icon Re: Pretvaranje u UTF-826.05.2010. u 16:42 - pre 168 meseci
Funkcija bi morala izgledati ovako

Public Function kodna387(dovezi As String) As String
Dim staraslova As String

staraslova = dovezi
staraslova = Replace(staraslova, "Š", "[")
staraslova = Replace(staraslova, "š", "{")

staraslova = Replace(staraslova, "Ć", "]")
staraslova = Replace(staraslova, "ć", "}")

staraslova = Replace(staraslova, "Č", "^")
staraslova = Replace(staraslova, "č", "~")

staraslova = Replace(staraslova, "Ž", "@")
staraslova = Replace(staraslova, "ž", "`")

staraslova = Replace(staraslova, "Đ", "\")
staraslova = Replace(staraslova, "đ", "|")
kodna387 = staraslova
End Function


Promijenio sam slijedeće da vidim na primjeru:

Sta_rc = kodna387(rs(1).Fields(1)) & " Mati~ni"

stavi msgbox sta_rc nek ti ispiše i na ekranu

ako ne ispiše dobro kolač a matični dobro ispiše onda iskopiraj znak ~ iz matični i prekopiraj u funkciju
i tako za sve znakove ...

moralo bi raditi,


 
Odgovor na temu

vmatoic
Vjekoslav Matoić
Hrvatska

Član broj: 60050
Poruke: 123
*.adsl.net.t-com.hr.

Sajt: www.ben.hr


Profil

icon Re: Pretvaranje u UTF-803.06.2010. u 14:06 - pre 168 meseci
Nisam stigao prije probati, no eto... radi!!!

Hvala puno!

Ima još samo jedna caka.
Neće mi uzimati u obzir razliku između velikih i malih slova, pa sam zakometirao velika slova i sad mi ispisuje slovo koje treba ali uvijek kao malo.

Public Function kodna387(dovezi As String) As String
Dim staraslova As String

staraslova = dovezi
'staraslova = Replace(staraslova, "Š", "[")
staraslova = Replace(staraslova, "š", "{")

'staraslova = Replace(staraslova, "Ć", "]")
staraslova = Replace(staraslova, "ć", "}")

'staraslova = Replace(staraslova, "Č", "^")
staraslova = Replace(staraslova, "č", "~")

'staraslova = Replace(staraslova, "Ž", "@")
staraslova = Replace(staraslova, "ž", "`")

'staraslova = Replace(staraslova, "Đ", "\")
staraslova = Replace(staraslova, "đ", "|")
kodna387 = staraslova

End Function

A kad je odkomentirano onda uvijek ispisuje velika slova. :)

Uglavnom, ovo mi je sasvim dobro.

Hvala još jednom.
 
Odgovor na temu

Zidar
Canada

Moderator
Član broj: 15387
Poruke: 3085
*.100.46-69.q9.net.



+79 Profil

icon Re: Pretvaranje u UTF-803.06.2010. u 16:12 - pre 168 meseci
Citat:

Neće mi uzimati u obzir razliku između velikih i malih slova, pa sam zakometirao velika slova i sad mi ispisuje slovo koje treba ali uvijek kao malo.

A kad je odkomentirano onda uvijek ispisuje velika slova.



Razlog tome moze biti nacin sortiranja u tekucoj MDB bazi. Na pocetku modula verovatno imas Option Compare Database . Pokusaj sa Option Compare Binary . Tvoj Optin Compare Database verovatno ne pravi razliku izmedju malih i velikih slova.

 
Odgovor na temu

vmatoic
Vjekoslav Matoić
Hrvatska

Član broj: 60050
Poruke: 123
*.in2.hr.

Sajt: www.ben.hr


Profil

icon Re: Pretvaranje u UTF-810.06.2010. u 12:11 - pre 168 meseci
To je riješilo problem.

Hvala!
 
Odgovor na temu

Zidar
Canada

Moderator
Član broj: 15387
Poruke: 3085
*.100.46-69.q9.net.



+79 Profil

icon Re: Pretvaranje u UTF-825.02.2011. u 16:13 - pre 159 meseci
Tema je prebacena u "Bivse TOP teme", da napravimo mesta za "Fiskalizaciju"

 
Odgovor na temu

[es] :: Access :: Pretvaranje u UTF-8

[ Pregleda: 4678 | Odgovora: 16 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.