Discussion:
Problem z fast reportem
(Wiadomość utworzona zbyt dawno temu. Odpowiedź niemożliwa.)
k***@wp.pl
2012-12-04 10:40:31 UTC
Permalink
Delphi XE2
mam dziwny problem z FastReportem

W raporcie użuwam DbCrossView i jeżeli raport leży na formie to podczas
pokazywania formy mam błąd
class TfrxDbCrossView not Found

Jeżeli raport tworzę z kodu typu:
frxReport:= TfrxReport.Create(Self);
frxReport.DataSet:=frxDBDataset1;
frxReport.LoadFromFile('c:\Rejestr.fr3');

frxReport.ShowReport();

to nie mam błędu.

Jak to można naprawić?
abix
2012-12-04 11:10:21 UTC
Permalink
Post by k***@wp.pl
Delphi XE2
mam dziwny problem z FastReportem
W raporcie użuwam DbCrossView i jeżeli raport leży na formie to podczas
pokazywania formy mam błąd
class TfrxDbCrossView not Found
frxReport:= TfrxReport.Create(Self);
frxReport.DataSet:=frxDBDataset1;
frxReport.LoadFromFile('c:\Rejestr.fr3');
frxReport.ShowReport();
to nie mam błędu.
Jak to można naprawić?
a masz na formę pacnięty TfrxCrossObject?
k***@wp.pl
2012-12-04 11:17:10 UTC
Permalink
Post by k***@wp.pl
Jak to można naprawić?
a masz na formę pacnięty TfrxCrossObject?

Pacnełem i taki sam efekt -> błąd
k***@wp.pl
2012-12-04 14:57:53 UTC
Permalink
Problemy mineły - grzechy instalacji.


Pozostaje Putanie Jak w tak generowanym raporcie
zmieniać style, kolory, do prawej, do lewej, format liczb itp kolumn
procedure TWydrukRejestruVat.frxReport1BeforePrint(Sender: TfrxReportComponent);
var
Cross : TfrxCrossView;
i, j : Integer;

begin
if Sender is TfrxCrossView then
begin
Cross := TfrxCrossView(Sender);

QRejestrVatPom.First;
i := 0;
while not QRejestrVatPom.Eof do
begin
Cross.AddValue([i], ['Kontrachent', 2],
[QRejestrVatPom.FieldByName('Firma').Text]);
Cross.AddValue([i], ['Nip', 2], [QRejestrVatPom.FieldByName('nip').Text]);
Cross.AddValue([i], ['Data', 2],
[FormatDateTime('dd-MM-yyyy',QRejestrVatPom.FieldByName('datadok').AsDateTime)]);
Cross.AddValue([i], ['Dokument', 2],
[TypStringForm[TTypDok(QRejestrVatPom.FieldByName('typdok').AsInteger)]]);
Cross.AddValue([i], ['Brutto', 2],
[QRejestrVatPom.FieldByName('brutto').Text]);

Cross.AddValue([i], [QRejestrVatPom.FieldByName('STAWKA').Text+'% netto '
, 2], [QRejestrVatPom.FieldByName('netto').AsCurrency]);
Cross.AddValue([i], [QRejestrVatPom.FieldByName('STAWKA').Text+'% vat' ,
2], [QRejestrVatPom.FieldByName('podatek').AsCurrency]);



QRejestrVatPom.Next;
Inc(i);
end;
end;

Oraz jak zorganizować suma poprzedniej strony, suma obecnej strony i razem
poprzednia i obecna strona odpowiednich kolumnach?
abix
2012-12-04 17:04:48 UTC
Permalink
W dniu wtorek, 4 grudnia 2012 15:57:53 UTC+1 użytkownik ***@wp.pl napisał:
<...>
Post by k***@wp.pl
Pozostaje Putanie Jak w tak generowanym raporcie
zmieniać style, kolory, do prawej, do lewej, format liczb itp kolumn
Przykład do podobnych fjuczerów widziałem w demie z FastRepora, masz w ProgramFiles.
Post by k***@wp.pl
Oraz jak zorganizować suma poprzedniej strony, suma obecnej strony i razem
poprzednia i obecna strona odpowiednich kolumnach?
Sumy strony mi się nie udało na CrossView zrobić, w zasadzie sam jestem ciekaw jak takie coś uzyskać. Ja wygenerowałem raport z pionowych bandów i działa doskonale.
Loading...