bla bla
Naziv cijena kol iznos
kafa 1 2 2
coko 1.5 3 4.5
.
.
.
kod mene se sve razleti...
moj pokusaj (naziv i cijena su ok...preumoran sam da kontam dalje)
printer.Canvas.TextOut(2,14,'R.BR NAZIV MPC KOL IZNOS');
datasource1.DataSet.First;
x:=1;
vr:=0;
vru:=0;
while datasource1.DataSet.Eof=false do
begin
vr:=datasource1.DataSet.Fields.Fields[4].AsFloat*datasource1.DataSet.Fields.Fields[10].AsFloat;
vru:=vru+vr;
pro:='';//razmak izmedju cijene i naziva
pro1:='';//razmak izmedju cijene i kolicine
pro2:='';//razmak izmedju iznosa i kolicine
//ovo sa textout ne ide!!!
for i:=1 to (23-length(datasource1.DataSet.Fields.Fields[19].AsString )-length(datasource1.DataSet.Fields.Fields[10].AsString)) do
pro:=pro+' ';
for i:=1 to (8-length(datasource1.DataSet.Fields.Fields[10].AsString)) do
pro1:=pro1+' ';
for i:=1 to (8-length(floattostr(vru))) do
pro2:=pro2+' ';
printer.Canvas.TextOut(2,14+x,inttostr(x)+'. '+datasource1.DataSet.Fields.Fields[19].AsString+pro+datasource1.DataSet.Fields.Fields[10].AsString+' '+datasource1.DataSet.Fields.Fields[4].AsString+' '+floattostr(vr));
inc(x);
datasource1.DataSet.Next;