<!-- #include file="../../include.asp" -->
<%
'<!--
'################################################
' 名称 ：自社情報登録
' 作成日：2002/8/30
' 作成者：山崎
' 目的 ：自社情報を登録する
' 概要 ：
' <<表示>>
' ・自社情報を登録に必要な入力フィールドが表示
' 2002/9/30:山崎:修正:会社略名称を追加
'################################################
'-->
'
'
%>
<%
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
Dim Query
Dim Content
Dim DaihyoTorishimariyaku
Dim ref
ref = Request("ref")
Query = "exec SPM会社取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_KaisyaCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
If "" & Content.Fields("自社フラグ") = "1" Then
DaihyoTorishimariyaku = Content.Fields("代表取締役")
End If
End If
%>
<html>
<% = HtmlHeader("") %>
<SCRIPT LANGUAGE="JavaScript">
<!--
ExitFlg = 1;
HomeAlias = "<% = HomeAlias %>";
HomeAliasSL = "<% = HomeAliasSL %>";
-->
</SCRIPT>
<body onkeydown="if(ExitFlg==2)ExitFlg=3;" onBeforeUnload="if(ExitFlg!=0)window.event.returnValue = ExitMsg(ExitFlg)" bgcolor="#5C70B6" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<form name="form1" method="POST" action="daihyotorishimariyaku_bin.asp" autocomplete="off">
<input type="hidden" name="ref" value="<% = ref %>">
<input type="hidden" name="WBCLB" value="<% = Request("WBCLB") %>">
<%
Response.Write(HtmlDesign(9))
Response.Write(HttpL1(0))
If PackageMode = 1 Then
Response.Write(HttpL2("代表取締役" , "", "", "", "", "", "", "", "", "", "", ""))
Else
Response.Write(HttpL2("会社選択", "tblbtn( 'default.asp')","代表取締役" , "", "", "", "", "", "", "", "", ""))
End If
Response.Write(HttpL3("", "", "", "", "","" ,"", "", "", "", "", "", "", "", "", ""))
Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", ""))
Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", ""))
Response.Write(HttpL4("", ""))
%>
<div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;">
<TABLE BORDER="0" CELLSPACING="5" CELLPADDING="0" BGCOLOR="#FFFFFF" style="BORDER:1px solid #000000" WIDTH="460" HEIGHT="250">
<TR>
<TD ALIGN="CENTER" BACKGROUND="/<% = HomeAlias %>/images/window_bk.gif">
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" WIDTH="480" HEIGHT="200">
<TR ALIGN="CENTER" VALIGN="BOTTOM">
<TD HEIGHT="35" ALIGN="CENTER" VALIGN="BOTTOM">
<TABLE WIDTH="100%" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="30" CLASS="tx1416">
<TR>
<TD WIDTH="300"> 代表取締役のお名前を入力してください</TD>
<TD ALIGN="RIGHT">
</TD>
</TR>
</TABLE>
</TD>
</TR>
<TR ALIGN="CENTER">
<TD VALIGN="MIDDLE" ALIGN="CENTER">
<TABLE HEIGHT="100" WIDTH="400" BORDER="0" CELLSPACING="0" CELLPADDING="0" STYLE="border:solid 1px #FF66BB">
<TR>
<TD>
<table border="0" height="100" cellpadding="2" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" CLASS="tx1214">
<tr>
<td align="center">
<input OnKeyDown="FormKeyDown(this)" type="text" name="DaihyoTorishimariyaku" size="45" value="<% = DaihyoTorishimariyaku %>" class="tbox4_ime" onBlur="FormStrLeftIME(this,20,true,true)">(10)
</td>
</tr>
</table>
</TD>
</TR>
</TABLE>
</TD>
</TR>
<TR>
<TD HEIGHT="35" align="right">
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0">
<TR>
<TD>
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="30" onClick="SubmitCheck()" BGCOLOR="#33CCFF" CLASS="tbtn1" WIDTH="130">
<TR>
<TD WIDTH="10" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bl.gif?<% = GB_STU %>"> </TD>
<TD ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>" WIDTH="100">決 定</TD>
<TD WIDTH="10" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_br.gif?<% = GB_STU %>"> </TD>
<TD WIDTH="60" BACKGROUND="/<% = HomeAlias %>/images/window_bk.gif?<% = GB_STU %>"> </TD>
</TR>
</TABLE>
</td>
</tr>
</table>
</TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
</div>
</form>
</body>
<SCRIPT LANGUAGE="JavaScript">
function SubmitCheck()
{
if(form1.DaihyoTorishimariyaku.value == "")
{
alert("お名前を入力して下さい");
form1.DaihyoTorishimariyaku.focus();
return false;
}
SubmitReal(form1);
return true;
}
</script>
<% = HtmlFooter %>
</html>
<%
End Sub
%>