Bosna i Hercegovina
Glavni Meni
Portal
iCentar
Procitajte pravila
Postavi pitanje
Forumi
Racunari i oprema
Softver i op. sistemi
Hardver i mreze
Programiranje i baze
Nauka i tehnika
Nauka
Tehnika
Dom, porodica, biznis
Dom i porodica
Biznis
Sport i zabava
Sport i rekreacija
Zabava
Ne ljuti se
Ostalo
Zanimljivosti
Vremenska prognoza
Izdvojeno
Najveća kornjača na svijetu!
Magacin rezervnih delova
Provjera duplog unosa
SeniorAndroid developer
Naucne teorije
User control
XMPlay Slusac muzike
Makrobiotika za početnike – u pet koraka!
Emulgatori ubice čovjeka
CarotDAV
Link koji nam je postavio zis
WHEN kako ime na kolona vo tabela
Nasa Najavila Velika Otkrica
Autoservis aplikacija.
Elektronski prijem, pregled i plaćanje računa
BAT file: kopiranje podataka sa jednog diska na drugi
Printer Hp psc 1110 na win 7
Foxit Reader
Budite Humani !!!
Bambus u enterijeru
Racunari i oprema
»
Programirannje i baze podataka
»
Pascal/Delphi
» Procedure za Tremol, (prodaja artikla - TXMLDocuments ):
Zdravo Gost! (
Novi postovi
)
Pascal/Delphi
Pretrazivanje
Tim
Register
Vazni alati
Misc. links
Označi forume kao pročitane
Pravila
Aktivne teme...
u posljednja 24 sata
od zadnje posjete
(RSS, ...)
RSS 2.0
RSS 0.91
RSS 1.0
HTML
OPML
Klipfolio
Atom 1.0
Prijava
zxz
zxz
Ishab Zonic
1957-01-09
Tuzla
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,644
Subject:
Procedure za Tremol, (prodaja artikla - TXMLDocuments ):
Autor:
amir
Download
Izvorni kod (Delphi):
//globalne var.
sl
:
TStringList
;
xmlDoc
:
TXMLDocument
;
procedure
TForm1
.
pracuni_print
;
// Ispis p_racun stavki na FP
var
mainNode
,
itemNode
,
paymentNode
,
adNode
:
IXMLNode
;
begin
xmlDoc
:
=
TXMLDocument
.
Create
(
nil
)
;
try
xmlDoc
.
Active
:
=
true
;
xmlDoc
.
Version
:
=
'1.0'
;
xmlDoc
.
Encoding
:
=
'ibm852'
;
mainNode
:
=
xmlDoc
.
AddChild
(
'TremolFpServer'
)
;
mainNode
.
Attributes
[
'Command'
]
:
=
'Receipt'
;
// Ovdje idu artikli povuceni iz db while --> not eof
itemNode
:
=
mainNode
.
AddChild
(
'Item'
)
;
itemNode
.
Attributes
[
'Description'
]
:
=
'Artikal_1'
;
itemNode
.
Attributes
[
'Quantity'
]
:
=
'1.00'
;
itemNode
.
Attributes
[
'Price'
]
:
=
'1.20'
;
itemNode
.
Attributes
[
'VatInfo'
]
:
=
'2'
;
itemNode
.
Attributes
[
'Department'
]
:
=
'1'
;
itemNode
.
Attributes
[
'Discount'
]
:
=
'0.00%'
;
// Nacin placanja
paymentNode
:
=
mainNode
.
AddChild
(
'Payment'
)
;
paymentNode
.
Attributes
[
'Type'
]
:
=
'Kartica'
;
paymentNode
.
Attributes
[
'Amount'
]
:
=
'0.00'
;
// Pozdravna poruka iz db
adNode
:
=
mainNode
.
AddChild
(
'AdditionalLine'
)
;
adNode
.
Attributes
[
'Message'
]
:
=
'Hvala, posjetite nas ponovo !74'
;
sl
:
=
TStringList
.
Create
;
try
sl
.
Assign
(
xmlDoc
.
XML
)
;
sl
.
SaveToFile
(
'c:\Fiscal_comm\Racun-0000001.xml'
)
;
finally
sl
.
Free
;
end
;
finally
xmlDoc
:
=
nil
;
end
;
end
;
// pozivanje procedure:
pracuni_print
;
Pozdrav
Export
Verzija za printanje
Srodne teme
tremol 260F fiskalni printer i ubuntu/linux
Prodaja
Prodaja auta
Prodaja i kupovina nekretnina
Zahuktava se prodaja Telekom Slovenije
Misc. links
Označi forume kao pročitane
Pravila
Aktivne teme...
u posljednja 24 sata
od zadnje posjete
(RSS, ...)
RSS 2.0
RSS 0.91
RSS 1.0
HTML
OPML
Klipfolio
Atom 1.0
All times are GMT +01:00. Current time: 26.04.2018-06:23.
Prijava
Korisničko ime:
Lozinka:
Zapamti me?
Zaboravili ste lozinku?
Register
Linkovi
Geoid
Zonic Design
Tirol
dihost
Powered by
Viscacha 0.8.0.1
Copyright © 2004-2009, The Viscacha Project