lazreport - primi passi

[tito_livio]

Ciao,
per creare le variabili nel designer del report devi cliccare: file | lista delle variabili | variabili.
Qui poi devi scrivere una riga con il nome del gruppo di variabili che vuoi creare e poi nelle righe sottostanti i nomi delle variabili.
I nomi delle variabili devono essere precedute da uno spazio.
Una volta create le variabili le puoi inserire nel memo tramite il bottone variabile.
A questo punto nel progetto devi scrivere il codice necessario al riempimento delle variabili. Per fare questo devi andare nell'evento OnGetValue del report, e potrai scrivere per esempio:

Codice: [Seleziona]

if parname='nome_stampa' then
    parvalue:=frreport1.Title;

dove nome_stampa è il nome della variabile.
Ti allego il progetto, che ho allegato prima, modificato per l'aggiunta dell'uso delle variabili nel report.

[petrusic]

Grazie Lilvio.
Ho compreso il tuo messaggio e l'ho messo in pratica con successo.

Tuttavia, non riesco a fare comparire nella colonna della data il valore relativo, nonostante che venga regolarmente compilato nella rispettiva cella di ciascuna riga.
il codice di caricamento è:

Codice: [Seleziona]

procedure TForm6.BpulStamPdfClick(Sender: TObject);
var
  i, nuRg: integer;

  fileReport, striMia, titolo: String;

begin
  nuRg := GridStmp.RowCount;
  if MGridPdf1.Active then
    MGridPdf1.Close;
  MGridPdf1.Clear(False);
  MGridPdf1.Open;
  for i := 1 to nuRg - 1 do
  begin
    MGridPdf1.Append;
    MGridPdf1.Edit;
    MGridPdf1.FieldByName('nuProg').Text := GridStmp.Cells[0, i];
    MGridPdf1.FieldByName('dtCont').Text := GridStmp.Cells[1, i];                         // <-- sembra NON funzionare
    MGridPdf1.FieldByName('descriz').Text := GridStmp.Cells[2, i];
    MGridPdf1.FieldByName('dare').Text := GridStmp.Cells[3, i];
    MGridPdf1.FieldByName('avere').Text := GridStmp.Cells[4, i];
    MGridPdf1.FieldByName('saldo').Text := GridStmp.Cells[5, i];
    WriteLn('MGridPdf1.nuProg= ' + MGridPdf1.FieldByName('nuProg').Text);
    WriteLn('GridStmp.Cells[1, '+ IntToStr(i) + ']= ' + GridStmp.Cells[1, i]);
    WriteLn('MGridPdf1.dtCont= ' + MGridPdf1.FieldByName('dtCont').Text);
  end;
  fileReport:= percorso + '/Dati/pdfComune.lrf';
  frReport1.LoadFromFile(fileReport);
  frReport1.ShowReport;                          

MGridPdf1.nuProg=        1   -----------------> cella valorizzata correttamente     
GridStmp.Cells[1, 1]= 05/01/2022
MGridPdf1.dtCont=              -----------------> cella NON valorizzatA
MGridPdf1.nuProg=        2
GridStmp.Cells[1, 2]= 05/01/2022
MGridPdf1.dtCont=
MGridPdf1.nuProg=        3
GridStmp.Cells[1, 3]=

Inizialmente funzionava.
Dopo quasi una settimana di prove e riprove, mi sono arreso: Io non vedo anomalie.

[tito_livio]

Ciao,
credo che lo spazio, che tu hai riservato alla colonna data, sia troppo piccolo.
Prova ad allargarlo a scapito di un altro campo.

[petrusic]

Ciao,
credo che lo spazio, che tu hai riservato alla colonna data, sia troppo piccolo.
Prova ad allargarlo a scapito di un altro campo.

Rispondo subito alla tua riflessione, perchè l'ho fatta già io ed ho provato ad aumentare  la larghezza della colonna di circa la metà, ma non é cambiato niente.

Poi, se guardi bene le istruzioni di Writeline riportate nel mio post precedente e che ripeto qui sotto, per chiarezza, puoi notare che il campo di colonna "MGridPdf1.dtCont" è sempre vuoto, mentre il corrispondente della griglia di partenza  "GridStmp.Cells[1, i]" contiene una data:

MGridPdf1.nuProg=        1   -----------------> cella valorizzata correttamente     
GridStmp.Cells[1, 1]= 05/01/2022
MGridPdf1.dtCont=              -----------------> cella NON valorizzatA
MGridPdf1.nuProg=        2
GridStmp.Cells[1, 2]= 05/01/2022
MGridPdf1.dtCont=
MGridPdf1.nuProg=        3
GridStmp.Cells[1, 3]=

Quindi, credo proprio che ci sia un altro problema, ma non capisco dove e quale.

[tito_livio]

Di che tipo è il campo dtCont?

[petrusic]

Di che tipo è il campo dtCont?

I campi interni all'oggetto MGridPdf1 sono tutti di tiupo ftString

[petrusic]

L'ho trovato.

La tua domanda mi ha costretto ad andare a rivedere i parametri della singola colonna di MGridPdf1 e, dopo avere guardato il DataType, mi sono accorto che il size era impostato a zero, l'unico ad essere impostato a zero.
Ho modificato il size, portandolo a 120, come per le colonne dare, avere, saldo, ed ho rieseguito il programma.
Ora la data c'è tutta.

Grazie! 

[tito_livio]

Prego!