%
'
%>
<%
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
Dim AutoGenkinNyusyukinRireki, AutoYokinNyusyukinRireki, AutoNyukoJisseki, AutoSyukoJisseki
Dim AutoSyohinZaiko, AutoUketoriTegataIchiran, AutoShiaraiTegataIchiran
Dim AiteShukkoHitsuyo
Dim Query, Content
Dim Kitakuriyou, KitakuKeiyaku
Dim SenpoHitsuyo
Dim SoukoRiyo
'注文請書確認要不要トグル
Dim UkeshoKakunin
UkeshoKakunin = 1
Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
Dim YobiA
YobiA = Content.Fields("履歴表示")
AiteShukkoHitsuyo = "" & Content.Fields("入庫時相手出庫必要")
Kitakuriyou = "" & Content.Fields("寄託倉庫利用") '060909追加 テーブルにもフィールドを追加
AutoGenkinNyusyukinRireki = Mid(YobiA, 1, 1)
AutoYokinNyusyukinRireki = Mid(YobiA, 2, 1)
AutoNyukoJisseki = Mid(YobiA, 3, 1)
AutoSyukoJisseki = Mid(YobiA, 4, 1)
AutoSyohinZaiko = Mid(YobiA, 5, 1)
AutoUketoriTegataIchiran = Mid(YobiA, 6, 1)
AutoShiaraiTegataIchiran = Mid(YobiA, 7, 1)
UkeshoKakunin = Content.Fields("注文請書確認利用")
SenpoHitsuyo = "" & Content.Fields("仕入売上書類先方書類必要")
SoukoRiyo = "" & Content.Fields("倉庫部利用")
End If
If "" & UkeshoKakunin = "" Then
UkeshoKakunin = 1
End If
'寄託利用状態を整数化(070207小野)
If Kitakuriyou = "1" Then
Kitakuriyou = 1
Else
Kitakuriyou = 0
End If
'寄託契約状態判定関数を追加(070207小野)
KitakuKeiyaku = KitakuKeiyakuJoutai() 'int型1文字
Dim ShoshaChk
Dim KanribuChk
ShoshaChk = 0
KanribuChk = 0
Query = "exec SPM会社全部一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GakuseiNo & "'"
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
If Content.Fields("会社CD") <> KaisyaCD Then
'商社存在チェック
If Content.Fields("業種CD") = "S" Then
ShoshaChk = 1
'同一市場の管理部存在チェック
ElseIf Content.Fields("業種CD") = "K" And Content.Fields("市場CD") = GB_ShijyoCD Then
KanribuChk = 1
End If
End If
Content.MoveNext
Loop
%>
<% = HtmlHeader("") %>
<%
Response.Write(HtmlDesign(1))
Response.Write(HttpL1(3))
Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "仕入部", "", "", "", "", "", "", ""))
Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""))
Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", ""))
Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", ""))
Response.Write(HttpL4("仕入部", ""))
%>
<% = Spacer(1,10) %> |
|
|
|
<% = Spacer(1,10) %> |
|
<% If GB_Gyosyu <> "K" Then %>
|
|
|
|
<% If ShoshaChk <> 0 Then %>
<% If Kitakuriyou > 0 Then %>
<% Else %>
<% If Kitakuriyou > 0 Then %>
<% If SenpoHitsuyo <> "1" Then %>
<% Else %>
<% End If %>
<% Else %>
<% If SenpoHitsuyo <> "1" Then %>
<% Else %>
<% End If %>
<% End If %>
注文書 |
<% If UkeshoKakunin > 0 Then %>
|
<% End If %>
<% If Kitakuriyou > 0 Then %>
<% If SenpoHitsuyo <> "1" Then %>
<% Else %>
<% End If %>
<% Else %>
<% If SenpoHitsuyo <> "1" Then %>
<% Else %>
<% End If %>
<% End If %>
物品受領書 |
<% Else %>
取引先に商社が存在しません |
<% End If %>
|
|
|
|
|
|
|
|
|
|
|
<% If KanribuChk <> 0 Then %>
<% If Kitakuriyou > 0 Then %>
onClick="alert('倉庫会社との間に寄託契約を締結してください。\r\n\r\n(寄託契約手続は「社長室・総務部」より行います)');"<% End If %>>
0 Then %> onClick="tblbtn( '/<% = HomeAlias %>/user/bk/shiireuriage/fd_kitaku_syorui.asp?BunsyoSyuruiCD=KX')"<% End If %>>
管理部 買入申込書 (管理部より仕入) |
|
<% Else %>
|
<% End If %>
<% If SenpoHitsuyo <> "1" Then %>
<% Else %>
<% Else %>
同一市場に 管理部が存在しません |
<% End If %>
|
|
|
|
|
|
|
|
|
|
<% End If %>
|
|
|
|
|
<% If AutoSyohinZaiko = "1" Then %>
<% End If %>
|
<% If AutoNyukoJisseki = "1" Then %>
<% End If %>
|
|
|
|
|
|
|
|
|
|
<% If SoukoRiyo <> "1" Or GB_Gyosyu <> "S" Then %>
|
【 <%
If Kitakuriyou > 0 And Gyosyu <> "U" Then
%>在庫管理<%
Else
%>倉庫課<%
End If
%> 】 |
|
|
|
<% If Kitakuriyou > 0 And Gyosyu <> "U" And Gyosyu <> "K" Then %>
onClick="alert('倉庫会社との間に寄託契約を締結してください。\r\n\r\n(寄託契約手続は「社長室・総務部」より行います)');"<% End If %>>
0 Then %> onClick="tblbtn( '/<% = HomeAlias %>/user/bk/shiireuriage/fd_kitaku_nyuko_ichiran.asp?BunsyoSyuruiCD=SS&NyusyukoKubun=S');"<% End If %>>
寄託確認 |
|
<% Else %>
<% If AiteShukkoHitsuyo = "1" Then %>
|
|
|
|
|
|
|
|
<% End If %>
|
|
|
|
|
|
|
|
<% = HtmlFooter %>
<%
End Sub
%> | | | | | | | | |