[Risolto] lazReport - primi passi - 2.a parte

[petrusic]

La segnalazione di Errore, come già detto, NON si verifica sempre, quindi ieri sera ho provato a ridisegnare interamente il report nel formato A5 e sono riuscito ad arrivare fino alla fine delle impostazioni senza incappare nell'Errore. Per riuscire in ciò, ho tentato, e sembra che ci sia riuscito, ad impostare la pagina di tipo A5, subito dopo l'accesso all'area di Report Designer e prima ancora di procedere con tutte le altre impostazioni sul modello.

Posso, perciò, finalmente, cominciare ad aggiungere la codifica per riempire il report coi dati da stampare in PDF.
 

[petrusic]

Per stampare in pdf da lazreport devi usare trascinare sulla form il componente TfrTNPDFExport (ad esempio con il nome frTNPDFExport1), per farlo devi avere installato il pacchetto che trovi nella directory directory_dove_è_installato_lazarus\components\lazreport\source\addons\pdfexport\lazreportpdfexport.lpk
Detto questo poi ipotizzando che il tuo oggetto TfrReport si chiami MyReport ed hai già provveduto a disegnarlo, devi fare quanto segue

Codice: [Seleziona]

               if MyReport.PrepareReport then
               begin
                    SaveDialog1.Filter:='PDF files (*.pdf)|*.pdf';
                    SaveDialog1.FileName:='NomeDelFile_' + StringReplace(DateToStr(Now()),'/','', [rfReplaceAll]) + '_' + StringReplace(TimeToStr(Now()) ,':','.', [rfReplaceAll]);
                    if SaveDialog1.Execute then
                    begin
                         if uppercase(ExtractFileExt(SaveDialog1.FileName))='.PDF' then
                         begin
                              //non faccio niente, il nome è già corretto
                              NomePDF:=SaveDialog1.FileName;
                         end
                         else
                         begin
                              //il nome non è corretto, quindi ci aggiungo il .pdf alla fine
                              NomePDF:=SaveDialog1.FileName + '.pdf';
                         end;
                         Screen.Cursor := crHourglass;
                         MyReport.ExportTo(TFrTNPDFExportFilter, NomePDF);
                         Screen.Cursor := crDefault;
                         ShowMessage('Creazione del file PDF terminata.');
                    end;
               end;

Ho quasi superato le difficoltà per disegnare la pagina in formato A5 del report.
Ora dovrei aggiungere le istruzioni che mi hai indicato per produrre il documento pdf, ma non ho capito dove aggiungerle:
Riporto qui la procedura che avvia la preview di stampa:

Codice: [Seleziona]

procedure TForm9.BPulsStampaClick(Sender: TObject);
var
  i, k, nuRg: integer;

  cellaSel, fileReport, striMia, titolo: String;

begin
  WriteLn('procedure TForm9.BPulsStampaClick');
  nuRg:= GridChiuStmp.RowCount;
  if MGridPdf9.Active then
  begin
    MGridPdf9.Close;
  end;
  MGridPdf9.Clear(False);
  MGridPdf9.Open;
  for i:= 1 to nuRg - 1 do
  begin
    MGridpdf9.Append;
    MGridpdf9.Edit;
    MGridpdf9.FieldByName('voceSotCto').Text:= GridChiuStmp.Cells[2, i];
    MGridpdf9.FieldByName('entrate').Text:= GridChiuStmp.Cells[3, i];
    MGridpdf9.FieldByName('uscite').Text:= GridChiuStmp.Cells[4, i];
  end;
  fileReport:= percorso + '/Dati/pdfEntrUsc.lrf';
  frReport1.LoadFromFile(fileReport);
  frReport1.ShowReport;

  if frReport1.PrepareReport then    <------- Gruppo istruzioni per produrre il modulo in PDF
  begin
     SaveDialog1.Filter:='PDF files (*.pdf)|*.pdf';
     SaveDialog1.FileName:='NomeDelFile_' + StringReplace(DateToStr(Now()),'/','', [rfReplaceAll]) + '_' + StringReplace(TimeToStr(Now()) ,':','.', [rfReplaceAll]);
     . . . 
  end;
