ORA_PConnect(); if (!$ora_res){ echo "
Error : " . htmlspecialchars($ora_obj->last_error_msg) . "
"; exit(); } initAjaxParamTemplate(); if ($_REQUEST['action'] == "DoPost") { $result = do_post($ora_obj); } elseif ($_REQUEST['action'] == "initForm") { $result = initForm($ora_obj); } else { $result = -1; } echo $result; unset($_SESSION['TEMPLATE_ARRAY_ADDR']); if ($ora_obj->conn) { $ora_obj->ORA_Close(); #echo "connection closed.
"; } function initAjaxParamTemplate() { $ajaxParamTemplate['PARAM'] = <<< params

PROSES SYPASS-STATEMENT ONLINE

Melakukan proses transfer data ke Aplikasi Statement Online   Periode Proses Terakhir : > note="Periode Statement Terakhir" ATTRIB="DM" display="block" dbname="" class="font11" readonly> > note="Tanggal System" ATTRIB="D-" display="none" dbname="" class="font11" readonly>   Proses Data untuk Periode : <> <>    Process

params; $_SESSION['TEMPLATE_ARRAY_ADDR'] = &$ajaxParamTemplate; } function initForm(&$ora_obj) { $templObj = new PregReplaceCallbackClass(''); $templObj->SetTemplateArray('TEMPLATE_ARRAY_ADDR'); $curr_date = show_tanggal("Y"); $blnproses = date("m")-1; $blnProsesHash = Option_Bulan(); $OPTION_BLN_PROSES = format_html_option($blnProsesHash, $blnproses); $thnproses = date("Y"); if ($blnproses == '01') { $thnproses = $thnproses-1; } $thnProsesHash = Option_Tahun($thnproses); $OPTION_THN_PROSES = format_html_option($thnProsesHash, $thnproses); $_SESSION['ARRAY_ADDR_VAR'] = &$variable_array; $templObj->SetFormatName('PARAM'); $variable_array['LAST_STAT'] = get_sysparm (&$ora_obj, 'LAST_STAT'); $variable_array['OPTION_BLN_PROSES'] = $OPTION_BLN_PROSES; $variable_array['OPTION_THN_PROSES'] = $OPTION_THN_PROSES; $variable_array['CURR_DATE'] = $curr_date; $result = $templObj->PregReplaceCallback(); return $result; } function do_post(&$ora_obj) { $field = explode('^', $_REQUEST["param"]); $num_field = count($field); for ($i=0;$i<$num_field-1;$i++) { $val_sep = '*'; list($field_name, $field_value) = split("[$val_sep]", $field[$i]); $param["$field_name"] = $field_value; $_REQUEST["$field_name"] = $field_value; } $_REQUEST["PERIODE"] = $_REQUEST["BLN_PROSES"].'/'.$_REQUEST["THN_PROSES"]; $_REQUEST["USER_ID"] = $_SESSION["KD_USER"]; $_REQUEST["IPNUM"] = gethostbyname($_SERVER['REMOTE_ADDR']); $_REQUEST["PAGENAME"] = 'sypass_statement.php'; $job = 0; //print_r($_REQUEST); if ($ora_obj->checkProcedure('SYPASS_UTILITY', 'POST_STATEMENT', 'SYPASS') > 0) { //$ora_obj->SetServerOutput(true); $ora_obj->set_auto_commit(); $retVal = $ora_obj->ORA_ProcedureCall('SYPASS.SYPASS_UTILITY.POST_STATEMENT', 1, 0); //$ora_obj->GetDbmsOutput(); //$ora_obj->SetServerOutput(false); $job = $retVal[0]; } if ($job == 0) { $e = $ora_obj->last_error_msg; $vKetError = trim(substr($e[0], 10, strlen($e[0])-10)); $msg = 'Proses GAGAL !!'.chr(10).$vKetError.chr(10).'Click OK untuk Refresh'; $ret = $msg; } else { $ret = $job; } return $ret; } function get_sysparm (&$ora_obj, $paramid) { $sql = "SELECT paramvalue FROM sypass.prm_system WHERE paramid = '$paramid'"; $result_array = $ora_obj->ORA_SelectData($sql,null,null,OCI_FETCHSTATEMENT_BY_ROW); if ($ora_obj->nrows > 0) { $cof_date = $result_array[0]['PARAMVALUE']; } else { $cof_date = show_tanggal("Y"); } return $cof_date; } ?>