I need help on the following issue :

I have a data band with 3 elements such as : a GroupHeader, a MasterData and a GroupFooter.

The MasterData uses a dataset containing multiple entries. One of the fields is a duration in seconds. As this this duration is unreadable, I made a small function in the script (made in Pascalscript). This function takes the duration as a parameter and does a series of calculations to return a more readable string.

Using this function in a memo in the MasterData, the duration is converted on the fly and works as expected.

About the GroupFooter, it is used to display aggregated data of these multiple durations.

However, I cannot use this function in the GroupFooter as one of the memos contains the sum of the fields (duration) mentionned above. So I have something looking like this : [secondsToFormatedDuration([SUM(<groupOfData."duration", MasterData1)])]. As the SUM() function returns an Array Variant object, I am unable to convert it to an integer in order to use it as a parameter for the secondsToFormatedDuration() function. In the pascalscript code, nothing has succeeded to either convert it by using a cast, or using methods of the variant. Maybe this is not the way to do it? How can I still format the duration amount to a human readable format for the entries and the aggregate?

What am I missing on?

example of the script :

function secondsToFormatedDuration( sec : integer ) : String;
var
      h,m,s : integer;
      str : String;
begin
      h := sec div 3600;
      m := (sec mod 3600) div 60;
      s := sec mod 60;
      str := Format('%.2d:%.2d:%.2d', [h,m,s]);
      result := str;
end;

Main page structure :

The value that works : (third column of the MasterData)

[secondsToFormatedDuration(<getAllStateTopsBetweenDates."topdurationfield">)]

The value that doesnt work : (third column of the GroupFooter)

[secondsToFormatedDuration([SUM(<getAllStateTopsBetweenDates."topdurationfield">,MasterData1)])]

where I need to set the number or copies depending on the user who is starting the report.

Can this be done?

What format should the data be in to use the color column function in the chart

Newbie here :) please help

The same 3 ASCII characters are saved in many "customer notes" in sql database

FastReport reads them as is :

&#13 : return

&#10 : line Feed (Lf)

&#39 : apostrophe '

Is there a way a FastReport text holder converts to UTF8... or maybe a "string replace" script to replace them with a space... anything really to hide those characters in reports?

Please guide me

Thank you

Sandra

wrote:

If RegionRadioButton.Checked = True Then
i = RegionNameComboBox.SelectedIndex
RegionID = RegionIDComboBox.Items.Item(i)
MsgBox(RegionID)
Report.SetParameterValue("RegionID", RegionID)
MsgBox("LastCheck",RegionID)
End IF

wrote:

If AllCompanyRadioButton.Checked = True Then
Report.SetParameterValue("RegionsByte", "15,14,13,12,99,88,77......................")
Else
Dim RegionIDString As String = ""
Dim RegionDescString As String
Dim i As Integer
Dim x As Integer
Dim y As String

For i = 0 To (RegionListBox.SelectedItems.Count - 1)
x = RegionListBox.SelectedIndices(i)
y = RegionIDListBox.Items.Item(x)
If i = 0 Then
RegionDescString = RegionListBox.SelectedItems(i)
RegionIDString = y
Else
RegionDescString = RegionDescString & ", " & RegionListBox.SelectedItems(i)
RegionIDString = y & ", " & RegionIDString
End If
Next
Report.SetParameterValue("RegionsByte", RegionIDString)
Report.SetParameterValue("RegionsDescParam", RegionDescString)
'### END - Identifies which region codes have been selected then assigns corresponding
'### region ID, puts into a delimited string to pass back to SQL as parameter.
End If

wrote:

Report.SetParameterValue("TechID", 0)
SalesTechNameComboBox.Visible = False

wrote:

If SalesTechNameRadioButton.Checked = True Then
SalesTechNameComboBox.Visible = True
'SalesTechNameRadioButton.Checked = True 'commented
'SalesTechNameComboBox.SelectedIndex = -1 'commented
'MsgBox("aaaa")
End IF

wrote:

Dim i As Integer
Dim TechID As Integer

'Tech
If SalesTechNameRadioButton.Checked = True Then
i = SalesTechNameComboBox.SelectedIndex
TechID = SalesTechIDComboBox.Items.Item(i)
Report.SetParameterValue("TechID", TechID)
ElseIf TechNameRadioButton.Checked = True Then
Report.SetParameterValue("TechID", 0)
End If

Call frx.AddVariable(prog, "new", Label1.Caption)

Dim TfrxPreviewX1 As FastReport.TfrxPreviewX
Dim Rpt As FastReport.TfrxReport

    
Private Sub Form_Load()



Set Rpt = TfrxReport.Create(Nil) <<<Error 91 here

Rpt.PreviewOptions.Maximized = False
Rpt.PreviewOptions.Modal = False
Rpt.LoadFromFile ("C:\Program Files (x86)\FastReports\FastReport Studio\Examples\VisualBasic\VB6_Demo\ADOQuery_Casting\Casting.fr3")
Call Rpt.PrepareReport(True)
Call Rpt.ShowPreparedReport



End Sub