[RISOLTO]Lazreport problemi con testo dbmemo lungo

[antoniog]

Buonasera, nuovo problema con Lazreport.Se il testo di un campo DBmemo è più lungo dello spazio che rimane nella pagina Lazreport salta pagina, al posto di completare la pagina con parte del testo e scrivere la restante parte su una nuova pagina, lasciando a volte meta pagina vuota. Non oso pensare cosa succederebbe se il testo fosse più lungo di una intera pagina...
Qualcuno ha affrontato questo problema?

Allego immagine esplicativa

[tito_livio]

Ciao, infatti per questo ti avevo detto, nel tuo precedente topic: Io in una stampa di questo tipo userei un memo di una sola riga, ripetuto tante volte. In questo modo decido io cosa mettere in ogni riga e che lunghezza deve avere il testo contenuto.
Prima mi riverso ogni riga dei dbmemo o dei memo in un record di un tmemdataset e poi faccio un report che "pesca" i record dal tmemdataset.
Poi può darsi che esista un modo per posizionare un memo a cavallo di due pagine.

[antoniog]

Tito Livio, la cosa sembra interessante, hai qualche linea di codice per renderla fattibile?

[tito_livio]

Ciao, io procedo così:

-prendo un componente tmemorydataset (mreferto_rx) e tramite la proprietà fielddefs creo dei campi.
Nel mio esempio ho un campo solo ma nel tuo caso vedo che hai nel report 5 colonne quindi penso che dovresti avere 5 campi.

-poi al momento di stampare:

    mreferto_rx.Clear(False);
    ...
    sqlquery1.first;
    while not sqlquery1.eof do
    begin
      for i := 0 to form1.dbmemo1.Lines.Count - 1 do
          mreferto_rx.AppendRecord([form1.dbmemo1.Lines [ i ] ] );
      ...
      mreferto_rx.AppendRecord([... altre voci ..]);
      sqlquery1.next
    end;
    mreferto_rx.AppendRecord([... conclusione ...]);

-poi creo un report come in allegato

Spero possa esserti utile

[antoniog]

Tito Livio, cioè tu fai tanti record quante sono le linee del campo memo? la proposta è buona ma nel mio caso non credo che funzioni perchè ho molti campi che sono raggruppati e non credo di potere far funzionare all'interno di un ciclo un'altro ciclo.
Gli articoli sono raggruppati da un codice, tutte le linee del memo (composto da due campi, uno : codice e uno :memo) dovrebbero avere il codice del gruppo, potrebbe funzionare ma mi creerà un'infinità di record per ogni articolo. Al momento penso di provare con gli script cercando di fare leggere a Lazreport il campo memo una riga per volta

[tito_livio]

Probabilmente nel tuo caso questa mia soluzione si adatta poco, comunque in stampe più complicate, usando più campi e gli script nel report, riesco a gestire  il raggruppamento (che poi faccio fare al Lazreport), il salto pagina, il font della riga e l'inserimento immagini.
Invece volevo chiederti, come mai hai lasciato il Fortes Report?

[antoniog]

dall'esempio che hai postato, l'elaborazione viene fatta su un sull'ultimo o campo, di un solo record, sbaglio?
io ho molti record che si ripetono, i cicli utilizzano diverse FRvariabili e 3 ZTable collegate. Comunque grazie, proverò a elaborare il concetto.
Non ho lasciato Fortesreport, prima di Lazarus utilizzavo Delphi 4 e 7 con quickReport che è molto simile a Fortes, utilizzo la versione CE ed è molto valida, molto flessibile e programmabile ma quando si apportano modifiche si deve ricompilare il programma e non si  può modificare il report a runtime mentre con Lazreport fare e modificare anche a runtime è possibile. Lazreport  non è meno flessibile di Fortes, negli script si possono richiamare procedure e funzioni esterne che restituiscono valori per la stampa, l'utilizzo di variabili esterne è funzionale, mi trovo molto bene per la gestione grafica, ho risolto uno alla volta le difficoltà ed ora sono all'ultima che è veramente complessa, si dovrebbe calcolare la lunghezza del campo dbmemo, verificare quante righe mancano a fine pagina e se la pagina non è capiente dividere il testo in due parti, uno scherzo . La tua soluzione può essere invece utilizzabile nella stesura di relazioni anche molto lunghe.

[antoniog]

questa istruzione:
for i := 0 to form1.dbmemo1.Lines.Count - 1 do
da errore:
Error: identifier idents no member "Lines"

[tito_livio]

Potrebbe essere:
-Penso che tu non abbia fatto la uses della unit DBcontrols.
A me funziona anche col dbmemo vuoto e con il file chiuso.
-Mi sembra di capire che tu usi Zeoslib, io non lo conosco, uso i componenti standard.
Il comportamento diverso del componenete dbmemo potrebbe essere dovuto a questo.
Con l'occasione mi sono accorto che il codice di esempio che ti ho dato è incompleto. Cioè la tabella tmemdataset prima di essere azzerata con clear, deve essere chiusa ti riporto il mio codice così corretto:

