. * * 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) { if ($aField['sType'] != 'grid') { $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' );