Pokaż jak to robisz
Delphi 
Lazarus var
partia:string;
datanaglowek:string;
d1r,d2r,d3r:string;
order1:string;
textinput:string;
SprawdzenieRaportu:integer;
ILEznakow:integer;
procedure Button1OnClick(Sender: TfrxComponent);
begin
begin
ILEznakow:=length(Edit1.Text);
end;
begin
if ILEznakow <> 5 then
showmessage ('Za mało lub za dużo cyfr w numerze zlecenia !');
if ILEznakow = 5 then
Button1.ModalResult:=mrOK;
// Numer zamówienia
textinput:=ComboBox1.Text+Edit1.Text;
replaceparam('pyt1:order1', 'ftstring', (textinput));
replaceparam('pyt2:order2', 'ftstring', (textinput));
replaceparam('pyt3:order3', 'ftstring', (textinput));
replaceparam('pyt4:order4', 'ftstring', (textinput));
replaceparam('pyt5:order5', 'ftstring', (textinput));
replaceparam('pyt6:order6', 'ftstring', (textinput));
replaceparam('pyt7:order7', 'ftstring', (textinput));
replaceparam('pyt8:order8', 'ftstring', (textinput));
replaceparam('pyt9:order9', 'ftstring', (textinput));
replaceparam('pyt10:order10', 'ftstring', (textinput));
replaceparam('pyt11:order11', 'ftstring', (textinput));
// Zmiana formatu daty
datanaglowek:=DateToStr(<pyt1."DATA_ZLEC">);
d1r:=Copy(datanaglowek,1,4);
d2r:=Copy(datanaglowek,6,2);
d3r:=Copy(datanaglowek,9,2);
// Wypełnienie pola z nr zlecenia
Memo10.Text:='PCV/' + d2r + '/' + d1r + '/' + Edit1.Text + '/' + <pyt1."KLIENT">;
Report.ReportOptions.Name :='DANE_FAKTURA_' + ComboBox1.Text + Edit1.Text
end;
end;
begin
// Button1.ModalResult:=mrNone;
end.
Nawet nie wiem gdzie to dokładnie wrzucić.
Jestem samoukiem internetowo-forumowym, wiec wybaczcie moje braki w podstawach.
I pytanie czy ten eksport to przerobienie na zdjęcie czy też będzie można tam kopiować bloki tekstowe?
wymyśliłem sobie ze przycisk generuj nie będzie aktywny dopóki ilość wpisanych znaków nie będzie równa 5 - tylko to jest //
Odpowiem tak. Nie znam lepszego i bardziej rozbudowanego mechanizmu do raportowania dla delphi niż FastReport. Pracuję na nim od lat i jeszcze nigdy, w żadnej firmie nie zdarzyło mi się, że czegoś się w tym narzędziu nie udało zrobić. Cokolwiek byś sobie nie wymyślił to w FR się da to zrobić jednak faktycznie używanie go wymaga pewnego doświadczenia i wprawy. Jeśli nie masz żadnych podstaw to faktycznie może to być nieco problematyczne. Spróbuję Ci pomóc ale gotowca za Ciebie nie zrobię
Nie oczekuję od nikogo gotowca, podpowiedzi , nakierowania
mój IDE jest dużo biedniejszy, poza tym nie widzę tam takich opcji.
Można za to z podglądu eksportować do PDF i prawidłowo robi PDF z blokami tekstowymi.
Otwierasz okno z tzw designera i jest to narzędzie wizualne do edycji raportu również wyprodukowane przez FR
Natomiast w delphi powinieneś utworzyć aplikację z formą jak na załączonym obrazku.
Zamknij to okno raportu dorzuć na formę (w delphi nie w designerze fastreport) komponent, który ci podałem i wtedy w designerze raportu pojawi Ci się dodatkowa ikonka:
Mi raport wychodzi od razu programu produkcyjnego, on jest jakby dodany jako podprogram.
i ja to już mam w preview
ale export z ikonki nie działa z zielonej strzałki już tak
No widzisz i trzeba było tak od razu. Niestety programiści twojej aplikacji uznali, że nie można definiować nazwy / lokalizacji na sztywno dla tego raportu. Natomiast oczywiście dla konkretnego raportu takie parametry można zdefiniować ale nie z designera:
Z kodu aplikacji: TAK
Z kodu raportu: Raczej nie choć pewności nie mam
Musisz zrozumieć mniej więcej jak to działa.
Na formatce w delphi definiujesz dwa obiekty.
Teraz designer, którego używasz ma dostęp tylko do obiektu TFrxReport. Oznacza to ni mniej ni więcej tyle, że każdy obiekt, który zamieścisz w raporcie (Memo, Picture ...) to są obiekty wewnątrz raportu i do nich dostęp masz natomiast do komponentu TfrxPDFExport już nie
Można co prawda pisać skrypty np w pascalu
jednak do obiektów z poza raportu dostępu mieć nie będziesz.
Dodam jeszcze, że do raportu można przekazać z aplikacji całego dataseta z danymi lub zdefiniować mu poszczególne zmienne (variables), które przekazywane są do raportu natomiast w drugą stronę czyli z poziomu raportu do aplikacji w zasadzie takiej komunikacji nie ma. A nie ma z tego względu, że to jest raport czyli ma Ci on wygenerować coś z aplikacji, a nie ma służyć do sterowania nią :)
Ale masz ze mną urwanie głowy...
dlatego się pytam bo ta opcja jest podczas preview Print - to jest szansa ze wystarczy użyć kodu raportu?
żeby się dało eksportować od razu do pdfa bez dodatkowego klikania (otwarcie podglądu, kliknięcia eksportuj do PDFa, wybrania gdzie się ma zapisać itd) to zmiany musi wprowadzić AUTOR APLIKACJI. Z poziomu raportu tego nie zrobisz
Raport sam z siebie w designerze możesz zmienić i zapisać jako plik z rozszerzeniem np fr3 (lub frx jeśli to VS) i to jest taki fastreportowy xml. Na jego podstawie przy "wydruku" otwiera się okno tzw Preview czyli podglądu z już wypełnionymi danymi np z dataseta. Różnica jest taka, że w designerze na pliku fr3 operujesz na szablonie jak ma wyglądać raport natomiast preview pokazuje Ci jak faktycznie raport będzie wyglądał z danymi. Teraz opcja eksportu jak pokazałeś ma różne formy eksportu, które przewidzieli developerzy. Mało tego plik podglądu również możesz zapisać ale już jako fp3. Nie zmienia to jednak zasadniczo faktu, że dalej operujesz w ramach TFrxReport i do TFrxPDFExport dostępu nie masz. To tak w gestii wyjaśnienia byś zrozumiał natomiast @abrakadaber napisał najjaśniej jak się tylko da co można z tym zrobić :)
Kolejny pomysł to drukarka pdf ustawiona na sztywno do zapisu pliku pdf na dysku w określonej lokalizacji (można zrobić w trybie cichym)
Show dialog odchacze
Ogólnie jako, że napisałeś w dziale delphi to podpowiem Ci jak możnaby spróbować to ugryźć inaczej :) Nie będzie to proste (dla kogoś kto nie zna delphi) ale jeśli Ci bardzo zależy i pomysł z drukarką się nie powiedzie to jest to do wykonania.
Komponent TfrxPDFExport odpowiedzialny za eksport do PDF do którego nie masz dostępu, a który odpowiada za fiename i defaultpath przy eksporcie do PDF finalnie po wielu poziomach dziedziczy z TComponent, który dziedziczy z TObject oznacza to, że komponent ten ma swój uchwyt (THandle). Istnieją gotowe narzędzia, które umożliwiając znalezienie tego uchwytu w aplikacji, która generuje twój raport. Znając już uchwyt możesz napisać kawałek aplikacji, który podmieni na tym obiekcie właśnie filename i defaultpath. Co prawda z FR tego nie robiłem ale np wyłączanie enabla na buttonie czy jakieś modyfikacje formy robiłem jakiś czas temu. Myślę, że przy odrobinie "wytrwałości" udałoby się to zrobić. Jedyny minus, przed uruchomieniem raportu konieczne byłoby uruchamianie tej dodatkowej aplikacji (ewentualnie wydziergać z tego jakąś usługę) :)
Zrobić się da, pytanie czy faktycznie jest Ci to na tyle potrzebne aby się tak bawić :)
Dobrzy ludzie podpowiedzcie jeszcze jak wyciągnąć wartość klucza rejestru i zapisać jako zmienną.
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName]
ComputerName
m4s napisał(a):
Dobrzy ludzie podpowiedzcie jeszcze jak wyciągnąć wartość klucza rejestru i zapisać jako zmienną.
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName]
ComputerName
https://www.google.com/search?client=firefox-b-d&q=read+registry+wstawjęzykjakichcesz
A czy dobrzy ludzie podpowiedzą czy można i jak kodem zmienić wartości ComboBox?
Mam 24 pola combo od 1 do 24 i chce użyć ich w pętli do generowania raportu.
w jednym bloku odpytywać po kolei ComboBox1 itd do ComboBox24
for k := 1 to 24 do
begin
ComboBoxSKRYPT:='ComboBox' + IntToStr(k);
EditSKRYPT:='Edit'+ IntToStr(k);
Showmessage(ComboBoxSKRYPT.Name); // tu jest błąd ze ciągi nie posiadają właściwości lub metod
Showmessage(EditSKRYPT);
end;
To dotyczy tego samego raportu, dlatego nie chciałem rozbijać go na milion tematów.
Raport ewoluuje z dnia na dzień, w tej chwili mam główny blok zapytań powtórzony 24 razy - nieładne to i nie eleganckie. Poza tym sam edycja w w zapytaniu oznacza poprawianie 24 razy w skopiowanych blokach.
Czy mam napisać osobny temat w tym przypadku? @cerrato ???
Zasada jest taka, że jak ktoś inny będzie miał podobny problem to po temacie odnajdzie twój wpis i może skorzysta z informacji w nim zawartych bez potrzeby pytania na forum drugi raz o to samo. W przypadku gdy do jednego tematu wrzucamy inne wątki to robi się z tego śmietnik, który nikomu już do niczego się nie przyda. Dlatego trzymamy się zasady 1 problem = 1 temat