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.
<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, adFldIsNullablersFinal.Fields.Append "amount", adCurrency, adFldIsNullablersFinal.Fields.Append "ring_options", adVarChar, 4000, adFldIsNullablersFinal.OpenrsFinal.AddNew
rsFinal(0) = rs!option_namersFinal(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 vspvsp.Zoom = 100
I Have The Same Problem, Please Help Me
I Re registered the Msxml4.dll and Msxml6.dll , So my Ploblem Solved.
I don't Know Which Of them Should registered . anyway my problem is solved.