%
'
%>
<%
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
Dim AutoGenkinNyusyukinRireki, AutoYokinNyusyukinRireki, AutoNyukoJisseki, AutoSyukoJisseki
Dim AutoSyohinZaiko, AutoUketoriTegataIchiran, AutoShiaraiTegataIchiran
Dim Query, Content
Dim AiteShukkoHitsuyo
Dim Kitakuriyou,KitakuKeiyaku
Dim Kouririyou
Dim SenpoHitsuyo
Dim ShukkoUkeshoHitsuyo
Dim SoukoRiyo
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追加 テーブルにもフィールドを追加
Kouririyou = "" & Content.Fields("小売販売有無") '070214追加
SenpoHitsuyo = "" & Content.Fields("仕入売上書類先方書類必要")
ShukkoUkeshoHitsuyo = "" & Content.Fields("出庫時注文請書必要")
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)
SoukoRiyo = "" & Content.Fields("倉庫部利用")
End If
'寄託利用状態を整数化(070207小野)
If Kitakuriyou = "1" Then
Kitakuriyou = 1
Else
Kitakuriyou = 0
End If
'寄託契約状態判定関数を追加(070207小野)
KitakuKeiyaku = KitakuKeiyakuJoutai() 'int型1文字
'小売販売有無状態を整数化(070214小野)
If Kouririyou = "1" Then
Kouririyou = 1
Else
Kouririyou = 0
End If
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 %>
|
|
|
|
<% 'ShoshaChk = 0 %>
<% If ShoshaChk <> 0 Then %>
<% If Kitakuriyou > 0 Then %>
<% If SenpoHitsuyo <> "1" Then %>
<% Else %>
<% End If %>
<% Else %>
<% If SenpoHitsuyo <> "1" Then %>
<% Else %>
<% End If %>
<% End If %>
見積書 |
<% If Kitakuriyou > 0 Then %>
<% If SenpoHitsuyo <> "1" Then %>
<% Else %>
<% End If %>
<% Else %>
<% If SenpoHitsuyo <> "1" Then %>
<% Else %>
<% End If %>
<% 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 %>
|
|
|
|
|
|
|
|
|
|
|
<% 'KanribuChk = 0 %>
<% If KanribuChk <> 0 Then %>
|
<% If SenpoHitsuyo <> "1" Then %>
<% Else %>
<% Else %>
同一市場に 管理部が存在しません |
<% End If %>
|
|
|
|
|
|
|
|
|
<% If Kouririyou > 0 Then %>
|
<% End If %>
|
<% End If %>
|
|
|
|
|
<% If AutoSyohinZaiko = "1" Then %>
<% End If %>
|
<% If AutoSyukoJisseki = "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_syukko_ichiran.asp?BunsyoSyuruiCD=KS&NyusyukoKubun=U');"<% End If %>>
出庫依頼 |
|
<% else %>
<% If (ShukkoUkeshoHitsuyo <> "1" And ShukkoUkeshoHitsuyo <> "3") Or Gyosyu = "K" Then %>
<% Else %>
<% end if %>
<% If AiteShukkoHitsuyo = "1" Then %>
|
|
|
|
|
|
|
|
<% End If %>
|
|
|
|
|
|
|
|
|
<% = HtmlFooter %>
<%
End Sub
%> | | | | | | | | |