📄 outward.asp
字号:
<%@ LANGUAGE="VBScript"%>
<%
response.buffer=true
Response.Expires = 0
Response.CacheControl = "Private"
%>
<script src="../js/birthday.js"></script>
<%const title="出库信息填写"%>
<!-- #include file=../data/username.inc-->
<!-- #include file=../data/connect.asp-->
<!--#include file=../data/myPrg.asp-->
<html>
<head>
<meta http-equiv="Content-Type"content="text/html; charset=gb_2312-80">
<meta name="GENERATOR" content="Microsoft FrontPage Express 2.0">
<title><%=title%></title>
<link rel=stylesheet type=text/css href=../data/forum.css>
<%
newcompanyid = request("companyid")
if newcompanyid = "" then
call closedatabase
Response.Write "<script language=javascript>"
Response.Write "alert(""请先选择公司再做此步操作！"");"
Response.write "history.go(-1);"
Response.Write "</script>"
Response.End
elseif not isnumeric(newcompanyid) then
call closedatabase
Response.Write "<script language=javascript>"
Response.Write "alert(""companyid必须为整数！"");history.go(-1);"
Response.Write "</script>"
Response.End
else
newcompanyid = cint(newcompanyid)
end if
dim direct
direct = request("direct")
if direct <> "" then
take_address = trim(request("take_address"))
if take_address = "" then
call closedatabase
Response.Write "<script language=javascript>"
Response.Write "</script>"
Response.End
else
take_address = replace(take_address,"'","’")
end if
line_no = request("line_no")
line_no = replace(line_no,"'","’")
take_no = request("take_no")
take_no = replace(take_no,"'","’")
Response.Cookies("take_address") = take_address
Response.Cookies("line_no") = line_no
Response.Cookies("take_no") = take_no
else
direct = 0
end if
arra = split(session("username"),";")
UserCompanyid = arra(0)
flag = arra(1)
User = arra(2)
userno = arra(4)
if flag = 4 then
FlagUser = session("flag")
dim dcservice,prodservice
dcservice = ""
prodservice = ""
dim dcFlag,prodFlag
dcFlag = false
prodFlag = false
for ver=0 to userno
if clng(newcompanyid) = clng(FlagUser(ver,9)) then
if instr(dcservice,FlagUser(ver,0)) < 1 then
if dcFlag = true then
dcservice = dcservice &","& FlagUser(ver,0)
else
dcservice = dcservice & FlagUser(ver,0)
dcFlag = true
end if
end if
if instr(prodservice,FlagUser(ver,1)) < 1 then
if prodFlag = true then
prodservice = prodservice &","& FlagUser(ver,1)
else
prodservice = prodservice & FlagUser(ver,1)
prodFlag = true
end if
end if
end if
next
elseif flag > 4 then
call closedatabase
Response.End
end if
sql = "select prod_id,prod_no,prod_type,prod_danwei,prod_flag,prod_pinming,prod_tiji from product where prod_companyid = "&newcompanyid&" and prod_disabled = 0 and prod_dir_flag = 0 order by prod_no asc"
set rs10 = conn.execute(sql)
sql = "select * from guest where guest_disabled = 0 and guest_flag = 1 and guest_companyid = "&newcompanyid&" order by guest_user "
set rs11 = conn.execute(sql)
sql = "select prod_flag,prod_pinming from product where prod_companyid = "&newcompanyid&" group by prod_pinming,prod_flag"
set rs20 = conn.execute(sql)
%>
<script language = "JavaScript">
var onecount;
onecount=0;
subcat = new Array();
<%
count = 0
do while not rs10.eof
%>
subcat[<%=count%>] = new Array("<%response.write trim(rs10("prod_no"))&" " & rs10("prod_type") & " " & rs10("prod_tiji") & " "&rs10("prod_danwei")%>","<%= trim(rs10("prod_flag"))%>","<%= trim(rs10("prod_id"))%>","<%= trim(rs10("prod_pinming"))%>");
<%
count = count + 1
rs10.movenext
loop
rs10.close
set rs10=nothing
%>
onecount=<%=count%>;
var onecount2;
var u;
onecount2=0;
subcat2 = new Array();
var p;
p = 0;
city = new Array();
<%
count2 = 0
do while not rs11.eof
%>
subcat2[<%=count2%>] = new Array("<%response.write rs11("guest_code")%>","<%= trim(rs11("guest_user"))%>","<%= trim(rs11("guest_id"))%>","<%= trim(rs11("guest_address"))%>","<%= trim(rs11("guest_city"))%>","<%= trim(rs11("guest_contact"))%>","<%= trim(rs11("guest_tel"))%>","<%= trim(rs11("guest_pycode"))%>","<%= trim(rs11("guest_city"))%>");
<%
count2 = count2 + 1
rs11.movenext
loop
rs11.close
set rs11=nothing
%>
onecount2=<%=count2%>;
var onecount3;
var wt;
onecount3=0;
subcat3 = new Array();
var p;
p = 0;
<%
count3 = 0
do while not rs20.eof
%>
subcat3[<%=count3%>] = new Array("<%= trim(rs20("prod_flag"))%>","<%= trim(rs20("prod_pinming"))%>");
<%
count3 = count3 + 1
rs20.movenext
loop
rs20.close
set rs20=nothing
%>
onecount3=<%=count3%>;
function changelocation2(locationid)
{
var locationid=locationid;
var i;
if (locationid == "")
set();
else
{
for (i=0;i < onecount2; i++)
{
if (subcat2[i][2] == locationid)
{
document.output1.guest_code.value = subcat2[i][0];
document.output1.guest_code.style.background = "#E7E4E6";
document.output1.guest_pycode.value = subcat2[i][7];
document.output1.guest_pycode.style.background = "#E7E4E6";
document.output1.guest_address.value = subcat2[i][3];
document.output1.guest_address.readOnly = true;
document.output1.guest_address.style.background = "#E7E4E6";
document.output1.guest_city.value = subcat2[i][4];
document.output1.guest_city.readOnly = true;
document.output1.guest_city.style.background = "#E7E4E6";
document.output1.guest_contact.value = subcat2[i][5];
document.output1.guest_contact.readOnly = true;
document.output1.guest_contact.style.background = "#E7E4E6";
document.output1.guest_tel.value = subcat2[i][6];
document.output1.guest_tel.readOnly = true;
document.output1.guest_tel.style.background = "#E7E4E6";
}
}
}
}
function GetCity(locationid)
{
document.output1.outw_where.length = 0;
var locationid=locationid;
var i;
city = new Array();
var ct;
ct = 0;
document.output1.city.options[0] = new Option('========请选择领物人========','');
for (i=0;i < onecount2; i++)
{
document.output1.outw_where.options[document.output1.outw_where.length] = new Option(subcat2[i][1], subcat2[i][2]);
}
}
function GetPinming()
{
document.output1.pinming.length = 0;
var locationid = document.output1.biglocation.options[document.output1.biglocation.selectedIndex].value;
var i;
document.output1.pinming.options[0] = new Option('========物品品名========','');
for (i=0;i < onecount3; i++)
{
if (subcat3[i][0] == locationid)
document.output1.pinming.options[document.output1.pinming.length] = new Option(subcat3[i][1], subcat3[i][0]);
}
}
function ChangePinming()
{
document.output1.smalllocation.length = 0;
var locationid = document.output1.biglocation.options[document.output1.biglocation.selectedIndex].value;
var locationid2 = document.output1.pinming.options[document.output1.pinming.selectedIndex].value;
var locationid3 = document.output1.pinming.options[document.output1.pinming.selectedIndex].text;
if (locationid2 == "")
{
changelocation(document.output1.biglocation.options[document.output1.biglocation.selectedIndex].value);
}
else
{
var i;
document.output1.smalllocation.options[0] = new Option('========物品编号========','');
for (i=0;i < onecount; i++)
{
if (subcat[i][3] == locationid3)
if (subcat[i][1] == locationid2)
document.output1.smalllocation.options[document.output1.smalllocation.length] = new Option(subcat[i][0], subcat[i][2]);
}
}
}
function GetGuest(locationid)
{
document.output1.outw_where.length = 0;
var locationid=locationid;
var i;
document.output1.outw_where.options[0] = new Option('========请选择领物人========','');
for (i=0;i < onecount2; i++)
{
document.output1.outw_where.options[document.output1.outw_where.length] = new Option(subcat2[i][1], subcat2[i][2]);
}
}
function search(locationid,typeid)
{
var locationid=locationid;
var typeid = typeid;
var i;
var u;
u = 0;
for (i=0;i < onecount2; i++)
{ if (typeid == 1)
{
if (subcat2[i][0] == locationid)
{
document.output1.guest_code.value = subcat2[i][0];
document.output1.guest_code.style.background = "#E7E4E6";
document.output1.guest_pycode.value = subcat2[i][7];
document.output1.guest_pycode.style.background = "#E7E4E6";
document.output1.guest_address.value = subcat2[i][3];
document.output1.guest_address.readOnly = true;
document.output1.guest_address.style.background = "#E7E4E6";
document.output1.guest_city.value = subcat2[i][4];
document.output1.guest_city.readOnly = true;
document.output1.guest_city.style.background = "#E7E4E6";
document.output1.guest_contact.value = subcat2[i][5];
document.output1.guest_contact.readOnly = true;
document.output1.guest_contact.style.background = "#E7E4E6";
document.output1.guest_tel.value = subcat2[i][6];
document.output1.guest_tel.readOnly = true;
document.output1.guest_tel.style.background = "#E7E4E6";
document.output1.outw_where.selectedIndex = i+1;
u = 1;
}
}
else if (typeid == 2)
{
if (subcat2[i][7] == locationid)
{
document.output1.guest_code.value = subcat2[i][0];
document.output1.guest_code.style.background = "#E7E4E6";
document.output1.guest_pycode.style.background = "#E7E4E6";
document.output1.guest_address.value = subcat2[i][3];
document.output1.guest_address.readOnly = true;
document.output1.guest_address.style.background = "#E7E4E6";
document.output1.guest_city.value = subcat2[i][4];
document.output1.guest_city.readOnly = true;
document.output1.guest_city.style.background = "#E7E4E6";
document.output1.guest_contact.value = subcat2[i][5];
document.output1.guest_contact.readOnly = true;
document.output1.guest_contact.style.background = "#E7E4E6";
document.output1.guest_tel.value = subcat2[i][6];
document.output1.guest_tel.readOnly = true;
document.output1.guest_tel.style.background = "#E7E4E6";
document.output1.outw_where.selectedIndex = i+1;
u = 1;
}
}
}
if (u == 0)
{
document.output1.outw_where.selectedIndex = 0;
if (typeid == 1)
alert("没有找到领物人编号为" + locationid + "相应的记录!");
else if (typeid == 2)
alert("没有找到领物人的拼音编码为" + locationid + "相应的记录!");
set();
}
if (<%=direct%>==0)
eval("window.document.output1.ok.disabled = true");
}
function set()
{
document.output1.guest_code.value = "";
document.output1.guest_code.readOnly = false;
document.output1.guest_code.style.background = "#FFFFFF";
document.output1.guest_pycode.value = "";
document.output1.guest_pycode.readOnly = false;
document.output1.guest_pycode.style.background = "#FFFFFF";
document.output1.guest_address.value = "";
document.output1.guest_address.readOnly = false;
document.output1.guest_address.style.background = "#FFFFFF";
document.output1.guest_city.value = "";
document.output1.guest_city.readOnly = false;
document.output1.guest_city.style.background = "#FFFFFF";
document.output1.guest_contact.value = "";
document.output1.guest_contact.readOnly = false;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -