dwh/sypass_cof_gl_ajax.php

<?php

$PARENT_SCRIPTNAME='sypass_cof_gl.php';
include_once 'script_auth.php';

include_once 'class/PregReplaceCallbackClass.php';
include_once 'init/initialisation_parameter.php';
include_once 'headerFile.php';
include_once 'incl.php';

$ora_obj = new ORAConnectionClass('init/ORA_INIT.php');
$ora_res = $ora_obj->ORA_PConnect();
if (!$ora_res){
    echo "<BR>Error : " . htmlspecialchars($ora_obj->last_error_msg) . "<br>";
    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.<br>";
}

function initAjaxParamTemplate() {
	$ajaxParamTemplate['PARAM'] = <<< params
        <table width="100%" cellpadding="2" cellspacing="1" border="0" style="layout:auto">
		<tr>
			<td align=left class="orangetitle" nowrap>PROSES SYPASS-COST OF FUNDS GL</td>
		</tr>
		<tr>
			<td align=left>
				<form name="rep_param" onsubmit="javascript:return false;">
				<table width="65%" cellpadding="2" cellspacing="1" border="0" style="layout:auto" class="font11">
				<tr>
					<td colspan=3>
						Melakukan proses transfer data GL ke Aplikasi Cost of Funds<BR><BR>
						Tanggal yang diisi adalah H-1
					</td>
				</tr>
				<tr><td>&nbsp;</td></tr>
				<tr>
					<td align=left>Tanggal Data Terakhir</td>
					<td>:</td>
					<td align=left>
						<input type="text" name="LAST_COF_GL" value=<<LAST_COF_GL>> note="Tanggal COF GL Terakhir" ATTRIB="DM" display="block" dbname="" class="font11" readonly>
					</td>
				</tr>
				<tr><td>&nbsp;</td></tr>
				<tr>
					<td align=left>Proses Data untuk Tanggal</td>
					<td>:</td>
					<td align=left>
						<input type="text" name="TGL_PROSES" value=<<DATE>> note="Tanggal Proses" ATTRIB="DM" display="block" dbname="TGL_PROSES" class="font11" readonly onclick="javascript:displayCalendar(this,'dd-mm-yyyy',this);" onblur='javascript:chgAttr(rep_param.PROCESS)';>
						<input type="hidden" name="CURR_DATE" value=<<CURR_DATE>> note="Tanggal System" ATTRIB="D-" display="none" dbname="" class="font11" readonly>
					</td>
				</tr>
				<tr><td>&nbsp;</td></tr>
				<tr>
					<td>
						<button id="PROCESS_BTN" name="PROCESS" dbname="" display="no" onclick="javascript:doPost();">
							<img src="images/button_execute.gif" width="12" height="12">
							<span class="font10">&nbsp;Process</span>
						</button>
					</td>
				</tr>
				</table>
				</form>
			</td>
		</tr>
        </table>
params;

    $_SESSION['TEMPLATE_ARRAY_ADDR'] = &$ajaxParamTemplate;
}


function initForm(&$ora_obj) {
    $templObj = new PregReplaceCallbackClass('');
    $templObj->SetTemplateArray('TEMPLATE_ARRAY_ADDR');

    $last_cof = get_sysparm($ora_obj, 'LAST_COF_GL');
	$date = cof_date(&$ora_obj);
	$curr_date = show_tanggal("Y");
    $_SESSION['ARRAY_ADDR_VAR'] = &$variable_array;
	$variable_array['LAST_COF_GL'] = $last_cof;
	$variable_array['DATE'] = $date;
	$variable_array['CURR_DATE'] = $curr_date;
    $templObj->SetFormatName('PARAM');
    $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["USER_ID"] = $_SESSION["KD_USER"];
    $_REQUEST["IPNUM"] = gethostbyname($_SERVER['REMOTE_ADDR']);
    $_REQUEST["PAGENAME"] = 'sypass_cof_gl.php';

    if ($ora_obj->checkProcedure('SYPASS_UTILITY', 'POST_COF_GL', 'SYPASS') > 0) {
        //$ora_obj->SetServerOutput(true);
        $ora_obj->set_auto_commit();
        $retVal = $ora_obj->ORA_ProcedureCall('SYPASS.SYPASS_UTILITY.POST_COF_GL', 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 cof_date(&$ora_obj) {
	$sql = "SELECT DISTINCT gl_datetr FROM sypass.cof_gl_ext";
	//echo $sql;
	$result_array = $ora_obj->ORA_SelectData($sql,null,null,OCI_FETCHSTATEMENT_BY_ROW);
	if ($ora_obj->nrows > 0) {
		$cof_date = $result_array[0]['GL_DATETR'];
		$cof_date = substr($cof_date, 6,2).'-'.substr($cof_date, 4,2).'-'.substr($cof_date, 0,4);
	} else {
		$cof_date  = show_tanggal("Y");
	}
	return $cof_date;
}


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'];
		$cof_date = substr($cof_date, 6,2).'-'.substr($cof_date, 4,2).'-'.substr($cof_date, 0,4);
	} else {
		$cof_date  = show_tanggal("Y");
	}
	return $cof_date;
}

?>