JXJ
02-01-2011, 03:21:18
esta es mi gran duda
¿como hacer Reporte Maestro Detalle con FastReport 4?
lo estoy haciendo con querys
por que solo asi obtengo los datos detalle
mi codigo es asi
QueryVendedores.SQL.Add('select * from vendedores');
QueryVendedores.SQL.execSQL;
for ivendedores := 0 toQueryVendedores.RecordCount - 1 do
begin
//aqui obtenemos los datos de el vendedor y los pasamos a variables
CLAVE_vendedor := QueryVendedores.Fields[0].AsInteger;
RFC_vendedor := QueryVendedores.Fields[1].AsString;
QueryDetale.SQL.Add('// aqui es una query con cast, con left outer join ')
//asi obtengo el total de vendido. la cantidad y los productos
for iDetalleVenta := 0 to QueryDetale.RecordCount - 1 do
begin
rTotal_Venta_Detalle := QueryDetale.Fields[0].AsFloat;
rCantidad_Venta_Detalle := QueryDetale.Fields[1].AsFloat;
sCategoria_Venta_Detalle := QueryDetale.Fields[2].AsString;
sCadenaSalida := sCategoria_Venta_Detalle + ' ' + FloatToStr(rTotal_Venta_Detalle) + ' '+ FloatToStr(rCantidad_Venta_Detalle) ;
Memo1.Lines.Add(sCadenaSalida);
QueryDetale.Next;
end;
QueryDetale.ExecSQL;
QueryVendedores.next
end
todo esto para obtner en el memo un reporte tipo
vendedor JXJ
50 compus CategoriaCompusNuevas
10 CD-RW CategoriaConsumiblres
20 DVDS CategoriaConsumibles
vendedor Manuel
5 compus CategoriaCompusNuevas
1 CD-RW CategoriaConsumiblres
2 DVDS CategoriaConsumibles
vendedor Alex
500 compus CategoriaCompusNuevas
100 CD-RW CategoriaConsumiblres
200 DVDS CategoriaConsumibles
con fast report com opuedo hacer eso
aparte hay que mostrar las imagenes de los productos.
¿como hacer Reporte Maestro Detalle con FastReport 4?
lo estoy haciendo con querys
por que solo asi obtengo los datos detalle
mi codigo es asi
QueryVendedores.SQL.Add('select * from vendedores');
QueryVendedores.SQL.execSQL;
for ivendedores := 0 toQueryVendedores.RecordCount - 1 do
begin
//aqui obtenemos los datos de el vendedor y los pasamos a variables
CLAVE_vendedor := QueryVendedores.Fields[0].AsInteger;
RFC_vendedor := QueryVendedores.Fields[1].AsString;
QueryDetale.SQL.Add('// aqui es una query con cast, con left outer join ')
//asi obtengo el total de vendido. la cantidad y los productos
for iDetalleVenta := 0 to QueryDetale.RecordCount - 1 do
begin
rTotal_Venta_Detalle := QueryDetale.Fields[0].AsFloat;
rCantidad_Venta_Detalle := QueryDetale.Fields[1].AsFloat;
sCategoria_Venta_Detalle := QueryDetale.Fields[2].AsString;
sCadenaSalida := sCategoria_Venta_Detalle + ' ' + FloatToStr(rTotal_Venta_Detalle) + ' '+ FloatToStr(rCantidad_Venta_Detalle) ;
Memo1.Lines.Add(sCadenaSalida);
QueryDetale.Next;
end;
QueryDetale.ExecSQL;
QueryVendedores.next
end
todo esto para obtner en el memo un reporte tipo
vendedor JXJ
50 compus CategoriaCompusNuevas
10 CD-RW CategoriaConsumiblres
20 DVDS CategoriaConsumibles
vendedor Manuel
5 compus CategoriaCompusNuevas
1 CD-RW CategoriaConsumiblres
2 DVDS CategoriaConsumibles
vendedor Alex
500 compus CategoriaCompusNuevas
100 CD-RW CategoriaConsumiblres
200 DVDS CategoriaConsumibles
con fast report com opuedo hacer eso
aparte hay que mostrar las imagenes de los productos.