[es] - Fiskalni štampač profesional u Delphijevoj aplikaciji Vaga

Rode
Miodrag Krunić
Nezaposlen
Sokolac

Član broj: 211606
Poruke: 8
*.teol.net.

+1 Profil

Fiskalni štampač profesional u Delphijevoj aplikaciji Vaga

^{06.02.2009. u 19:17 - pre 185 meseci}

Pocetnik u Delphiju moli dobre ljude kako kreirati fajl prodaja.INP u katalogu Temp

Kruno_S

Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739

+92 Profil

Re: Fiskalni štampač profesional u Delphijevoj aplikaciji Vaga

^{06.02.2009. u 20:59 - pre 185 meseci}

> Pocetnik u Delphiju moli dobre ljude kako kreirati fajl prodaja.INP u katalogu Temp

Moraš razjasniti pitanje, većina nas ne zna šta je prodaja.INP ili katalog Temp. Ako je tvoje pitanje kako napraviti neki tekstualni fajl na disku, možeš koristiti TStringList, npr:

Code:

var
  s: TstringList;
begin
  s.Create;
  try
    s.Add('Proba');
    s.SaveToFile('C:\Proba.txt');
  finally
    s.Free;
  end;
end;

Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html

Odgovor na temu

juha5803

Član broj: 74797
Poruke: 88
*.teol.net.

Profil

Re: Fiskalni štampač profesional u Delphijevoj aplikaciji Vaga

^{07.02.2009. u 07:21 - pre 185 meseci}

U pitanju su datoteke sa fiskalni printer ME PROFESSIONAL. Nije problem samo kreiranje datoeke to je obični txt samo što mu je nastavak promjenjen u inp.

Code:

  AssignFile(logfile1,'c:\temp\prodaja.inp');

   if not(FileExists('c:\temp\prodaja.inp')) then begin
    ReWrite(logfile1);
   end else begin
    Erase(logfile1) ;
    ReWrite(logfile1);
   end ;

Za dodavanje komandi možeš koristiti

Code:

Append(logfile1);
Writeln(logfile1,('S,1,______,_,__'+SP+Copy(DM.cdsArtiliNaziv.AsString,1,31)+SP+ DM.cdsArtikliCIJENA.AsString+SP+DM.cdsProdajaKOL.asString+';1;1;2;0'+sp+DM.cdsArtikliPLU.AsString +sp)) ;

"SP" je definisan separator tj ";"

A zaklučenje računa

Code:

Writeln(logfile1,( 'T,1,______,_,__;'));
CloseFile(logfile1) ;

Sa varijacijama na temu zavisno od vrste plaćananja itd...

Ovo gore ti rješava malo toga jer ti ima i drugih problema od prostog kreitanja inp datoteke

Odgovor na temu