Prikazi cijelu temu 09.12.2010 09:58
amir Van mreze
Clan
Registrovan od:08.12.2010
Lokacija:-


Predmet:Re: Fiskalizacija u FBiH
Pozz,
@zxz: radi se o Tremol M modelu koji moze da bude fiskalna kasa ili F. printer.

Evo vec sam se bacio na posao i dosao je odgovor sam na neka pitanja.
Sto se tice komunikacije sa FP dovoljno je samo generisati xml fajl u zadanom direktoriju, a FP server to pokupi i dalje proslijedi do FP-a.

Ostaje mi nejasno jos nacin unosa artikala i klijenata u memoriju FP-a :
- Dali je moguc pojedinacan unos artikala (bez sync_items.xml) s tim da se zada sifra artikla ?
- Kako pokupiti zadnji broj F. racuna iz F.kase da se sinhronizuje sa programom ? Dali se kupi iz neke "result" datoteke ili ...?

Napravio sam i proceduru (delphi) za generisanje XML dokumenata preko TXMLDocument komponente, ako kome zatreba:

PreuzmiIzvorni kôd (Text):
  1. // global variables
  2.   sl      : TStringList;
  3.   xmlDoc  : TXMLDocument;
  4.  
  5. // glavna proc izvjestaja
  6. procedure TForm1.izvjestaj(tip,pocetak,kraj: String); // Ispis izvjstaja
  7. var mainNode : IXMLNode;
  8. begin
  9.     xmlDoc := TXMLDocument.Create(nil) ;
  10.     try
  11.       xmlDoc.Active := true;
  12.       xmlDoc.Version:='1.0';
  13.       xmlDoc.Encoding:='utf-8';
  14.       mainNode := xmlDoc.AddChild('TremolFpServer') ;
  15.       mainNode.Attributes['Command'] := 'Report';
  16.       mainNode.Attributes['Type'] := tip;
  17.       if pocetak<>'' then mainNode.Attributes['Start'] := pocetak;
  18.       if kraj<>'' then mainNode.Attributes['End'] := kraj;
  19.       sl := TStringList.Create;   // String lista
  20.       try
  21.         sl.Assign(xmlDoc.XML) ;
  22.         sl.SaveToFile('c:\Fiscal_comm\Izvjestaj-0000001.xml') ;
  23.       finally
  24.         sl.Free;
  25.       end;
  26.     finally
  27.       xmlDoc := nil;
  28.     end;
  29. end;
  30.  
  31. // poziv  proc. primjer:
  32. izvjestaj('OperatorZ;0','','');  // Z izvjestaj po operatoru