Re: vsprint8.ocx, vsrpt8.ocx: generated report shows designer code instead of data

Hello,

With regards to your query, could you provide the complete version information of the control? Also you have mentioned that "code works on most of the machines", is it a machine specific issue ?

Could you please provide a sample project depicting the reported behavior along with operating environment details of the machines on which it is working as well on which it is failing?

Regards,

Gary

<JasonMacKinnon> wrote in message news:206319@10.0.1.98...

The report that is generated by my code works on most machines but we have found that it can show the code as if we were using the designer to write the base report.

I apply the report written with the VSReport Designer and I get the report with the code in plase of the data. The machine has a valid connection to the database, the recordset passed is valid but the report still shows incorrectly.

I have and RTF and PDF of the broken report I can send to anyone who would like to see what the issue looks like.

Any help would be appreciated.

Thanks.

http://helpcentral.componentone.com/cs/forums/p/75660/206319.aspx#206319

I am having the same issue. The main content of my report is from a recordset that I build and bind to the report's data source property. I have other supporting fields that I set outside of the data binding and those appear correctly. The footers at the bottom don't show correctly either. But this is happening on one client machine only. There are 100's of other clients in the field with no issues. All are running Windows XP Pro SP2. I am using 8.0 (the vsrpt.exe show 8.0.20061.144. It was working well on this machine until this week. I am thinking they installed something (printer related), so I am working to add/remove unnecessary programs.

I am using an Oracle 10g Lite database. I am not sure what other info you would want, but let me know if there is anything you would need...

Here is a snippet of code as the whole code is very long.

vsrReceipt.Load App.Path & "\receipt_jewelry.xml", "Receipt"

rsFinal.Fields.Append "description", adVarChar, 255, adFldIsNullable
rsFinal.Fields.Append "amount", adCurrency, adFldIsNullable
rsFinal.Fields.Append "ring_options", adVarChar, 4000, adFldIsNullable
rsFinal.Open
rsFinal.AddNew

rsFinal(0) = rs!option_name
rsFinal(1) = rs!Amount

sSQL = "SELECT item.IO_ITEM_GUID,opt.feature_name,opt.option_name,"
        sSQL = sSQL & "   opt.price_adjustment_amount,opt.original_system_reference,opt.scanning_field_name "
        sSQL = sSQL & " FROM JDOE_IO_ITEMS item, JDOE_IO_ITEM_OPTIONS opt"
        sSQL = sSQL & "    WHERE item.IO_ITEM_GUID = opt.IO_ITEM_GUID "
        sSQL = sSQL & "      AND opt.original_system_reference is not null"
        sSQL = sSQL & "      AND opt.scanning_field_name <> '" & SCANNING_SKU & "'"
        sSQL = sSQL & "      AND item.IO_ITEM_GUID = '" & sIOItemGUID & "'"
        sSQL = sSQL & "      ORDER BY opt.display_sequence ASC"
        Set rsRingOptions = cDataClass.GetData(sSQL)
        sRingOptions = "{"
        While Not rsRingOptions.EOF
            If (rsRingOptions!feature_name & "" <> "") And (rsRingOptions!option_name & "" <> "") Then
                If InStr(1, rsRingOptions!feature_name, "Inside Engraving") > 0 Then
                    If InStr(1, rsRingOptions!option_name, "Signature") Then
                        m_bFacSigChosen = True
                    End If
                End If
                If rsRingOptions!original_system_reference = "QQAG" Then
                    bSilverElite = True
                End If
                'Per the business, they wanted to draw attention to Ring Side 1&2 and the
                'Inside Engraving initials and full name features/options
                'So, we will use RTF codes to bold them. As a side effect,
                'We also need to change the CRLFs that would normally be used.
                '\par is the code for a CRLF in RTF. In the future,
                'we may want to put the feature names in the lookup to dynamically
                'drive the bolding. Towards the end of this routine we need to set
                'the RTF property of the Ring options field to TRUE to make the
                'control read the text correctly
                If InStr(1, rsRingOptions!feature_name, "Name/Mascot") > 0 Then
                    bPrintBold = True
                ElseIf InStr(1, rsRingOptions!feature_name, "Full Name") > 0 Then
                    bPrintBold = True
                ElseIf InStr(1, rsRingOptions!feature_name, "Initials") > 0 Then
                    bPrintBold = True
                ElseIf InStr(1, rsRingOptions!feature_name, "Stone Band") > 0 Then
                    bPrintBold = True
                Else
                    bPrintBold = False
                End If
                If bPrintBold Then
                    sRingOptions = sRingOptions & "{\fs20 \b " & PadString(rsRingOptions!feature_name & ":", 35, " ", False) & "\fs24 " & rsRingOptions!option_name & " } \par "
                Else
                    sRingOptions = sRingOptions & "{\fs20 " & PadString(rsRingOptions!feature_name & ":", 35, " ", False) & rsRingOptions!option_name & "} \par "
                End If
            End If
            If rsRingOptions!price_adjustment_amount <> 0 Then
                If rsRingOptions!scanning_field_name <> SCANNING_METAL_CHOICE And rsRingOptions!scanning_field_name <> SCANNING_STACK_METAL_CHOICE Then
                    dblPriceAdjustmentAmount = rsRingOptions!price_adjustment_amount
                    If bCustApprec Then
                        dblUpgradeTotal = 0
                        dblPriceAdjustmentAmount = 0
                        sUpgradeDetail = sUpgradeDetail & rsRingOptions!option_name & ": " & FormatCurrency(0, 2, vbTrue, vbTrue, vbTrue) & vbCrLf
                    Else
                        dblUpgradeTotal = dblUpgradeTotal + dblPriceAdjustmentAmount
                        sUpgradeDetail = sUpgradeDetail & rsRingOptions!option_name & ": " & FormatCurrency(dblPriceAdjustmentAmount, 2, vbTrue, vbTrue, vbTrue) & vbCrLf
                    End If
                End If
            End If
            rsRingOptions.MoveNext
        Wend

rsFinal(2) = sRingOptions & "}"
rsFinal.Update

--- setting of non data bound fields on the report

vsrReceipt.DataSource.recordset = rsFinal
vsp.ScrollTop = 0

vsrReceipt.Render vsp
vsp.Zoom = 100

ComponentOne Community

ActiveX

vsprint8.ocx, vsrpt8.ocx: generated report shows designer code instead of data