end;

[xinyiman]

Devi metterle al posto della ShowReport. O se proprio vuoi fare prima l'anteprima e alla sua chiusura il salvataggio in pdf sposta la showreport all'interno dell'if del preparereport.

[petrusic]

Devi metterle al posto della ShowReport. O se proprio vuoi fare prima l'anteprima e alla sua chiusura il salvataggio in pdf sposta la showreport all'interno dell'if del preparereport.

Perfetto. Ha funzionato quasi magnificamente.

Io ho preferito formare il file in pdf prima di mostrare l'anteprima, ma niente toglie che possa cambiare idea, oppure, potrei riscriverlo sempre su se stesso, qualora togliessi dal nome del file la data e l'ora di creazione.

Riporto la parte di codice riguardante la creazione del file pdf, perchè avrei bisogno di capire meglio cosa succede:

Codice: [Seleziona]

DomusRatioPDF:=SaveDialog1.FileName + '.pdf';    

è l'istruzione che crea il file .pdf, ma prima di farlo apre una finestra per la conferma del nome file  (ho capito)

Se è come ho capito, vorrei capire anche se è possibile NON mostrare la finestra e proseguire, prendendo sempre buono il nome già impostato nel programma

poi:

Codice: [Seleziona]

 Screen.Cursor := crHourglass;
 frReport1.ExportTo(TFrTNPDFExportFilter, DomusRatioPDF);
 Screen.Cursor := crDefault;               

Ho provato a disinibirle ed ho visto che il file .pdf è stato già creato. Ma allora a cosa servono ?

Scusa xinyiman se chiedo magari concetti scontati, ma preferisco chiedere, piuittosto che andare avanti senza rendermi conto.

[xinyiman]

Riporto la parte di codice riguardante la creazione del file pdf, perchè avrei bisogno di capire meglio cosa succede:

Codice: [Seleziona]

DomusRatioPDF:=SaveDialog1.FileName + '.pdf';    

è l'istruzione che crea il file .pdf, ma prima di farlo apre una finestra per la conferma del nome file  (ho capito)

Se è come ho capito, vorrei capire anche se è possibile NON mostrare la finestra e proseguire, prendendo sempre buono il nome già impostato nel programma

No, quella riga prende solo il nome del file pdf che vuoi creare, in quanto ti permette di modificarlo manualmente dalla Save Dialog.
Per non mostrare la finestra cambi il mio codice da così

Codice: [Seleziona]

SaveDialog1.Filter:='PDF files (*.pdf)|*.pdf';
                    SaveDialog1.FileName:='NomeDelFile_' + StringReplace(DateToStr(Now()),'/','', [rfReplaceAll]) + '_' + StringReplace(TimeToStr(Now()) ,':','.', [rfReplaceAll]);
                    if SaveDialog1.Execute then
                    begin
                         if uppercase(ExtractFileExt(SaveDialog1.FileName))='.PDF' then
                         begin
                              //non faccio niente, il nome è già corretto
                              NomePDF:=SaveDialog1.FileName;
                         end
                         else
                         begin
                              //il nome non è corretto, quindi ci aggiungo il .pdf alla fine
                              NomePDF:=SaveDialog1.FileName + '.pdf';
                         end;
                         Screen.Cursor := crHourglass;
                         MyReport.ExportTo(TFrTNPDFExportFilter, NomePDF);
                         Screen.Cursor := crDefault;
                         ShowMessage('Creazione del file PDF terminata.');
                    end;

a così

Codice: [Seleziona]

                         NomePDF:='NomeDelFile_' + StringReplace(DateToStr(Now()),'/','', [rfReplaceAll]) + '_' + StringReplace(TimeToStr(Now()) ,':','.', [rfReplaceAll]);
                         Screen.Cursor := crHourglass;
                         MyReport.ExportTo(TFrTNPDFExportFilter, NomePDF);
                         Screen.Cursor := crDefault;
                         ShowMessage('Creazione del file PDF terminata.');

