📄 caiwu_add.asp
字号:
<!-- #include file="../inc_config.asp" -->
<!-- #include file="LoginCk.asp" -->
<%
Call PopCheck(81)
If Len(User)>0 Then
If Conn.Num("EfangUser","User_User=" & User)=0 Then Call ShowErMsgSel("会员帐号不存在！","User")
End If
If Cmd="Add" then
CaiWu_Sum = Request("CaiWu_Sum")
CaiWu_Cben = Request("CaiWu_Cben")
If Len(CaiWu_Cben)=0 Then CaiWu_Cben=0
CaiWu_Kind = Request("CaiWu_Kind")
CaiWu_YSign = trim(Request("CaiWu_YSign"))
CaiWu_Path = Request("CaiWu_Path")
CaiWu_NRong = Request("CaiWu_NRong")
CaiWu_HTime = Request("CaiWu_HTime")
If IsDate(CaiWu_HTime)=False Then CaiWu_HTime = Efang.DateTime("Y-m-d")
CaiWu_Memo = Request("CaiWu_Memo")
If CaiWu_Kind = "业务扣款" Or CaiWu_Kind = "退款出帐" Then CaiWu_Sum = CaiWu_Sum*-1
CaiWu_WUser = Conn.QueryItem("EfangUser","User_WUser","User_User=" & User)
If Len(CaiWu_YSign)>0 Then
Set TmData = Conn.Query("EfangYeWu","YeWu_Sign='" & CaiWu_YSign & "'")
If TmData.BOF or TmData.EOF Then Call ShowErMsgSel("业务不存在！","CaiWu_YSign")
CaiWu_PSort = TmData("YeWu_PSort")
CaiWu_PSign = TmData("YeWu_PSign")
CaiWu_WUser = TmData("YeWu_WUSer")
Set TmData = Nothing
End If
EfsField = EfsField & "CaiWu_State,"
EfsValue = EfsValue & "'未审核',"
EfsField = EfsField & "CaiWu_AddUser,"
EfsValue = EfsValue & "'" & LgData("Admin_User") & "',"
EfsField = EfsField & "CaiWu_User,"
EfsValue = EfsValue & User & ","
EfsField = EfsField & "CaiWu_WUser,"
EfsValue = EfsValue & "'" & CaiWu_WUser & "',"
EfsField = EfsField & "CaiWu_Sum,"
EfsValue = EfsValue & CaiWu_Sum & ","
EfsField = EfsField & "CaiWu_CBen,"
EfsValue = EfsValue & CaiWu_Cben & ","
EfsField = EfsField & "CaiWu_Kind,"
EfsValue = EfsValue & "'" & CaiWu_Kind & "',"
EfsField = EfsField & "CaiWu_YSign,"
EfsValue = EfsValue & "'" & CaiWu_YSign & "',"
EfsField = EfsField & "CaiWu_PSort,"
EfsValue = EfsValue & "'" & CaiWu_PSort & "',"
EfsField = EfsField & "CaiWu_PSign,"
EfsValue = EfsValue & "'" & CaiWu_PSign & "',"
EfsField = EfsField & "CaiWu_Path,"
EfsValue = EfsValue & "'" & CaiWu_Path & "',"
EfsField = EfsField & "CaiWu_NRong,"
EfsValue = EfsValue & "'" & CaiWu_NRong & "',"
EfsField = EfsField & "CaiWu_HTime,"
EfsValue = EfsValue & "'" & CaiWu_HTime & "',"
EfsField = EfsField & "CaiWu_Memo"
EfsValue = EfsValue & "'" & CaiWu_Memo & "'"
call Conn.Insert("EfangCaiWu",EfsField,EfsValue)
Call UpdYufu(User)
Call ShowErMsgSelSucc("入款成功！","CaiWu_Add.asp")
End if
%>
<html>
<head>
<title>财务入款</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%=Efs_Cfg_PHeader%>
<style type="text/css">
<!--
.unnamed1 {
color: #FF0000;
font-weight: bold;
}
-->
</style>
<link id="style_sheet" href="css/save.css" type="text/css" rel="stylesheet">
<script language="JavaScript">style_sheet.href = parent.parent.style_sheet.href;</script>
<script language="JavaScript" src="../inc_DateSelect.js" type="text/JavaScript"></script>
<script language="JavaScript" src="../inc_config.js" type="text/JavaScript"></script>
</head>
<script language="JavaScript" src="js/common_Efang.js"></script>
<body class="NormalPage">
<form id="form_help" action="help_content.asp" method="get" target="working_area">
<input name="help_topic" type="hidden" value="入款扣款">
</form>
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td id="headerToolBar" valign="middle" nowrap style="width:100%; height:22px;"><table cellpadding="0" cellspacing="0" class="HeaderPageControl">
<tr>
<td align="left" valign="middle" nowrap height="20">财务管理>> 财务操作 >> <b></b><b></b><b>入款扣款</b></td>
<td align="center" valign="middle" nowrap width="10" height="20"></td>
<td align="right" valign="middle" width="100%" nowrap height="20"></td>
<td align="center" valign="middle" nowrap width="10" height="20"></td>
<td align="right" valign="middle" width="60" nowrap height="20"><img id="id_back" alt="返回上一页" onclick="JavaScript:history.back()" onmouseover="JavaScript:this.src=imgBackUp.src" onmouseout="JavaScript:this.src=imgBackDown.src" src="images/toolbar_back.gif" border="0" style="cursor:hand;width:22px; height:20px;"><img id="id_refresh" alt="刷新" onclick="JavaScript:fn_Refresh()" onmouseover="JavaScript:this.src=imgRefreshUp.src" onmouseout="JavaScript:this.src=imgRefreshDown.src" src="images/toolbar_refresh.gif" border="0" style="cursor:hand;width:22px; height:20px;"></td>
<td align="right" valign="middle" width="25" nowrap height="20"><img id="id_locate" alt="帮助" onclick="JavaScript:fn_ShowHelp()" onmouseover="JavaScript:this.src=imgHelpUp.src" onmouseout="JavaScript:this.src=imgHelpDown.src" src="images/toolbar_help.gif" border="0" style="cursor:hand;width:22px; height:20px;"></td>
</tr>
</table></td>
</tr>
<tr>
<td valign="top">
<div id="viewPanel" style="visibility:visible; position:absolute; overflow:auto;">
<br>
<table width="85%" border="0" align="center" cellpadding="0" cellspacing="0" class="datalist">
<tr align="right">
<td height="30" class="DataGroup"><a href="CaiWu_Add.asp" class=commonface>入款扣款</a> | <a href="CaiWu_ArrUser.asp" class=commonface >欠款会员</a> | <a href="CaiWu_YufuUser.asp" class=commonface >预付会员</a> | <a href="CaiWu_XYUser.asp" class=commonface>信用额度</a> </td>
</tr>
</table><br>
<table width="85%" height="300" border="0" align="center" cellpadding="0" cellspacing="0" class="datalist">
<tr>
<td class="DataGroup" valign="middle">
<table width="100%" border="0" align="center" cellPadding="0" cellSpacing="0" class="datalist">
<form action="?Cmd=Add" method="POST" name="EForm" target="AddCaiwu" onSubmit="return CheckForm(this)">
<tr align="center">
<td height="30" colspan="2"> <span class="105pt"><b>财务入款扣款</b></span></td>
</tr>
<tr>
<td width="87" height="28" align="right"> <p align="right">会员帐号：
</td>
<td width="344"> <input name="User" type="text" class="InputOne" id="User" value="<%=User%>" size="10" maxlength="6"> </td>
</tr>
<tr>
<td height="28" align="right"> <p align="right">入帐类型：</td>
<td> <select name="CaiWu_Kind" onchange="ShowYeWu(this.options[this.options.selectedIndex].value);">
<option value="汇款入帐" selected>汇款入帐</option>
<option value="退款出帐">退款出帐</option>
<option value="退款入户">退款入户</option>
<option value="业务扣款">业务扣款</option>
<option value="优惠返款">优惠返款</option>
</select> <script language="JavaScript">
<!--
function ShowYeWu(ppid){
if(ppid=="业务扣款" || ppid=="退款入户"){ YeWuXX.style.display = ''; }
else{ YeWuXX.style.display = 'none'; }
if(ppid=="业务扣款"){
SCBen.style.display = '';
EForm.CaiWu_Path.value="帐户扣款";
SPath.style.display = 'none';
}
else{
SCBen.style.display = 'none';
EForm.CaiWu_Path.value="";
SPath.style.display = '';
}
if(ppid=="退款入户"){
EForm.CaiWu_Path.value="现金支付";
SPath.style.display = 'none';
}
else{
EForm.CaiWu_Path.value="";
SPath.style.display = '';
}
}
-->
</script> </td>
</tr>
<tr>
<td width="87" height="28" align="right"> <p align="right">金 额：</td>
<td width="344"> <input name="CaiWu_Sum" type="text" class="InputOne" id="CaiWu_Sum" size="10" maxlength="10">
元 </td>
</tr>
<TBody id="SCBen" style="DISPLAY:none">
<tr>
<td height="28" align="right">成本金额：</td>
<td> <input name="CaiWu_Cben" type="text" class="InputOne" id="CaiWu_CBen" size="10" maxlength="6">
元 </td>
</tr>
</TBody>
<TBody id="YeWuXX" style="DISPLAY:none">
<tr>
<td height="28" align="right">对应业务：</td>
<td> <input name="CaiWu_YSign" type="text" class="InputOne" id="CaiWu_YSign" size="20"> </td>
</tr>
</TBody>
<TBody id="SPath">
<tr>
<td width="87" height="28" align="right"> <p align="right">
付款途径：</td>
<td width="344"> <input name="CaiWu_Path" type="text" class="InputOne" id="CaiWu_Path" size="20">
<select name="patha" onchange="ShowPath(this.value);" onclick="if(this.value=='在线支付')ShowPath('在线支付');">
<option value="在线支付" selected>在线支付</option>
<option value="招行转帐">招行转帐</option>
<option value="工行电汇">工行电汇</option>
<option value="建行电汇">建行电汇</option>
<option value="中国银行">中国银行</option>
<option value="邮局汇款">邮局汇款</option>
<option value="现金支付">现金支付</option>
<option value="帐户扣费">帐户扣费</option>
</select> <script language="JavaScript">
<!--
function ShowPath(ppid){
EForm.CaiWu_Path.value = ppid;
}
-->
</script> <span class="10pt"> </span> </td>
</tr>
</TBODY>
<tr>
<td height="28" align="right">内容：</td>
<td><input name="CaiWu_NRong" type="text" class="InputOne" id="CaiWu_NRong" size="40">
（客户可看到）</td>
</tr>
<tr>
<td width="87" height="28" align="right">付款时间： </td>
<td width="344"><input onfocus="setday(this)" name="CaiWu_HTime" type="text" class="InputOne" id="CaiWu_HTime" value="<%=Efang.DateTime("Y-m-d")%>" size="20"></td>
</tr>
<tr>
<td width="87" height="28" align="right">备 注：</td>
<td width="344"> <textarea name="CaiWu_Memo" cols="40" rows="5" wrap="VIRTUAL" class="input" id="CaiWu_Memo"></textarea> </td>
</tr>
<tr align="center">
<td colspan="2" height="33"><script language="JavaScript">
function CheckForm(Form)
{
if (Form.User.value.length!=6) {
alert("会员帐号必须为六位数字！");
Form.User.select(); Form.User.focus();
return false;
}
if (Form.User.value.substring(0,1)==0) {
alert("会员帐号的首位不能为零！");
Form.User.select(); Form.User.focus();
return false;
}
if(CkStr(Form.User.value,"0123456789")==false){
alert("填写的会员帐号必须为六位数字！不得含有其它字符！");
Form.User.select(); Form.User.focus();
return false;
}
if (Form.CaiWu_Sum.value.length==0) {
alert("请填写金额！");
Form.CaiWu_Sum.select();Form.CaiWu_Sum.focus();
return false;
}
if (Form.CaiWu_Sum.value.substring(0,1)==0) {
alert("金额的首位不能为零！");
Form.CaiWu_Sum.select();Form.CaiWu_Sum.focus();
return false;
}
if(CkStr(Form.CaiWu_Sum.value,"0123456789.")==false){
alert("填写的金额必须为数字！不得含有其它字符！");
Form.CaiWu_Sum.select();Form.CaiWu_Sum.focus();
return false;
}
if (Form.CaiWu_Path.value.length==0) {
alert("请填写付款途径！");
Form.CaiWu_Path.focus();
return false;
}
if (Form.CaiWu_HTime.value.length==0) {
alert("请填写付款时间！");
Form.CaiWu_HTime.focus();
return false;
}
return true;
}
</script>
<input type="submit" name="B1" value=" 提 交 " class="ButtonOne"> </td>
</tr></form>
</table></td>
</tr>
</table></div>
</td>
</tr>
</table>
<iframe name="AddCaiwu" width="0" scrolling=NO height="0" frameborder=0 ></iframe>
<% Call ExitEnd(False) %>
</body>
<script language="JavaScript">
<!--
document.parentWindow.onresize = fn_RejustViewPanel ;
fn_RejustViewPanel ( ) ;
//alert ( document.body.clientWidth + ":" + viewPanel.clientWidth ) ;
//-->
</script>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -