%
'
'
%>
<%
main()
Sub main()
Dim BunsyoNaiyoCD, Syoribi, TorihikisakiCD, NonyuKijitsu
Dim UnsoGaisyaCD, UntinSyogakariKubun, Unsohi, UnsohiSeikyuFlg, Tekiyo, ShiharaiHoho, HasshinFlg
Dim SenpoBunsyoNaiyoCD , SenpoBunsyoSyuruiCD, SenpoSyoribi
Dim BunsyoSyuruiCD
Dim Kakaku(6) '標準単価
Dim SyohinCD(6) '商品コード
Dim SyohinName(6) '商品名称
Dim Suryo(6) '数量
Dim Tanka(6) '単価
Dim MotoTanka(6) '元単価
Dim UnsoTankaMaster(6) 'マスター運送単価
Dim Zaiko(6) '在庫数量
Dim GakuseiShimei '学生氏名(係印)
Dim SyoruiMei
Dim Query
Dim Content
Dim Shimei
Dim PageType
Dim ZaikoTemp
Dim SakuseiKaisyaCD
Dim ShijyoCD(5)
Dim TmpBunsyoSyuruiCD
Dim SenpoShiireUriageSyuruiCD '先方注文書の文書種類CD
Dim SenpoShiireUriageNaiyoCD '先方注文書の文書内容CD
Dim UnsoTanka(5) '運送単価
Dim UnsohiSyohin(5) '商品運送費
Dim UnsohiGokei
Dim OldSyoruiFlg
UnsohiGokei = 0
OldSyoruiFlg = 0
Dim UnsoTankaGokei
UnsoTankaGokei = 0
Dim SoSuryo
SoSuryo = 0
Dim Jissenbi
Dim SyohinNyusyukkoSeikousei
Dim AiteShukkoHitsuyo
Dim JishaZaikoHitsuyo
Dim HyojunTankaHyoji
Dim SoukoRiyo
Dim HaraidashiTankaRiyo
Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
Jissenbi = SetTimeYYYYMMDD(Content.Fields("実践日"))
AiteShukkoHitsuyo = "" & Content.Fields("入庫時相手出庫必要")
JishaZaikoHitsuyo = "" & Content.Fields("出庫時在庫必要")
SyohinNyusyukkoSeikousei = Content.Fields("商品入出庫整合性利用")
HyojunTankaHyoji = Content.Fields("標準販売単価表示")
SoukoRiyo = "" & Content.Fields("倉庫部利用")
HaraidashiTankaRiyo = "" & Content.Fields("出庫時払出単価入力")
End If
'HaraidashiTankaRiyo = "1"
PageType = Request("PageType")
BunsyoNaiyoCD = Request("BunsyoNaiyoCD")
BunsyoSyuruiCD = Request("BunsyoSyuruiCD")
SenpoBunsyoNaiyoCD = Request("SenpoBunsyoNaiyoCD")
SenpoBunsyoSyuruiCD = Request("SenpoBunsyoSyuruiCD")
TorihikisakiCD = Request("TorihikisakiCD")
SakuseiKaisyaCD = Request("SakuseiKaisyaCD")
'###Debug
'Response.Write("GB_SystemCD:" & GB_SystemCD & "
")
'Response.Write("EnshuCD:" & EnshuCD & "
")
'Response.Write("KaisyaCD:" & KaisyaCD & "
")
'Response.Write("BunsyoNaiyoCD:" & BunsyoNaiyoCD & "
")
'Response.Write("BunsyoSyuruiCD:" & BunsyoSyuruiCD & "
")
'Response.Write("SakuseiKaisyaCD:" & SakuseiKaisyaCD & "
")
'Response.Write("SenpoBunsyoSyuruiCD:" & SenpoBunsyoSyuruiCD & "
")
'Response.Write("SenpoBunsyoNaiyoCD:" & SenpoBunsyoNaiyoCD & "
")
'注文請書・管理部売渡受付書をトグルするフラグ
Dim SenpoShoruiMode
SenpoShoruiMode = Request("SenpoShoruiMode")
If BunsyoSyuruiCD = "SU" Then
If SenpoShoruiMode = "Uriwatashi" Then
TmpBunsyoSyuruiCD = "KY"
Else
TmpBunsyoSyuruiCD = "KU"
End If
End If
Dim SenpoFlg
SenpoFlg = 0
If SenpoBunsyoNaiyoCD <> "" Then
SenpoFlg = 1
End If
SyoruiMei = ConvKubunMeisyo("入出庫区分", BunsyoSyuruiCD)
If BunsyoNaiyoCD <> "" Then
Query = "exec SPD仕入売上書類取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & KaisyaCD & "', '" & TmpBunsyoSyuruiCD & "', '" & BunsyoNaiyoCD & "'"
'Response.Write("Query:" & Query & "
")
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
If SenpoFlg = 1 Then
TorihikisakiCD = Content.Fields("作成会社CD")
SenpoSyoribi = SetTimeYYYYMMDD(Content.Fields("処理日"))
Syoribi = SetTimeYYYYMMDD(Content.Fields("処理日"))
Else
TorihikisakiCD = Content.Fields("取引先CD")
SenpoSyoribi = SetTimeYYYYMMDD(Content.Fields("先方処理日"))
Syoribi = SetTimeYYYYMMDD(Content.Fields("処理日"))
End If
NonyuKijitsu = SetTimeYYYYMMDD(Content.Fields("納入期日"))
' If 1 = 0 Then
UntinSyogakariKubun = Content.Fields("運賃諸掛区分")
Unsohi = Content.Fields("運送費")
' End If
' GakuseiShimei = Content.Fields("氏名")
SenpoShiireUriageSyuruiCD = Content.Fields("文書種類CD")
SenpoShiireUriageNaiyoCD = Content.Fields("文書内容CD")
Dim Kingaku,GokeiKingaku
Do While Not(Content.BOF Or Content.EOF)
Dim DenpyoSEQ,PreDenpyoSEQ
DenpyoSEQ = Content.Fields("文書内容SEQ")
SyohinCD(DenpyoSEQ) = Content.Fields("商品CD")
ShijyoCD(DenpyoSEQ) = Content.Fields("市場CD")
SyohinName(DenpyoSEQ) = ConvSyohinMeisyo(Content.Fields("商品CD"))
Kakaku(DenpyoSEQ) = ConvSyohinHanbaiTanka(Content.Fields("商品CD"))
Suryo(DenpyoSEQ) = Content.Fields("数量")
Tanka(DenpyoSEQ) = Content.Fields("単価")
MotoTanka(DenpyoSEQ) = Content.Fields("単価")
Zaiko(DenpyoSEQ) = ConvSyohinZaiko(Content.Fields("商品CD"))
'Kingaku(DenpyoSEQ) = Content.Fields("単価") * Content.Fields("数量")
'GokeiKingaku = GokeiKingaku + Kingaku(DenpyoSEQ)
UnsoTanka(DenpyoSEQ) = Content.Fields("運送単価")
UnsohiSyohin(DenpyoSEQ) = Content.Fields("運送単価") * Content.Fields("数量")
If PreDenpyoSEQ <> DenpyoSEQ then
If Not(IsNull(UnsohiSyohin(DenpyoSEQ))) Then
UnsohiGokei = UnsohiGokei + UnsohiSyohin(DenpyoSEQ)
End If
End If
UnsoTankaMaster(DenpyoSEQ) = ConvSyohinSoryoTanka(Content.Fields("商品CD"))
If PreDenpyoSEQ <> DenpyoSEQ then
UnsoTankaGokei = UnsoTankaGokei + (UnsoTankaMaster(DenpyoSEQ) * Suryo(DenpyoSEQ))
SoSuryo = SoSuryo + Suryo(DenpyoSEQ)
End If
Content.MoveNext
PreDenpyoSEQ=DenpyoSEQ
Loop
If UnsohiGokei <> Unsohi Then '運送単価から計算された値が運送費と異なっていれば旧仕様にする
OldSyoruiFlg = 1
End If
End If
End If
If OldSyoruiFlg > 0 Then
'運送費が商品Mの運送単価と異なっていたら運送単価に運送費÷総数量をセット
If UnsoTankaGokei > 0 And SoSuryo > 0 Then
If Unsohi <> UnsoTankaGokei Then
For ii = 1 To 5
If SyohinCD(ii) <> "" Then
UnsoTanka(ii) = fix(Unsohi / SoSuryo)
End If
Next
Else
For ii = 1 To 5
If SyohinCD(ii) <> "" Then
UnsoTanka(ii) = UnsoTankaMaster(ii)
End If
Next
End If
End If
End If
Dim jj,tmps
Dim SyohinMeisyo, SyohinMeisyoListWidth, ShijyoListWidth
SyohinMeisyo = "商品略名称"
SyohinMeisyoListWidth = "width: 191;"
ShijyoListWidth = "width:80"
If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then
SyohinMeisyo = "商品略名称"
SyohinMeisyoListWidth = "width: 191;"
ShijyoListWidth = "width:80"
Else
SyohinMeisyo = "商品名称"
End If
If HyojunTankaHyoji = "0" Then '標準販売単価非表示
SyohinMeisyoListWidth = "width: 289;"
End If
%>
<% = HtmlHeader("") %>