poi:

Codice: [Seleziona]

 Screen.Cursor := crHourglass;
 frReport1.ExportTo(TFrTNPDFExportFilter, DomusRatioPDF);
 Screen.Cursor := crDefault;               

Ho provato a disinibirle ed ho visto che il file .pdf è stato già creato. Ma allora a cosa servono ?

Scusa xinyiman se chiedo magari concetti scontati, ma preferisco chiedere, piuittosto che andare avanti senza rendermi conto.

La prima riga cambia la grafica del puntatore del mouse in una clessidra, la seconda riga esporta in pdf il tuo report e la terza riga riporta la grafica del puntatore del mouse al tuo cursore di default.

Non scusarti, è giusto voler capire.

[petrusic]

@ xinyiman

Grazie dell'aiuto.  la modifica è  andata bene.
Ora, senza fermare l'esecuzione del programma, riesco a fare l'export in PDF e poi compare automaticamente l'anteprima stampa.

Ho purtroppo qualche difficoltà nella compilazione della griglia del modello di stampa, ma ce l'avevo anche prima di aggiungere le istruzioni di export in pdf.

[petrusic]

Va bene, ci sono quasi.
Devo ancora scoprire se è possibile impostare il font delle celle della griglia del report.

Ho anche la necessità di impostare un Font bold nella Memo di testata dei pagina e di sottolinearla.
L'unica riga che mi ritrovo col Font bold è quella di testa dei dati principali, perchè è stata impostata così automaticamente in fase di disegno del report.

Poi devo aggiungere anche che dovrei comandare l'allineamento a destra dei valori interni a due delle colonne  del report.
 

[xinyiman]

Guarda immagine allegata, devi selezionare il campo e dal menù in alto devi usare i pulsanti di bold e sottolineatura del carattere.

[petrusic]

Guarda immagine allegata, devi selezionare il campo e dal menù in alto devi usare i pulsanti di bold e sottolineatura del carattere.

E' vero. Mi dispiace avere fatto tanto rumore per niente. Sono proprio entrato nel pallone.

Comunque ho provato ad impostare il formato bold, l'allineamento a destra e la sottolineatura.

Nell'anteprima funziona tutto, mentre nel file pdf manca la sottolineatura.

[petrusic]

E' arrivato il momento di aggiungere l'anno nella Memo di testa nella pagina.

Ho trovato un suggerimento che sfrutta l'evento OnGetValue del report frReport1 ed ho scritto:

Codice: [Seleziona]

procedure TForm9.frReport1GetValue(const ParName: String; var ParValue: Variant
  );
begin
  Writeln('TForm9.frReport1GetValue');
  begin
    if ParName = 'TestataEntrusc' then       // TestataEntrusc è una variabile della categoria TitoloPaginaA5
    begin
      ParValue := Eanno.Text;
      Writeln('ParValue= ' + ParValue);
    end;
  end;
end;                

Ebbene, a me non ha funzionato. In Console ho trovato il seguente Errore:

[WARNING] SetAlphaBlend called without handle for frProgressForm(TfrProgressForm)
TForm9.frReport1GetValue
ParValue= 2019

Ho trovato qualcosa che dice di copiare il file .lrf, generato automaticamente da Lazarus nella cartella /DomusRatio/bin/Dati, nella cartella /DomusRatio/bin, ma non mi sembra logico, altrimenti sarebbe stato Lazarus a crearlo direttamente nella /bin.

In definitiva, anche se l'Errore è un Warning, io non riesco ad aggiungere l'anno di riferimento nella riga di testa, nella pagina del report.

[xinyiman]

E' arrivato il momento di aggiungere l'anno nella Memo di testa nella pagina.

