[RISOLTO]Lazreport problemi con testo dbmemo lungo

[antoniog]

Ciao Tito Livio, allego l'immagine di Lazreport e della relativa stampa.
Come potrai vedere il numero a sinistra del codice, oltre al codice, sono il progressivo di Totarti, poi segue la descrizione che è di MemTotarti realizzata con il tuo codice leggermente modificato già postato, i numeri, uguali al numero progressivo del codice, sono i vari record del MemDataset. Al termine della descrizione c'è la descrizione della misura (altra tabella collegata) e poi il totale dell'articolo del Table Totarti, in fondo alla pagina "Page Footer" il totale progressivo fino alla pagina. Il problema è solo nella lunghezza del record della descrizione "Totarticoli" o del record "MemTotarti" che se è più lungo delle righe restanti della pagina obbliga ad un salto pagina. Penso che il problema sia solo di Lazreport e che non sia possibile correggerlo se non intervendo nel pacchetto.

[antoniog]

non voglio entrare nel merito che in Lazreport puoi definire la pagina A3,A4 ecc. ma non puoi definire quante righe per pagina, ed allora, usando Memdataset, bisognerebbe riuscire a fare record (finiti e logici) di ridotta lunghezza.
La larghezza del DBmemo per la creazione dei record di MemDataset non influisce sul risultato.

[tito_livio]

Vorrei sapere: il testo "NOLO ATTREZZATURE - Nolo di ponteggio tubolare esterno eseguito... verticale)" lo hai messo tutto dentro un unico record del memdataset?

[tito_livio]

Se è così , cioe se fai record così lunghi il problema è questo.
Il width del dbmemo deve essere tale che ci entra nella riga soltanto "NOLO ATTREZZATURE - Nolo di ponteggio tubolare".
Altrimenti se vai a mettere una stringa lunga ottieni un memo lungo (cioè alto) che Lazreport non mette a cavallo di due pagine.

[antoniog]

Vorrei sapere: il testo "NOLO ATTREZZATURE - Nolo di ponteggio tubolare esterno eseguito... verticale)" lo hai messo tutto dentro un unico record del memdataset?

quella che vedi fra gli stessi numeri sono i record creati dal DBMemo riga al MemDataset.
se diminuisci la lunghezza delle righe la il testo viene spezzato casualmente ed a capo, per esempio la parola ponteggio viene spezzata in "pon" e "teggio" a capo perchè in un'altro record.
Non serve a niente ridurre la larghezza di DBMemo perchè la riga ha sempre la stessa lunghezza (ho provato inutilmente)
Mi dispiace Tito Livio ma siamo molto lontani dalla soluzione!
Chi ha sviluppato Lazreport ha logicamente previsto il ritorno a capo alla fine di un riga di un record e non ha considerato l'estetica della pagina.

[antoniog]

errata corrige ......
La larghezza del DBMemo influisce sulla dimensione del record di MemDataset solo se è visibile, da invisibile la dimensione del record viene stabilita dal programma.
Quindi lavorando sulla larghezza del DBMemo si può arrivare ad una stampa accettabile, certo bisogna stabilire la dimensione del carattere (anche il maiuscolo ed il minuscolo influiscono) ed accettare qualche ritorno a capo non proprio perfetto.
Da risolvere il DBMemo che non posso lasciare visibile

[tito_livio]

Ciao,
potresti mettere il dbmemo visibile in un form, creato ma al quale nessuno potrà accedere

[antoniog]

Ave Tito Livio, ti ringrazio per l'aiuto, ho imparato altre cose, ma non si può aggirare il problema, ed è un grande problema, ed a questo punto preferisco il salto pagina ma con descrizione completa e leggibile che un non salto pagina con descrizione non correttamente impaginata. Usando Lazreport dovrò accettare questo limite del pacchetto oppure potrò tornare a Fortes Report che mi consente di gestire le righe per pagina.

[antoniog]

Il sistema sopra usato con i record di un Memdataset funziona su windows ma non su Linux perchè su linux la larghezza del DBMemo non definisce la lunghezza della linea che invece viene definita, penso,  da un ritorno a capo tipo #10#13.
Allora bisogna sperimentare altro. Un problema semplice che diventa complesso...

[antoniog]

Tempo fa in un forum inglese avevo visto e salvato  le istruzioni per scrivere un testo lungo su più pagine, avevo provato ad utilizzarla senza successo. In questi ultimi giorni ho  riprovato ad utilizzarla e ci sono riuscito.
Per potere scrivere un testo lungo di un campo TEXT su più pagine:
Mettere sulla propria form un un TMemo, il nome dell'esempio Memo2, nel TDataSource della Tabella che interessa inserire il seguente codice nell'evento onDataChange

Codice: [Seleziona]

procedure TGescompF.DTotartiDataChange(Sender: TObject; Field: TField);
begin
  GescompF.Memo2.Clear;
  GescompF.Memo2.Text:=DataProgetto.TotartiAnnotazion.AsString;
  GescompF.Memo2.Text:= StringReplace(GescompF.Memo2.Text, '[', '-', [rfReplaceAll]);
  GescompF.Memo2.Text:= StringReplace(GescompF.Memo2.Text, ']', '-', [rfReplaceAll]);
end; 

questa routine copia il testo contenuto nel campo TEXT della Tabella, in questo caso TotartiAnnotazion nel TMemo inserito nella Form così da consentirmi, senza modificare nulla dei dati, di eliminare le criticità per Lazreport come per esempio le parentesi quadre.
Selezionare TFrRporto, nel mio caso FrReport1 e nell'evento OnEnterRect inserire il seguente codice:

Codice: [Seleziona]

procedure TGescompF.frReport1EnterRect(Memo: TStringList; View: TfrView);
begin
   if (View is TfrMemoView) then
     if (View as TfrMemoView).Name = 'Memo27' then
       (View as TfrMemoView).Memo.Text := GescompF.Memo2.Lines.Text;
end;    

Aprire il designer di Lazreport e inserire una MasterData Band, right-click e selezionare  "Stretched" & "Break"
Inserire un Rettangolo sulla MasterData Band,name  Memo27,  right-click e selezionare  "Stretched" & "wordwrap", risultato allegato. Problema risolto.
L'elemento Memo2 deve essere visibile e per non farlo vedere si possono impostare : BorderStyle su bsNone e Font-Color su clNone.
Cosi funziona sia sotto Windows che sotto Linux.