. * * For more information, contact Colosa Inc, 2566 Le Jeune Rd., * Coral Gables, FL, 33134, USA, or email info@colosa.com. * */ if (($RBAC_Response=$RBAC->userCanAccess("PM_FACTORY"))!=1) return $RBAC_Response; G::LoadClass('reportTables'); G::LoadClass('xmlfield_InputPM'); $aFields['FIELDS'] = array(); if (isset($_GET['REP_TAB_UID'])) { $oReportTable = new ReportTable(); $aFields = $oReportTable->load($_GET['REP_TAB_UID']); $aTheFields = getDynaformsVars($aFields['PRO_UID'], false); $oReportTables = new ReportTables(); $aVars = $oReportTables->getTableVars($_GET['REP_TAB_UID']); $aFields['FIELDS'] = array(); foreach ($aTheFields as $aField) { if (in_array($aField['sName'], $aVars)) { $aFields['FIELDS'][] = $aField['sName'] . '-' . $aField['sType']; } } } else { $aFields['PRO_UID'] = $_GET['PRO_UID']; $aFields['FIELDS'] = array(); $aTheFields = getDynaformsVars($aFields['PRO_UID'], false); } $aProcessFields[] = array('FIELD_UID' => 'char', 'FIELD_NAME' => 'char'); $aTheFields = getDynaformsVars($aFields['PRO_UID'], false); foreach ($aTheFields as $aField) { $aProcessFields[] = array('FIELD_UID' => $aField['sName'] . '-' . $aField['sType'], 'FIELD_NAME' => $aField['sName']); } $aProcessGridFields[] = array('FIELD_UID' => 'char', 'FIELD_NAME' => 'char'); $aTheFields = getGridsVars($aFields['PRO_UID']); foreach ($aTheFields as $aField) { $aProcessGridFields[] = array('FIELD_UID' => $aField['sName'] . '-' . $aField['sXmlForm'], 'FIELD_NAME' => $aField['sName']); } global $_DBArray; $_DBArray['processFields'] = $aProcessFields; $_DBArray['processGridFields'] = $aProcessGridFields; $_SESSION['_DBArray'] = $_DBArray; $aFields['LANG'] = SYS_LANG; $G_PUBLISH = new Publisher(); $G_PUBLISH->AddContent('xmlform', 'xmlform', 'reportTables/reportTables_Edit', '', $aFields, '../reportTables/reportTables_Save'); G::RenderPage('publish', 'blank'); ?>