Ho trovato un suggerimento che sfrutta l'evento OnGetValue del report frReport1 ed ho scritto:

Codice: [Seleziona]

procedure TForm9.frReport1GetValue(const ParName: String; var ParValue: Variant
  );
begin
  Writeln('TForm9.frReport1GetValue');
  begin
    if ParName = 'TestataEntrusc' then       // TestataEntrusc è una variabile della categoria TitoloPaginaA5
    begin
      ParValue := Eanno.Text;
      Writeln('ParValue= ' + ParValue);
    end;
  end;
end;                

Ebbene, a me non ha funzionato. In Console ho trovato il seguente Errore:

[WARNING] SetAlphaBlend called without handle for frProgressForm(TfrProgressForm)
TForm9.frReport1GetValue
ParValue= 2019

Ho trovato qualcosa che dice di copiare il file .lrf, generato automaticamente da Lazarus nella cartella /DomusRatio/bin/Dati, nella cartella /DomusRatio/bin, ma non mi sembra logico, altrimenti sarebbe stato Lazarus a crearlo direttamente nella /bin.

In definitiva, anche se l'Errore è un Warning, io non riesco ad aggiungere l'anno di riferimento nella riga di testa, nella pagina del report.

Commenta le righe del writeln

[petrusic]

Commenta le righe del writeln

Non capisco, comunque, ci provo:
- la prima riga (Writeln('TForm9.frReport1GetValue');  ) è una riga che uso abitualmente come prima istruzione di una procedure o di una function per creare una sorta di trace  a mio uso e consumo: mi serve per capire se la procedura viene avviata e se un'eventuale errore si verfica quindi prima che si avvii la procedure cronologicamente successiva.
- la prima riga (Writeln('ParValue= ' + ParValue);   ) mi è servita per capire se il campo ParValue (parametro della procedure TForm9.frReport1GetValue(const ParName: String; var ParValue: Variant );), viene valorizzato bene.  Ho visto che è stato valorizzato bene.

Non so se era quello che volevi sapere.

[xinyiman]

Commenta le righe del writeln

Non capisco, comunque, ci provo:
- la prima riga (Writeln('TForm9.frReport1GetValue');  ) è una riga che uso abitualmente come prima istruzione di una procedure o di una function per creare una sorta di trace  a mio uso e consumo: mi serve per capire se la procedura viene avviata e se un'eventuale errore si verfica quindi prima che si avvii la procedure cronologicamente successiva.
- la prima riga (Writeln('ParValue= ' + ParValue);   ) mi è servita per capire se il campo ParValue (parametro della procedure TForm9.frReport1GetValue(const ParName: String; var ParValue: Variant );), viene valorizzato bene.  Ho visto che è stato valorizzato bene.

Non so se era quello che volevi sapere.

No intendo dire di commentare/togliere le righe del writeln (secondo me danno fastidio)

Codice: [Seleziona]

procedure TForm9.frReport1GetValue(const ParName: String; var ParValue: Variant
  );
begin
  //Writeln('TForm9.frReport1GetValue');
  begin
    if ParName = 'TestataEntrusc' then       // TestataEntrusc è una variabile della categoria TitoloPaginaA5
    begin
      ParValue := Eanno.Text;
      //Writeln('ParValue= ' + ParValue);
    end;
  end;
end;     

[petrusic]

No intendo dire di commentare/togliere le righe del writeln (secondo me danno fastidio)

Va bene. Le ho eliminate, ma non è cambiato niente. C'è sempre l'Errore

[WARNING] SetAlphaBlend called without handle for frProgressForm(TfrProgressForm)

[petrusic]

@ xinyiman

L'Errore c'è sempre, ma c'è anche la memo. Io non la vedevo perchè dovevo allungare la dimensione della Memo.
Ho aggiunto anche una riga di pseudo-sottolineatura sotto la stringa di testata di pagina, dichiarando un'altra Memo specifica, sfruttando sempre l'evento OnGetValue.

Funziona tutto.   Grazie!