Codice: [Seleziona]

  if memdataset1.Active then
    memdataset1.close;
  memdataset1.Clear(False);
  memdataset1.Open;
  for i := 0 to dbmemo3.Lines.Count - 1 do
   memdataset1.AppendRecord([dbmemo3.Lines[i]] );

[antoniog]

Ave Tito Livio, il tuo codice funziona, l'idea di dividere il testo nel DBMemo in tanti record quante sono le linee è stata una bella intuizione.
Ma io non ho risolto il problema, Lazreport salta comunque pagina quando vuole lui

[tito_livio]

Dovresti dirmi in che senso "salta pagina quando vuole lui".
Può darsi che ci vuole una banda di tipo pedice di pagina per lasciare un certo margine.
Io,quando non riesco a risolvere in altro modo, uso un campo del tmemdataset chiamato "pagina". Poi faccio raggruppare al Lazreport per "pagina" e spunto "force new page"
nell'intestazione di gruppo.
In questo modo posso decidere quali record stampare nella stessa pagina, assegnandogli a tutti lo stesso numero pagina.
Ovviamente so quante righe possono entrare nella stessa pagina.
Se c'è gia un altro gruppo all'interno della pagina non è un problema perchè funzionano i gruppi annidati. Fino a 2 livelli l'ho provato.

[antoniog]

Tito Livio, il salto pagina avviene quando il testo non entra completamente in quel che resta della pagina.
Ho tre tabelle collegate, la tabella "misure" ha mastersource "totarticoli", la tabella "Totarticoli" ha mastersource la tabella "Lotti",
quindi iniziando il ciclo da "Lotti" tutto il resto viene elaborato correttamente e la stampa è accettabile.
Ho provato ad usare le tue linee di codice ed in Lazreport e ho inserito:
1. una Master Data collegata a Totarticoli dove stampo il codice articolo
2. Una Master Data collegata collegata al MemDataset
3. una Detail Data stampa i record della descrizione ricavati da Totarti
L'aggiunta di record in MemDataset.Descrizione avviene durante l'elaborazione del Report attraverso un campo DBMemo invisibile collegato a Totarti e con il seguente codice nell' OnDataChange del DataSource di Totarti:

Codice: [Seleziona]

procedure TGescompF.DTotartiDataChange(Sender: TObject; Field: TField);
var
       i:integer;
begin
  if Dataprogetto.MemTotarti.Active then
      Dataprogetto.MemTotarti.close;
    Dataprogetto.MemTotarti.Clear(False);
    Dataprogetto.MemTotarti.Open;
    Dataprogetto.MemTotarti.AppendRecord([Dataprogetto.TotartiCodice.Text] );
    for i := 0 to GescompF.dbmemo28.Lines.Count - 1 do
     Dataprogetto.MemTotarti.AppendRecord([GescompF.dbmemo28.Lines[i]] );
end;  

Mettendo un controllo sulle righe del MemDataset ho verificato che la lunghezza del testo contenuto in un record può essere anche di molte righe sul Report,naturalmente in base al width del Rettangolo che lo contiene, quindi per esempio stampa il codice e salta pagina lasciando molte righe in bianco. Dovrei provare a ricavare in MemDataset record con numero di caratteri corrispondenti alla larghezza di una riga prevista nel report che in questo caso è 320.
Grazie per l'aiuto.

[antoniog]

Stabilire il numero di caratteri per record è una stupidaggine perchè taglia e va a capo.
Niente da fare! anche il codice seguente, da inserire in "OnEnterRect" del frReport,  funziona per stampe di un solo record:

Codice: [Seleziona]

if (View is TfrMemoView) then
      if (View as TfrMemoView).Name = 'Memo27' then
        (View as TfrMemoView).Memo.Text := Form1.DBMemo28.Lines.Text;   

Forse dovrò tornare a Fortes Report...

[tito_livio]

Ciao,
mi potresti fare vedere, con una immagine, la banda masterdata che colleghi al tmemdataset?

[tito_livio]

Scusami ma è difficile capire a distanza il problema, da quello che ho capito mi viene di dirti che:
La riga del report, la lunghezza del record di MemTotArti e la larghezza di Dbmemo28 devono essere "compatibili".
Cioè vedi quanti caratteri possono e vuoi far entrare in una sola riga (senza andare a capo) del Report, poi la diminuisci un pochino ed hai la lunghezza del record e poi la larghezza di Dbmemo 28 deve essere tale che ogni sua riga starà sempre sotto la lunghezza del record.
In questo modo sei sicuro che ad una riga di dbmemo28 corrisponderà sempre una sola riga del report.
Si devono fare dei tentativi perchè il carattere è quasi sempre proporzionale.
Se vuoi, puoi farmi avere il .lrf.