To create report manually
Personnel is trying to create a report manually.....
I have a program of impression of guides... I am trying to implement a fast impression... because not always it compensates to register a person in the database if he probably difficultly will return in the office.
For this I made a window to inform the data...
I made a report...
And I am ordering to print in the following way...
frReport.LoadFromFile (' Relatorios\Guia.frf ');
frReport.PrepareReport;
frReport.ShowPreparedReport;
... as this report n? o it is tied in the database. me looking at the examples is ordering to print the report manually. for this I am using the event OnManualBuild of the frReport.. I put this code
Page.ShowBandByName (' MHeader');
Page.ShowBandByName (' MData');
... here blz... it works.... but qdo order to print need to update the values of some fields... for this... I looked at the examples and I found the following event OnGetValue... and I put the following code
if ParName = ' Empresa' then
ParValue := edtEmpresa.Text
else if ParName = ' Valor' then
ParValue := edtValor.text;
... but it didn't work... he prints the report.. but it doesn't update the fields... I tried debugar... and I saw that qdo orders to print this code is not accessed...
Do long for has some idea of as I can make this report?
I have a program of impression of guides... I am trying to implement a fast impression... because not always it compensates to register a person in the database if he probably difficultly will return in the office.
For this I made a window to inform the data...
I made a report...
And I am ordering to print in the following way...
frReport.LoadFromFile (' Relatorios\Guia.frf ');
frReport.PrepareReport;
frReport.ShowPreparedReport;
... as this report n? o it is tied in the database. me looking at the examples is ordering to print the report manually. for this I am using the event OnManualBuild of the frReport.. I put this code
Page.ShowBandByName (' MHeader');
Page.ShowBandByName (' MData');
... here blz... it works.... but qdo order to print need to update the values of some fields... for this... I looked at the examples and I found the following event OnGetValue... and I put the following code
if ParName = ' Empresa' then
ParValue := edtEmpresa.Text
else if ParName = ' Valor' then
ParValue := edtValor.text;
... but it didn't work... he prints the report.. but it doesn't update the fields... I tried debugar... and I saw that qdo orders to print this code is not accessed...
Do long for has some idea of as I can make this report?