<!-- #include file="../../include.asp" -->
<%
'<!--
'################################################
' 名称 ：商社-経理部-経理課-伝票メニュー
' 作成日：2002/10/18
' 作成者：山崎
'################################################
'-->
%>
<%
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
Dim Query, Content
Dim InputShiwaketyo, InputShiwakeShukeihyo, InputGokeiZandakaShisanhyo, InputSokanjyoMototyo
Dim InputTaisyakuTaisyohyo, InputSonekiKeisansyo, InputHachiketaSeisanhyo
Dim AutoShiwaketyo, AutoShiwakeShukeihyo, AutoGokeiZandakaShisanhyo, AutoSokanjyoMototyo
Dim AutoTaisyakuTaisyohyo, AutoSonekiKeisansyo, AutoHachiketaSeisanhyo
Dim RiyoDenpyoSu
Dim GenkaKaikeiRiyo
Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
RiyoDenpyoSu = Content.Fields("利用伝票数区分")
InputShiwaketyo = Content.Fields("手動仕訳帳表示")
InputShiwakeShukeihyo = Content.Fields("手動仕訳集計表表示")
InputGokeiZandakaShisanhyo = Content.Fields("手動合計残高試算表表示")
InputSokanjyoMototyo = Content.Fields("手動総勘定元帳表示")
InputTaisyakuTaisyohyo = Content.Fields("手動貸借対照表表示")
InputSonekiKeisansyo = Content.Fields("手動損益計算書表示")
InputHachiketaSeisanhyo = Content.Fields("手動8桁精算表表示")
AutoShiwaketyo = Content.Fields("自動転記仕訳帳表示")
AutoShiwakeShukeihyo = Content.Fields("自動転記仕訳集計表表示")
AutoGokeiZandakaShisanhyo = Content.Fields("自動転記合計残高試算表表示")
AutoSokanjyoMototyo = Content.Fields("自動転記総勘定元帳表示")
AutoTaisyakuTaisyohyo = Content.Fields("自動転記貸借対照表表示")
AutoSonekiKeisansyo = Content.Fields("自動転記損益計算書表示")
AutoHachiketaSeisanhyo = Content.Fields("自動転記8桁精算表表示")
GenkaKaikeiRiyo = "" & Content.Fields("原価会計利用")
End If
%>
<html>
<% = HtmlHeader("") %>
<SCRIPT LANGUAGE="JavaScript">
<!--
HomeAlias = "<% = HomeAlias %>";
HomeAliasSL = "<% = HomeAliasSL %>";
ExitFlg = 1;
-->
</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 OnKeyDown="FormKeyDown(this)" name="form1" method="POST" action="test1.asp">-->
<%
Response.Write(HtmlDesign(1))
Response.Write(HttpL1(3))
If PackageMode = 1 Then
Response.Write(HttpL2("メインメニュー" ,"tblbtn('/" & HomeAlias & "/user/bk/menu_cyac.asp')", "伝票", "", "", "", "", "", "", "", "", ""))
ElseIf GB_Gyosyu <> "B" Then
Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "経理部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s1.asp')", "", "", "伝票", "", "", ""))
Else
Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "経理業務", "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & "1.asp')", "伝票", "", "", "", "", ""))
End If
Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""))
Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", ""))
Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", ""))
Response.Write(HttpL4("伝票", ""))
Response.Write(HttpL5(""))
%>
<div id="L0" style="position:absolute; visibility: hidden; left: 0px; top: 0px;">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="5">
<tr>
<td>
<table border="0" cellpadding="0" cellspacing="0" width="100%" height="100%">
<tr>
<td align="CENTER" valign="MIDDLE">
<TABLE WIDTH="700" HEIGHT="180" BORDER="0" CELLSPACING="5" CELLPADDING="0" BGCOLOR="#FFFFFF" STYLE="BORDER:1px solid #000000">
<TR>
<TD ALIGN="CENTER" BACKGROUND="/<% = HomeAlias %>/images/wdwbk_r.gif?<% = GB_STU %>">
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="100%">
<TR>
<TD WIDTH="20" CLASS="tx1214"> </TD>
<TD ALIGN="left">
<table border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="left">
<table border="0" cellspacing="0" cellpadding="0" width="<% If GB_Gyosyu <> "B" Then %>640<% Else %>400<% End If %>">
<tr>
<TD HEIGHT="25" WIDTH="20" background="/<% = HomeAlias %>/images/ndlgline_lur.gif?<% = GB_STU %>" CLASS="tx1214"> </TD>
<TD HEIGHT="25" ALIGN="CENTER" background="/<% = HomeAlias %>/images/ndlgline_hur.gif?<% = GB_STU %>">
<TABLE WIDTH="100" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="25" style="border-collapse: collapse" bordercolor="#111111" background="/<% = HomeAlias %>/images/ndlgline_hhr.gif?<% = GB_STU %>">
<TR>
<TD ALIGN="CENTER" VALIGN="BOTTOM" CLASS="tx2022mn">【
伝票 】</TD>
</TR>
</TABLE>
</TD>
<TD HEIGHT="25" WIDTH="20" background="/<% = HomeAlias %>/images/ndlgline_rur.gif?<% = GB_STU %>" CLASS="tx1214"> </TD>
</tr>
<tr>
<td background="/<% = HomeAlias %>/images/ndlgline_vlr.gif?<% = GB_STU %>" CLASS="tx1214"> </TD>
<td background="/<% = HomeAlias %>/images/wdwbk_rd.gif?<% = GB_STU %>" align="center">
<TABLE WIDTH="<% If GB_Gyosyu <> "B" Then %>600<% Else %>360<% End If %>" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="60">
<TR ALIGN="CENTER" VALIGN="MIDDLE">
<TD HEIGHT="77" WIDTH="120">
<% If RiyoDenpyoSu = "5" Or RiyoDenpyoSu = "3" Then %>
<TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" CLASS="tbtn5" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2r.gif?<% = GB_STU %>" onClick="tblbtn( '/<% = HomeAlias %>/user/bk/denpyo/fk_nyukinsyukin.asp?Pagetype=Nyukin')">
<TR>
<TD ALIGN="CENTER">入金伝票</TD>
</TR>
</TABLE>
<% End If %>
</TD>
<TD HEIGHT="77" WIDTH="120">
<% If RiyoDenpyoSu = "5" Or RiyoDenpyoSu = "3" Then %>
<TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" CLASS="tbtn5" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2r.gif?<% = GB_STU %>" onClick="tblbtn( '/<% = HomeAlias %>/user/bk/denpyo/fk_nyukinsyukin.asp?Pagetype=Shukkin')">
<TR>
<TD ALIGN="CENTER">出金伝票</TD>
</TR>
</TABLE>
<% End If %>
</TD>
<TD HEIGHT="77" WIDTH="120">
<TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" CLASS="tbtn5" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2r.gif?<% = GB_STU %>" onClick="tblbtn( '/<% = HomeAlias %>/user/bk/denpyo/fk_furikae.asp')">
<TR>
<TD ALIGN="CENTER">振替伝票</TD>
</TR>
</TABLE>
</TD>
<% If GB_Gyosyu <> "B" Then %>
<TD HEIGHT="77" WIDTH="120">
<% If RiyoDenpyoSu = "5" Then %>
<TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" CLASS="tbtn5" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2r.gif?<% = GB_STU %>" onClick="tblbtn( '/<% = HomeAlias %>/user/bk/denpyo/fk_shiireuriage.asp?Pagetype=Shiire')">
<TR>
<TD ALIGN="CENTER">仕入伝票</TD>
</TR>
</TABLE>
<% End If %>
</TD>
<TD HEIGHT="77" WIDTH="120">
<% If RiyoDenpyoSu = "5" Then %>
<TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" CLASS="tbtn5" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2r.gif?<% = GB_STU %>" onClick="tblbtn( '/<% = HomeAlias %>/user/bk/denpyo/fk_shiireuriage.asp?Pagetype=Uriage')">
<TR>
<TD ALIGN="CENTER">売上伝票</TD>
</TR>
</TABLE>
<% End If %>
</TD>
<% End If %>
</TR>
</TABLE>
</td>
<td background="/<% = HomeAlias %>/images/ndlgline_vrr.gif?<% = GB_STU %>" CLASS="tx1214"> </TD>
</tr>
<tr>
<TD HEIGHT="5" WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_vlr.gif?<% = GB_STU %>" CLASS="tx1214"></TD>
<TD HEIGHT="5" BACKGROUND="/<% = HomeAlias %>/images/wdwbk_rd.gif?<% = GB_STU %>" CLASS="tx1214"></TD>
<TD HEIGHT="5" WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_vrr.gif?<% = GB_STU %>" CLASS="tx1214"></TD>
</tr>
<tr>
<TD HEIGHT="20" WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_ldr.gif?<% = GB_STU %>" CLASS="tx1214"> </TD>
<TD HEIGHT="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_hdr.gif?<% = GB_STU %>" CLASS="tx1214"> </TD>
<TD HEIGHT="20" WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_rdr.gif?<% = GB_STU %>" CLASS="tx1214"> </TD>
</tr>
</table>
</td>
<% If Genkavariable > 0 And GenkaKaikeiRiyo = "1" Then %>
<td align="left">
<table border="0" cellspacing="0" cellpadding="0" width="160">
<tr>
<TD HEIGHT="25" WIDTH="20" background="/<% = HomeAlias %>/images/ndlgline_lur.gif?<% = GB_STU %>" CLASS="tx1214"> </TD>
<TD HEIGHT="25" ALIGN="CENTER" background="/<% = HomeAlias %>/images/ndlgline_hur.gif?<% = GB_STU %>">
<TABLE WIDTH="100" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="25" style="border-collapse: collapse" bordercolor="#111111" background="/<% = HomeAlias %>/images/ndlgline_hhr.gif?<% = GB_STU %>">
<TR>
<TD ALIGN="CENTER" VALIGN="BOTTOM" CLASS="tx2022mn">【
製造部 】</TD>
</TR>
</TABLE>
</TD>
<TD HEIGHT="25" WIDTH="20" background="/<% = HomeAlias %>/images/ndlgline_rur.gif?<% = GB_STU %>" CLASS="tx1214"> </TD>
</tr>
<tr>
<td background="/<% = HomeAlias %>/images/ndlgline_vlr.gif?<% = GB_STU %>" CLASS="tx1214"> </TD>
<td background="/<% = HomeAlias %>/images/wdwbk_rd.gif?<% = GB_STU %>" align="center">
<TABLE WIDTH="120" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="60">
<TR ALIGN="CENTER" VALIGN="MIDDLE">
<TD HEIGHT="77" WIDTH="120">
<TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" CLASS="tbtn5" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2r.gif?<% = GB_STU %>" onClick="tblbtn( '/<% = HomeAlias %>/user/bk/denpyo/fk_zairyoshiire.asp')">
<TR>
<TD ALIGN="CENTER">材料<br>仕入伝票</TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
</td>
<td background="/<% = HomeAlias %>/images/ndlgline_vrr.gif?<% = GB_STU %>" CLASS="tx1214"> </TD>
</tr>
<tr>
<TD HEIGHT="5" WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_vlr.gif?<% = GB_STU %>" CLASS="tx1214"></TD>
<TD HEIGHT="5" BACKGROUND="/<% = HomeAlias %>/images/wdwbk_rd.gif?<% = GB_STU %>" CLASS="tx1214"></TD>
<TD HEIGHT="5" WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_vrr.gif?<% = GB_STU %>" CLASS="tx1214"></TD>
</tr>
<tr>
<TD HEIGHT="20" WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_ldr.gif?<% = GB_STU %>" CLASS="tx1214"> </TD>
<TD HEIGHT="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_hdr.gif?<% = GB_STU %>" CLASS="tx1214"> </TD>
<TD HEIGHT="20" WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_rdr.gif?<% = GB_STU %>" CLASS="tx1214"> </TD>
</tr>
</table>
</td>
<% End If %>
</tr>
</table>
</TD>
<TD WIDTH="20" CLASS="tx1214"> </TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
</td>
</tr>
</table>
</td>
</tr>
</table>
</div>
<!--</form>-->
</body>
<% = HtmlFooter %>
</html>
<%
End Sub
%>