Pogledaj moj kod
Code:
var
Naziv,Cijena,Kolicina,Sifra,Stopa,Iznos,PDV,bezPDV : String;
Lista : TStringList;
begin
Lista := TStringList.Create;
Lista.Add('Sifra');
Lista.Add('Naziv');
Lista.Add('Stopa');
Lista.Add('Kolicina');
Lista.Add('Cijena');
Lista.Add('bezPDV');
Lista.Add('PDV');
Lista.Add('Iznos');
izvjPOSracun.Memo1.Lines.Add(Lista.Strings[0]+' '+Lista.Strings[1]+' '+Lista.Strings[2]);
izvjPOSracun.Memo1.Lines.Add(Lista.Strings[3]+' '+Lista.Strings[4]+' '+Lista.Strings[5]+' '+Lista.Strings[6]+' '+Lista.Strings[7]);
izvjPOSracun.Memo1.Lines.Add('****************************************');
frmProdaja.tblProdaja.First;
while not frmProdaja.tblProdaja.Eof do
begin
Sifra := frmProdaja.tblProdajaSifra.AsString;
if length(Sifra) < 5 then
Sifra := Sifra + StringOfChar(' ', 5-Length(Sifra))
else Sifra := Copy(Sifra,1,5);
Naziv := frmProdaja.tblProdajaNaziv.AsString;
if length(Naziv) < 50 then Naziv := Naziv + StringOfChar(' ', 30-Length(Naziv))
else Naziv := Copy(Naziv,1,30);
Stopa := FloatToStrF(frmProdaja.tblProdajaPDV.AsInteger,ffFixed,18,2);
if length(Stopa) < 8 then Stopa := Stopa + StringOfChar(' ', 8-Length(Stopa))
else Stopa := Copy(Stopa,1,8);
Kolicina := FloatToStrF(frmProdaja.tblProdajaKolicina.AsFloat, ffFixed, 18, 2);
if length(Kolicina) < 2 then Kolicina := StringOfChar(' ', 10-Length(Kolicina)) + Kolicina
else Kolicina := Copy(Kolicina,1,10);
Cijena := FloatToStrF(frmProdaja.tblProdajaCijena.AsFloat, ffFixed, 18, 2);
if length(Cijena) < 9 then Cijena := StringOfChar(' ', 10-Length(Cijena)) + Cijena
else Cijena := Copy(Cijena,1,10);
Iznos := FloatToStrF(frmProdaja.tblProdajaIznos.AsFloat, ffFixed, 18, 2);
if length(Iznos) < 10 then Iznos := StringOfChar(' ', 10-Length(Iznos)) + Iznos
else Iznos := Copy(Iznos,1,10);
PDV := FloatToStrF(frmProdaja.tblProdajaSumPDV.AsFloat, ffFixed, 18, 2);
if length(PDV) < 6 then PDV := StringOfChar(' ', 6-Length(PDV)) + PDV
else PDV := Copy(PDv,1,6);
bezPDV := FloatToStrF(frmProdaja.tblProdajaRabatS.AsFloat, ffFixed, 18, 2);
if length(bezPDV) < 9 then bezPDV := StringOfChar(' ', 9-Length(bezPDV)) + bezPDV
else bezPDV := Copy(bezPDV,1,9);
// Dodavanje u listbox1
izvjPOSracun.Memo1.Lines.Add(Sifra+Naziv+Stopa);
izvjPOSracun.Memo1.Lines.Add(Kolicina+Cijena+bezPDV+PDV+Iznos);
frmProdaja.tblProdaja.Next;
end;
izvjPOSracun.Memo1.Lines.Add('****************************************');
a opet mi nestima kako treba nikako nemogu da ustimam da bude sve uredu
[Ovu poruku je menjao savkic dana 03.05.2008. u 16:13 GMT+1]