Predmet:Procedure za Tremol, (prodaja artikla - TXMLDocuments ):
Autor:
amir
PreuzmiIzvorni kôd (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;
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.