sl      : TStringList;

  xmlDoc  : TXMLDocument;

 

 

procedure TForm1.pracuni_print;  // Ispis p_racun stavki na FP

 var

    mainNode, itemNode, paymentNode, adNode  : IXMLNode;

    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;

 

 pracuni_print;