Prikazi cijelu temu 09.12.2010 19:36
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Procedure za Tremol, (prodaja artikla - TXMLDocuments ):
Autor:amir
PreuzmiIzvorni kôd (Delphi):
  1. //globalne var.
  2.   sl      : TStringList;
  3.   xmlDoc  : TXMLDocument;
  4.  
  5.  
  6. procedure TForm1.pracuni_print;  // Ispis p_racun stavki na FP
  7.  var
  8.     mainNode, itemNode, paymentNode, adNode  : IXMLNode;
  9. begin
  10.     xmlDoc := TXMLDocument.Create(nil) ;
  11.     try
  12.       xmlDoc.Active := true;
  13.       xmlDoc.Version:='1.0';
  14.       xmlDoc.Encoding:='ibm852';
  15.  
  16.       mainNode :=xmlDoc.AddChild('TremolFpServer') ;
  17.       mainNode.Attributes['Command'] := 'Receipt';
  18.  
  19.       // Ovdje idu artikli povuceni iz db while --> not eof
  20.       itemNode := mainNode.AddChild('Item') ;
  21.       itemNode.Attributes['Description'] := 'Artikal_1';
  22.       itemNode.Attributes['Quantity'] := '1.00';
  23.       itemNode.Attributes['Price'] := '1.20';
  24.       itemNode.Attributes['VatInfo'] := '2';
  25.       itemNode.Attributes['Department'] := '1';
  26.       itemNode.Attributes['Discount'] := '0.00%';
  27.  
  28.       // Nacin placanja
  29.       paymentNode:= mainNode.AddChild('Payment');
  30.       paymentNode.Attributes['Type'] := 'Kartica';
  31.       paymentNode.Attributes['Amount'] := '0.00';
  32.  
  33.       // Pozdravna poruka iz db
  34.       adNode := mainNode.AddChild('AdditionalLine');
  35.       adNode.Attributes['Message'] := 'Hvala, posjetite nas ponovo !74';
  36.  
  37.       sl := TStringList.Create;
  38.       try
  39.         sl.Assign(xmlDoc.XML) ;
  40.         sl.SaveToFile('c:\Fiscal_comm\Racun-0000001.xml') ;
  41.       finally
  42.         sl.Free;
  43.       end;
  44.     finally
  45.       xmlDoc := nil;
  46.     end;
  47. end;
  48.  
  49. // pozivanje procedure:
  50.  pracuni_print;
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.