Adding to the Information Pane line items

Adding to the end of the line items for the Information Pane is a two-step process. First, the column header must be added to the line item header. Then the values for each line item must be added.

The following example is a portion of the Startup script for the sample integrating application. It registers a trigger for the XML_CreateLineColumnHeaders procedure of the ListObj_AccountTrx form.

l_result = Trigger_RegisterProcedure(script XML_CreateLineColumnHeaders of form ListObj_AccountTrx, TRIGGER_AFTER_ORIGINAL, script IG_AddCompanyToAccountTrxHeader);
if l_result <> SY_NOERR then
	warning "Procedure trigger registration failed.";
end if;

The following is the IG_AddCompanyToAccountTrxHeader trigger processing procedure that runs in response to this trigger. This procedure uses the XMLDoc_AddColumn procedure to add a new column to the line item header.

in integer nTrxType;
inout ListPrevPaneXMLState XMLState;

{Add the Company header item, with the item right-justified}
call XMLDoc_AddColumn of form syListObj, XMLState, "Company", true;

The following example is a portion of the Startup script for the sample integrating application. It registers a trigger for the XML_AddLineItem procedure of the ListObj_AccountTrx form.

l_result = Trigger_RegisterProcedure(script XML_AddLineItem of form ListObj_AccountTrx, TRIGGER_AFTER_ORIGINAL, script IG_AddCompanyToAccountTrx);
if l_result <> SY_NOERR then
	warning "Procedure trigger registration failed.";
end if;

The following is the IG_AddCompanyToAccountTrx trigger processing procedure that runs in response to the trigger. This procedure uses the XMLDoc_AddLineItemValue procedure to add the company value to the end of the current line item.

in anonymous table TrxHdr;
in anonymous table TrxLine;
in integer nTrxStatus;
in integer nTrxType;
inout ListPrevPaneXMLState XMLState;
inout reference RowValuesElement;

if technicalname(table TrxLine) = "GL_YTD_TRX_OPEN" then
	call XMLDoc_AddLineItemValue of form syListObj, XMLState, RowValuesElement, 'Originating Company ID' of table TrxLine, true;
end if;

if technicalname(table TrxLine) = "GL_TRX_LINE_WORK" then
	call XMLDoc_AddLineItemValue of form syListObj, XMLState, RowValuesElement, 'Intercompany ID' of table TrxLine, true;
end if;

Documentation Feedback

---