1. Team BFMS
  2. PowerBuilder
  3. Monday, 04 February 2019

Hi, 

 

I have a few problems viewing the reports after migrating the code from power builder 9 to 2017R3(MR #1858 patch). Problem is that the content in the reports are not sorting in order and some of the text found missing in few pages while being generated. I was able view the text in the report but the contents are disordered unlike in the screenshot that i attached below(This is before installing the latest patch). After installing the latest  MR#1880 R3 patch that released on January 31, 2018 i am not able to see the reports instead am seeing some blank pages. I wonder if there is anything to do with the latest patch ? FYI, the application is run in windows 10 environment. Please help me with this.

Please check the attachment that has a report which is successfully generated (power builder 9)

 Thanks in advance!!

Here is the code that utilizes RTE control for generating the report: For your reference

 

string ls_sql, ls_sy_sql, ls_err, ls_text, ls_title, ls_rtf[]
datastore ldw_narr
long ll_row, ll_bien, ll_narrative_id, ll_cnt = 0
SetPointer(HourGlass!)
window ldw_narrative

// Assign Richtext datawindow
dw_0.DataObject = 'r_rich_text'
dw_0.settransobject(sqlca)


dw_0.retrieve(is_prefix,il_start_page_no,is_page_no_yn)

if not (isnull(il_narrative_id) or il_narrative_id = 0 ) then
select text
into :ls_text
from narrative
where narrative_id = :il_narrative_id ;

ll_cnt = ll_cnt + 1
ls_rtf[ll_cnt] = ls_text

end if


// Assign Categories to the report datawindow
ldw_narr = Create datastore

ls_sql = "select category_id, category_title, narrative_id from category where section_id = "+string(il_section_id)+" and enabled_ind = 1 and narrative_id is not null order by print_order"
ls_sy_sql = SQLCA.SyntaxFromSQL(ls_sql, "", ls_err)
if len(ls_err) > 0 then messagebox('Syntax',ls_err)
ldw_narr.Create( ls_sy_sql, ls_err)
if len(ls_err) > 0 then messagebox('Create',ls_err)
ldw_narr.SetTransObject(SQLCA)
ldw_narr.retrieve()

for ll_row = 1 to ldw_narr.rowcount()

ll_narrative_id = ldw_narr.getitemnumber(ll_row,'narrative_id')

select text
into :ls_text
from narrative
where narrative_id = :ll_narrative_id ;

ll_cnt = ll_cnt + 1
ls_rtf[ll_cnt] = ls_text

next

FOR ll_row= ll_cnt TO 1 STEP -1
dw_0.pastertf(ls_rtf[ll_row])
NEXT

If ll_cnt > 0 Then
dw_0.GetFullState(istr_dw_state.dw_state)
istr_dw_state.p1 = dw_0.dataobject

IF ib_print THEN
iuo_print_view_reports.of_print_report(dw_0)
ELSE
istr_dw_state.rpt_title = 'Section ' + is_prefix + "'s Narrative"
dw_0.GetFullState(istr_dw_state.dw_state)
OpenSheetwithparm(ldw_narrative, istr_dw_state, 'w_view_reports', w_mdi, 0, Layered!)
END IF

istr_dw_state.p1 = ''

il_start_page_no = il_start_page_no + dw_0.getitemnumber(1,'pageno')
End If

return 0

 

 

 

Attachments (1)
Team BFMS Accepted Answer Pending Moderation
0
Votes
Undo

Can you provide me with the screenshots if any? I have a hard time navigating to find the MR 01 application painter.

Thanks in advance!!

Comment
There are no comments made yet.
  1. Wednesday, 6 February 2019
  2. PowerBuilder
  3. # 1
Team BFMS Accepted Answer Pending Moderation
0
Votes
Undo

I am letting PB2017R3 App default to use the new TE control. Are there any specific set of instructions to switch back to the text control after installing the new patch? I did not do this for the MR#1858 patch but at least i was able to see the report but not correctly for that release. But this time the report was totally blank. Can you guide me to how to revert back to using Text control?

Comment
You can switch back & forth in the Application Painter of MR01. The option is under the "Additional Properties" command button in the Application object's general Property Pane. Then look for the RichText tab page and the associated DDLB in there.
  1. Chris Pollach
  2. Monday, 4 February 2019
Hi Chris, I already checked this and its already been checked and being used, but then i still face the issue. The code remains the same. The header in the report is jumbled, it is being printed at the bottom of the page.
  1. Team BFMS
  2. Thursday, 7 February 2019
Hi Chris;

Please open a support ticket for this issue.

Regards ... Chris
  1. Chris Pollach
  2. Thursday, 7 February 2019
There are no comments made yet.
  1. Monday, 4 February 2019
  2. PowerBuilder
  3. # 2
Chris Pollach Accepted Answer Pending Moderation
0
Votes
Undo

Hi;

   After installing MR#1880 did you open the Application Painter and change your PB App to revert back to the TX control that older PB's used to use (under-the-hood) for RTE support or, are you still letting your PB2017R3 App default to using the new Appeon introduced TE control?

Regards ... Chris

Comment
There are no comments made yet.
  1. Monday, 4 February 2019
  2. PowerBuilder
  3. # 3
  • Page :
  • 1


There are no replies made for this question yet.
However, you are not allowed to reply to this question.