Pocetnik u Delphiju moli dobre ljude kako kreirati fajl prodaja.INP u katalogu Temp
Potpis
Kruno_S
Fiskalni štampač profesional u Delphijevoj aplikaciji Vaga
Zaključano
Zakačeno
> 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:
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;
var
s: TstringList;
begin
s.Create;
try
s.Add('Proba');
s.SaveToFile('C:\Proba.txt');
finally
s.Free;
end;
end;
Potpis
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
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
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.
Za dodavanje komandi možeš koristiti
"SP" je definisan separator tj ";"
A zaklučenje računa
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
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 ;
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)) ;
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) ;
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