Hi Pete,
First, why load the xml file into a Dataset? Why not just load the xml file and set it's location for the report and subreports?
CR can read a 100+ meg XML file while a Dataset is limited to 5K records at most, depends on the number of columns etc.
Second issue, I scanned your report for formula errors which is a common problem and found 6.
Fix them first and try again:
----------------------------------------------------------------------------------------------------------
Engine Subreport count: 6
Subreport Name: CustomerHeader.rpt - SubreportCust
Formula: @fmlaBillToAddress2 : Used: 1 times'End'
Error in formula :
Error in formula ~:
''moves up spaces in customer addresses for better readablity due to
'
This field name is not known.
Details: errorKind
Formula Text: 'moves up spaces in customer addresses for better readablity due to
'multiple address fields
dim addr2 as string
dim addr3 as string
dim cityStateZip as string
dim ReturnVal as string
if isnull({Customer.BillToAddress2}) then
addr2 = ""
else
addr2 = {Customer.BillToAddress2}
end if
if isnull({Customer.BillToAddress3}) then
addr3 = ""
else
addr3 = {Customer.BillToAddress3}
end if
if isnull({Customer.BillToCity}) then
cityStateZip = ""
else
cityStateZip = ({Customer.BillToCity})
end if
if not isnull({Customer.BillToStateCode}) then
cityStateZip = cityStateZip & " " & {Customer.BillToStateCode}
end if
if not isnull({Customer.BillToZipCode}) then
cityStateZip = cityStateZip & " " & {Customer.BillToZipCode}
end if
if len(addr2) <= 0 then
if len(addr3) <= 0 then
returnVal = cityStateZip
else
returnVal = addr3
end if
else
returnVal = addr2
end if
formula = returnVal
-------------------------------------SubreportCust------------------------------------------
Formula: @frmlaBillToAddress3 : Used: 1 times'End'
Error in formula :
Error in formula ~:
''moves up spaces in customer addresses for better readablity due to
'
This field name is not known.
Details: errorKind
Formula Text: 'moves up spaces in customer addresses for better readablity due to
'multiple address fields
dim addr2 as string
dim addr3 as string
dim cityStateZip as string
dim ReturnVal as string
if isnull({Customer.BillToAddress2}) then
addr2 = ""
else
addr2 = {Customer.BillToAddress2}
end if
if isnull({Customer.BillToAddress3}) then
addr3 = ""
else
addr3 = {Customer.BillToAddress3}
end if
if isnull({Customer.billToCity}) then
cityStateZip = ""
else
cityStateZip = ({Customer.BillToCity})
end if
if not isnull({Customer.BilltoStateCode}) then
cityStateZip = cityStateZip & " " & {Customer.BillToStateCode}
end if
if not isnull({Customer.BillToZipCode}) then
cityStateZip = cityStateZip & " " & {Customer.BillToZipCode}
end if
if len(addr2) <= 0 then
if len(addr3) <= 0 then
returnVal = ""
else
returnVal = cityStateZip
end if
else
if len(addr3) <= 0 then
returnVal = cityStateZip
else
returnVal = addr3
end if
end if
formula = returnVal
-------------------------------------SubreportCust------------------------------------------
Formula: @frmlaBillToCityStateZip : Used: 1 times'End'
Error in formula :
Error in formula ~:
''moves up spaces in customer addresses for better readablity due to
'
This field name is not known.
Details: errorKind
Formula Text: 'moves up spaces in customer addresses for better readablity due to
'multiple address fields
dim addr2 as string
dim addr3 as string
dim cityStateZip as string
dim ReturnVal as string
if isnull({Customer.BillToAddress2}) then
addr2 = ""
else
addr2 = {Customer.BillToAddress2}
end if
if isnull({Customer.BillToAddress3}) then
addr3 = ""
else
addr3 = {Customer.BillToAddress3}
end if
if isnull({Customer.BillToCity}) then
cityStateZip = ""
else
cityStateZip = ({Customer.BillToCity})
end if
if not isnull({Customer.BillToStateCode}) then
cityStateZip = cityStateZip & " " & {Customer.BillToStateCode}
end if
if not isnull({Customer.BillToZipCode}) then
cityStateZip = cityStateZip & " " & {Customer.BillToZipCode}
end if
if len(addr2) <= 0 then
returnVal = ""
else
if len(addr3) <= 0 then
returnVal = ""
else
returnVal = cityStateZip
end if
end if
formula = returnVal
-------------------------------------SubreportCust------------------------------------------
Formula: @frmlaShipToAddress2 : Used: 1 times'End'
Error in formula :
Error in formula ~:
''moves up spaces in customer addresses for better readablity due to
'
This field name is not known.
Details: errorKind
Formula Text: 'moves up spaces in customer addresses for better readablity due to
'multiple address fields
dim addr2 as string
dim addr3 as string
dim cityStateZip as string
dim ReturnVal as string
if isnull({Customer.Address2}) then
addr2 = ""
else
addr2 = {Customer.Address2}
end if
if isnull({Customer.Address3}) then
addr3 = ""
else
addr3 = {Customer.Address3}
end if
if isnull({Customer.City}) then
cityStateZip = ""
else
cityStateZip = ({Customer.City})
end if
if not isnull({Customer.StateCode}) then
cityStateZip = cityStateZip & " " & {Customer.StateCode}
end if
if not isnull({Customer.ZipCode}) then
cityStateZip = cityStateZip & " " & {Customer.ZipCode}
end if
if len(addr2) <= 0 then
if len(addr3) <= 0 then
returnVal = cityStateZip
else
returnVal = addr3
end if
else
returnVal = addr2
end if
formula = returnVal
-------------------------------------SubreportCust------------------------------------------
Formula: @frmlaShipToAddress3 : Used: 1 times'End'
Error in formula :
Error in formula ~:
''moves up spaces in customer addresses for better readablity due to
'
This field name is not known.
Details: errorKind
Formula Text: 'moves up spaces in customer addresses for better readablity due to
'multiple address fields
dim addr2 as string
dim addr3 as string
dim cityStateZip as string
dim ReturnVal as string
if isnull({Customer.Address2}) then
addr2 = ""
else
addr2 = {Customer.Address2}
end if
if isnull({Customer.Address3}) then
addr3 = ""
else
addr3 = {Customer.Address3}
end if
if isnull({Customer.City}) then
cityStateZip = ""
else
cityStateZip = ({Customer.City})
end if
if not isnull({Customer.StateCode}) then
cityStateZip = cityStateZip & " " & {Customer.StateCode}
end if
if not isnull({Customer.ZipCode}) then
cityStateZip = cityStateZip & " " & {Customer.ZipCode}
end if
if len(addr2) <= 0 then
if len(addr3) <= 0 then
returnVal = ""
else
returnVal = cityStateZip
end if
else
if len(addr3) <= 0 then
returnVal = cityStateZip
else
returnVal = addr3
end if
end if
formula = returnVal
-------------------------------------SubreportCust------------------------------------------
Formula: @frmlaShipToCityStateZip : Used: 1 times'End'
Error in formula :
Error in formula ~:
''moves up spaces in customer addresses for better readablity due to
'
This field name is not known.
Details: errorKind
Formula Text: 'moves up spaces in customer addresses for better readablity due to
'multiple address fields
dim addr2 as string
dim addr3 as string
dim cityStateZip as string
dim ReturnVal as string
if isnull({Customer.Address2}) then
addr2 = ""
else
addr2 = {Customer.Address2}
end if
if isnull({Customer.Address3}) then
addr3 = ""
else
addr3 = {Customer.Address3}
end if
if isnull({Customer.City}) then
cityStateZip = ""
else
cityStateZip = ({Customer.City})
end if
if not isnull({Customer.StateCode}) then
cityStateZip = cityStateZip & " " & {Customer.StateCode}
end if
if not isnull({Customer.ZipCode}) then
cityStateZip = cityStateZip & " " & {Customer.ZipCode}
end if
if len(addr2) <= 0 then
returnVal = ""
else
if len(addr3) <= 0 then
returnVal = ""
else
returnVal = cityStateZip
end if
end if
formula = returnVal
Also, I can't set the data source in CR Designer because I don't have them all....
Can you attach every XML and XSD I need to the post?
Fix your report first though...
Don
