I have written a procedure to make HTML page in Web PL/SQL. The html page is displaying perfectly at first time. But when i click on submit button i am getting 404 not found error.
Here's sample of my code:
CREATE OR REPLACE PACKAGE BODY APPS.XAN_EMP_BANKS_PKG
IS
PROCEDURE DISPLAY_FRAMES
IS
BEGIN
IF (NOT icx_sec.VALIDATESESSION)
THEN
RETURN;
END IF;
BUILD_FRAME0(
'Employee', --p_usertype
'701498199', --p_ein
'619711', --p_banksortcode
'61971111', --p_bankaccnum
'Submit', --p_submit
'' --p_token
);
END DISPLAY_FRAMES;
PROCEDURE BUILD_FRAME0(
p_usertype IN varchar2,
p_ein IN varchar2,
p_banksortcode IN varchar2,
p_bankaccnum IN varchar2,
p_submit IN varchar2,
p_token IN varchar2
)
IS
v_EIN per_people_f.employee_number%TYPE;
v_TOKEN_VALUE varchar2(50);
v_ERROR_MSG varchar2(200);
v_token_count number;
v_bank_account_id ap_bank_accounts_all.bank_account_id%type;
BEGIN
IF (NOT icx_sec.VALIDATESESSION)
THEN
RETURN;
END IF;
HTP.p ('
<!DOCTYPE HTML>
<HTML>
<HEAD>
<TITLE>
Bank Validation Screen '||p_ein||'
</TITLE>
<script LANGUAGE="JavaScript">
function submitForm() {
alert(''Step2'');
if(document.forms[''bank_validation_form'']) {
alert(''form found'');
document.forms[''bank_validation_form''].submit();
}
else{
alert(''form not found'');
}
}
</script>
<STYLE>
.text1{
font-family: Arial,Helvetica,Geneva,sans-serif;
font-size: 10pt;
color: #630;
}
.text1 td{
width:150px;
}
.width150{
width:150pt;
}
</STYLE>
</HEAD>
<BODY class="OraBody">
<form id="bank_validation_form" name="bank_validation_form" method="POST"
action="xan_emp_banks_pkg.BUILD_FRAME0">
');
htp.p('
<center>
<table class="text1" style="text-align:left;">');
htp.p('
<tr >
<td>User Type</td>
<td colspan="2">
<select name="p_usertype" class="width150">');
IF lower(trim(p_usertype))='employee' then
htp.p('
<option value="Employee"
selected>Employee</option>
<option value="Supplier">Supplier</option>');
ELSE
htp.p('
<option value="Employee" >Employee</option>
<option value="Supplier"
selected>Supplier</option>');
END IF;
htp.p('
</select>
</td>
</tr>
<tr>
<td>Ein/Vendor Number</td> <td colspan="2"><input
type="text" name="p_ein" class="width150" value="'||p_ein||'"></input>
</td>
</tr>
<tr>
<td>Bank Sort Code</td> <td><input type="text"
name="p_banksortcode" class="width150" value="'||p_banksortcode||'">
</input></td><td> </td>
</tr>
<tr>
<td>Bank Account Number</td><td><input type="text"
name="p_bankaccnum" class="width150" value="'||p_bankaccnum||'"></input>
</td><td> </td><br><br>
</tr>
');
htp.p('
<tr>
<td></td>
<td style="text-align:center;"><center><input type="submit"
name="p_submit" value="Submit"/> <input type="submit"
name="p_submit" value="Inquire"/></center></td>
<td></td>
</tr> </TABLE>
');
htp.p('<br><br><br><br>');
IF lower(trim(p_submit))='inquire' THEN
htp.p('
<DIV style="text-align:center;">
<span style="color:#808080;font-family:''Courier
New'';font-size:x-large;padding:5px;border:1px solid #000">Inquire
Clicked</span><br /><br />
</DIV>
');
ELSIF lower(trim(p_submit))='submit' THEN
htp.p('
<DIV style="text-align:center;">
<span style="color:#808080;font-family:''Courier
New'';font-size:x-large;padding:5px;border:1px solid #000">Submit
Clicked</span><br /><br />
</DIV>
');
END IF;
htp.p('
</center>
</form>');
HTP.p (' </BODY> </HTML>');
END BUILD_FRAME0;
END APPS.XAN_EMP_BANKS_PKG;
Aucun commentaire:
Enregistrer un commentaire