XML报表

来源：互联网发布：炫酷导航页面源码编辑：程序博客网时间：2024/05/27 20:52

Function Generate_xmlReport();
   Local XmlDoc &xmlDoc;
   Local XmlNode &root_node, &sub_node, &text_node;
   Local Rowset &rs, &rs1;

   Local PSXP_XMLGEN:RowSetDS &oRS;
   Local PSXP_RPTDEFNMANAGER:ReportDefn &oRptDefn;
   Local PSXP_RPTDEFNMANAGER:DataSourceDefn &oDsDefn;

   &xmlDoc = CreateXmlDoc("<?xml version='1.0' encoding='UTF-8'?><ROOT/>");
   &root_node = &xmlDoc.DocumentElement.AddElement("DATA");

   &sEMPLID = ABI_PER_SER_VW.EMPLID.Value;
   &sub_node = &root_node.AddElement("EMPLID");
   &text_node = &sub_node.AddText(ABI_PER_SER_VW.EMPLID.Value);


   &sub_node = &root_node.AddElement("NAME");
   &text_node = &sub_node.AddText(ABI_PER_SER_VW.NAME.Value);


   &sub_node = &root_node.AddElement("DEPT");
   &text_node = &sub_node.AddText(DEPT_TBL.DESCR.Value);


   &sub_node = &root_node.AddElement("POSITION");
   &text_node = &sub_node.AddText(POSITION_DATA.DESCR.Value);

   &oRptDefn = create PSXP_RPTDEFNMANAGER:ReportDefn("TST_PRB01");
   &oRptDefn.Get();
   &oRptDefn.SetRuntimeDataXMLDoc(&xmlDoc);

   /* process report */
   &oRptDefn.ProcessReport("", "ZHS", %Date, "");
   CommitWork();
   &oRptDefn.DisplayOutput();
End-Function;